function AuthenticateUser(UserName, Password, Domain)

dim sDominio, sUser, sPassword , objLDAP, sLDAPstring, ObjLoggedOn

'assume failure
AuthenticateUser = false

sUser = UserName
sPassword = Password
sDominio = Domain

On Error Resume Next

Set objLDAP = GetObject("LDAP:")

sLDAPstring = "LDAP://" & sDominio

Set ObjLoggedOn = objLDAP.OpenDSObject(sLDAPstring, sDominio & "\" & sUser , sPassword, 1)

if err = 0 then
AuthenticateUser = true
Session("Pwd") = sPassword
else
AuthenticateUser = false
end if

set objLDAP = nothing
set ObjLoggedOn = nothing

end function