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 %>
