Pessoal sou noob em linguagem ASP e estou com um problema em um site que estou tentando implementar. Quando executo o site com autenticação básica no ISS funciona normalmente, porém ao utilizar autenticação digest não consigo logar com usuário e senha do AD, apresenta o erro Erro '800a0cc1' - Table does not exist. Mais epecificamente na linha 94 do código (Set oRS = oCommand.Execute)
Aqui na rede da empresa, segundo o pessoal de segurança, não posso utilizar a autenticação básica do ISS apenas a autenticação digest.
Segue abaixo o código completo, se alguém puder me ajudar eu agradeço muito! Abs!!!
<%@ LCID = 1046 %>
<%
Option Explicit
Response.Buffer = False
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
Const adVarChar = 200
Const adInteger = 3
Const adCurrency = 6
Const adDate = 7
Const adBoolean = 11
Const adParamInput = &H0001
Const adParamOutput = &H0002
Dim conDB, conDBS, conIDB
Dim rsDB, rsDBS
Dim commDB, commDBS, commIDB
Dim parDB, parDBS, parIDB
Dim strSQL
Dim oConn, oCommand, oRS
Dim strServerName, strUser
Dim strQuery
Dim NomeUsuario,Nome,EnderecoSMTP
Dim dbIdtLista
Dim Hora
Set oConn = Server.CreateObject("ADODB.Connection")
Set oCommand = Server.CreateObject("ADODB.Command")
Set oRS = Server.CreateObject("ADODB.Recordset")
strServerName = "srvti01.empresa.intranet"
strUser = Request.ServerVariables("LOGON_USER") 'retrieve the user
if trim(strUser) = "" then
Response.Write "Você está usando Autenticação do tipo ANONYMOUS.<BR>"
Response.Write "É preciso mudar isso para poder acessar a<BR>"
Pergunta
R-O-D-O-L-F-O
Boa Tarde a todos os usuários do forum.
Pessoal sou noob em linguagem ASP e estou com um problema em um site que estou tentando implementar. Quando executo o site com autenticação básica no ISS funciona normalmente, porém ao utilizar autenticação digest não consigo logar com usuário e senha do AD, apresenta o erro Erro '800a0cc1' - Table does not exist. Mais epecificamente na linha 94 do código (Set oRS = oCommand.Execute)
Aqui na rede da empresa, segundo o pessoal de segurança, não posso utilizar a autenticação básica do ISS apenas a autenticação digest.
Segue abaixo o código completo, se alguém puder me ajudar eu agradeço muito! Abs!!!
<%@ LCID = 1046 %>
<%
Option Explicit
Response.Buffer = False
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
Const adVarChar = 200
Const adInteger = 3
Const adCurrency = 6
Const adDate = 7
Const adBoolean = 11
Const adParamInput = &H0001
Const adParamOutput = &H0002
Dim conDB, conDBS, conIDB
Dim rsDB, rsDBS
Dim commDB, commDBS, commIDB
Dim parDB, parDBS, parIDB
Dim strSQL
Dim oConn, oCommand, oRS
Dim strServerName, strUser
Dim strQuery
Dim NomeUsuario,Nome,EnderecoSMTP
Dim dbIdtLista
Dim Hora
Set oConn = Server.CreateObject("ADODB.Connection")
Set oCommand = Server.CreateObject("ADODB.Command")
Set oRS = Server.CreateObject("ADODB.Recordset")
strServerName = "srvti01.empresa.intranet"
strUser = Request.ServerVariables("LOGON_USER") 'retrieve the user
if trim(strUser) = "" then
Response.Write "Você está usando Autenticação do tipo ANONYMOUS.<BR>"
Response.Write "É preciso mudar isso para poder acessar a<BR>"
Response.Write "Lista Global de Endereços<BR>"
Response.End
end if
'Response.Write request.servervariables("REMOTE_ADDR")
If InStr(strUser, "\") > 0 Then
strUser = Mid(strUser, InStr(strUser, "\") + 1)
End If
If InStr(strUser, "/") > 0 Then
strUser = Mid(strUser, InStr(strUser, "/") + 1)
End If
'Response.Write strUser
Function DiaNoite()
Hora = Hour(Now())
If Hora > 0 And Hora <=5 Then
DiaNoite = "Boa Noite, "
End If
If Hora > 5 And Hora <= 12 Then
DiaNoite = "Bom Dia, "
End If
If Hora > 12 And Hora <= 18 Then
DiaNoite = "Boa Tarde, "
End If
If Hora > 18 And Hora <= 24 Then
DiaNoite = "Boa Noite, "
End If
End Function
oConn.Provider = "ADsDSOObject"
oConn.Open "Ads Provider"
set oCommand.ActiveConnection = oConn 'set the active connection
strQuery = "SELECT ADsPath, cn, mail, displayname" & _
" FROM 'LDAP://srvti01.empresa.intranet'" & _
" WHERE objectClass='person'" & _
" AND samAccountName = '" & strUser & "*'" & _
" ORDER BY displayname"
oCommand.CommandText = strQuery
Set oRS = oCommand.Execute
If not oRS.EOF Then
oCommand.Properties("Page Size") = 99
Session("NomeUsuario") = oRS.Fields("displayname")
If InStr(Session("NomeUsuario"), " ") > 0 Then
Session("Nome") = Mid(Session("NomeUsuario"), 1, InStr(Session("NomeUsuario"), " ") - 1)
End If
Session("EnderecoSMTP") = oRS.Fields("mail")
End if
%>
<html>
<head>
<title>::... Serviço de Transferência de Arquivos - Itautec ...:::</title></head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta NAME="DESCRIPTION" CONTENT="Itautec S/A - Grupo Itautec">
<meta NAME="KEYWORDS" CONTENT="Itautec S/A - Grupo Itautec">
<link REL="stylesheet" HREF="css/style.css" TYPE="text/css">
</head>
<body LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0">
<script LANGUAGE="javascript">
<!--
function Redireciona(opcao) {
switch (opcao)
{
case "1" :
{
document.location.href = "upload/Upload.asp";
break;
}
case "2" :
{
document.location.href = "download/Download.asp";
break;
}
case "3" :
{
document.location.href = "admin/default.asp";
break;
}
case "4" :
{
document.location.href = "upload/Upload2.asp";
break;
}
}
return true;
}
//-->
</script>
<table style="WIDTH: 100%" cellSpacing="0" cellPadding="0" width="95%" border="0">
<tr>
<td></td>
<td colSpan="2"><p align="center"><font size="2"><strong><%=DiaNoite()%></strong></font></p></td>
<td></td>
</tr>
<tr>
<td></td>
<td colSpan="2"><p align="center"><font size="2"><strong><%=Session("NomeUsuario")%></strong></font></p></td>
<td></td>
</tr>
<tr>
<td></td>
<td colSpan="2"> </td>
<td></td>
</tr>
<tr>
<td></td>
<td colSpan="2"><p align="center"><strong style="font-weight: 400">Bem Vindo
ao portal de transferência de arquivos da Itautec S.A - Escolha e clique em
uma das opções abaixo: </strong></p></td>
<td></td>
</tr>
<tr>
<td></td>
<td colSpan="2"> </td>
<td></td>
</tr>
<tr>
<td></td>
<td colSpan="2">
<p align="center">
<input class="BOTAO" id="button1" style="WIDTH: 170; HEIGHT: 30" type ="button" value="Enviar arquivos" name="button1" onclick="Redireciona('1');" size=26>
<input class="BOTAO" id="button2" style="WIDTH: 170; HEIGHT: 30" type ="button" value="Download de arquivos" name="button2" onclick="Redireciona('2');" size=26>
</p>
<hr style="WIDTH: 999px" width="800" color="#D6D6D6" size="1">
<p align="center"> <FONT size=1><STRONG>Em
caso de dúvidas, entre em contato com o Suporte ATC (11) 3543-2150 ou </STRONG></FONT>
<strong><font size="1"><a href="mailto:suporteatc@empresa.com">clique aqui</a>
para enviar um email.</font></strong>
<%
dim cont,grpObject,members,member,acesso
acesso = ""
'Set cont = GetObject("WinNT://srvti01.empresa.intranet")
'Set grpObject = cont
'Set members = grpObject.members
'For Each member In members
' If lcase(strUser) = lcase(member.Name) Then
' acesso = "liberado"
' Exit For
' End If
'Next
If acesso = "liberado" Then
%>
</p>
<hr style="WIDTH: 999px" width="800" color="#D6D6D6" size="1"> <input class="BOTAO" id="button2" style="WIDTH: 287px; HEIGHT: 30px" type ="button" value="Teste de DLL" name="button2" onclick="Redireciona('4');" size=25>
<A
href="#"><IMG height=20 src="images/duvida-pqe.gif" width=20 border=0 ></A><br>
<%
End If
%>
</td>
<td></td>
</tr>
<tr>
<td></td>
<td colSpan="2"></td>
<td></td>
</tr>
<tr>
<td></td>
<td colSpan="2"></td>
<td></td>
</tr>
<tr>
<td></td>
<td colSpan="2"></td>
<td></td>
</tr>
<tr>
<td></td>
<td colSpan="2"></td>
<td></td>
</tr>
<tr>
<td></td>
<td colSpan="2"></td>
<td></td>
</tr>
</table>
<p></p>
</body>
</html>
<%
Set rsDB = Nothing
%>
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.