Erro para autenticar no AD.

[Raposo]

Prezados,

Estou tentando fazer os usuários da minha intranet se conectarem no AD, porém quando tento acessar com senha e login o mesmo está me exibindo a seguinte mensagem de erro na linha 143:

Microsoft VBScript runtime error '800a000d'

/Type mismatch: '[object]'

login_restrito_teste.asp, line 56

Segue o código para me ajudarem

<%

Dim UserName

Dim Password

UserName = ""

Password = ""

Domain = "1.1.0.1"

UserName = request.form("UserName")

Password = request.form("Password")

function AuthenticateUser(UserName, Password, Domain)

dim strUser

' assume failure

AuthenticateUser = false

strUser = UserName

strPassword = Password

strQuery = "SELECT cn FROM 'LDAP://" & Domain & "' WHERE objectClass='*' "

set oConn = server.CreateObject("ADODB.Connection")

oConn.Provider = "ADsDSOOBJECT"

oConn.Properties("User ID") = strUser

oConn.Properties("Password") = strPassword

oConn.Properties("Encrypt Password") = true

oConn.open "DS Query", strUser, strPassword

set cmd = server.CreateObject("ADODB.Command")

set cmd.ActiveConnection = oConn

cmd.CommandText = strQuery

on error resume next

set oRS = cmd.Execute

if oRS.bof or oRS.eof then

AuthenticateUser = false

else

AuthenticateUser = true

end if

set oRS = nothing

set oConn = nothing

end function

result = AuthenticateUser(UserName, Password, Domain)

if result then

set rsLogin=server.createobject("ADODB.Recordset")

sqlstr = "Select * from usuarios where nom_login='"&LOG&"' AND des_senha='"&SENHA&"'"

rsLogin.open sqlstr, conexao,3,3

If rsLogin.EOF then %>

<script language="javascript">

alert("Login e senha invalidos.");

<%If request("vemail") = "S" then

response.cookies("siteIdm")("cod_idm") = 1%>

window.location='<%=request("redireciona") & "&vemail=S"%>';

<%Else%>

window.location='default.asp';

<%End If%>

</script>

<% response.end

Else

'Aqui eu verifico se a senha do prg esta desabilitada tpo_senha D

IF rsLogin("tpo_senha") = "D" then %>

<script>

alert("Conta de usuário desabilitada. .");

<%If request("vemail") = "S" then

response.cookies("siteIdm")("cod_idm") = 1%>

alert(<%=request("redireciona") & "&vemail=S"%>);

window.location='<%=request("redireciona") & "&vemail=S"%>';

<%Else%>

window.location='default.asp';

<%End If%>

</script>

<%response.end

End if

'Aqui eu verifico se é o 1º acesso do usuário. E

IF rsLogin("tpo_senha") = "E" then

rsLogin("tpo_senha") = "D"

rsLogin.Update

response.cookies("css")("GRUPO") = rsLogin("grupo")

response.cookies("css")("CODUSUARIO") = rsLogin("cod_usuario")

response.cookies("css")("tpo_senha") = rsLogin("tpo_senha")

session("logado") = "S"

response.redirect " "

End If

IF rsLogin("tpo_senha") = "P" then

If CDate(rsLogin("dt_expira")) < date then%>

<script>

alert("Conta expirada.\n\Contate o administrador para reabilitá-la.");

<%If request("vemail") = "S" then

response.cookies("siteIdm")("cod_idm") = 1%>

window.location='<%=request("redireciona") & "&vemail=S"%>';

<%Else%>

window.location='default.asp';

<%End If%>

</script>

<% response.end

End if

End if

response.cookies("css")("GRUPO") = rsLogin("grupo")

response.cookies("css")("CODUSER") = rsLogin("cod_usuario")

response.cookies("css")("tpo_senha") = rsLogin("tpo_senha")

session("logado") = "S"

If request("vemail") = "S" then

response.cookies("siteIdm")("cod_idm") = 1

response.redirect request("redireciona")

Else

if rsLogin("grupo") = "|1|" then

response.redirect " "

elseif rsLogin("grupo") = "|3|" then

'response.redirect ""%>

<script language="javascript">

window.location.href ="";

</script>

<% else rsLogin("grupo") = "|4|"

response.redirect " "

End If

End if

rsLogin.Close

Set rsLogin = Nothing

conexao.close

Set conexao = nothing

%>

Desde já agradeço

Editado Janeiro 20, 2010 por Raposo

[Raposo]

Alguém consegue me ajudar?

[bareta]

qual a linha 56?