BeginnerASP
04-12-2007, 01:05 AM
Hi i am trying to create a user authentication :
And am using following code:and got following error message:80090308: LdapErr: DSID-0C090334, comment: AcceptSecurityContext error, data 525, veceSuccess
plz help,
thanking you in advance
<%Server.ScriptTimeout=900
%>
<html>
<body bgcolor="#FF0000">
<p>Enter User Name and Password</p>
<form method="post">
<b>User Login</b>
<table border=2>
<tr><td>
User Name:</td><td><input type=text name=loginname></td>
</tr>
<tr>
<td>Password :</td><td><input type=password name=password></td>
</tr>
<tr>
<td></td><td><input type=submit name="login" value="Login "></td>
</table>
</form>
<%
If Request("REQUEST_METHOD") = "POST" then
'create the ldap object
dim ldap
set ldap = Server.CreateObject("IPWorksASP6.LDAP")
dim found,k 'flag variable for whether or not we find the loginname on the server
ldap.Servername = "inddfdc02"
ldap.DN = "ou=IND,dc=sphere,dc=com"
found=true
ldap.Search "login_ID=" + Request("loginname")
' response.write login_ID
while ldap.NextResult = 1
'set found to true if we find any positive search results
wend
' response.end
if found=true then
'try to authenicate
ldap.DN = "uid=" + Request("loginname") + ", ou=IND,dc=sphere,dc=com"
ldap.password = Request("password")
ldap.Bind
if ldap.NextResult = 0 then
if ldap.ResultDescription <>"[ok]" then
k=ldap.ResultDescription
response.write k
response.write "Success! You have been validated."
else 'login result was not "OK"
response.write "Invalid Login."
end if
end if
else 'found flag was false, we did not find the user in the directory
response.write "Invalid Login."
end if
end if 'end for the if requestmethod=post statement
%>
</body>
</html>
And am using following code:and got following error message:80090308: LdapErr: DSID-0C090334, comment: AcceptSecurityContext error, data 525, veceSuccess
plz help,
thanking you in advance
<%Server.ScriptTimeout=900
%>
<html>
<body bgcolor="#FF0000">
<p>Enter User Name and Password</p>
<form method="post">
<b>User Login</b>
<table border=2>
<tr><td>
User Name:</td><td><input type=text name=loginname></td>
</tr>
<tr>
<td>Password :</td><td><input type=password name=password></td>
</tr>
<tr>
<td></td><td><input type=submit name="login" value="Login "></td>
</table>
</form>
<%
If Request("REQUEST_METHOD") = "POST" then
'create the ldap object
dim ldap
set ldap = Server.CreateObject("IPWorksASP6.LDAP")
dim found,k 'flag variable for whether or not we find the loginname on the server
ldap.Servername = "inddfdc02"
ldap.DN = "ou=IND,dc=sphere,dc=com"
found=true
ldap.Search "login_ID=" + Request("loginname")
' response.write login_ID
while ldap.NextResult = 1
'set found to true if we find any positive search results
wend
' response.end
if found=true then
'try to authenicate
ldap.DN = "uid=" + Request("loginname") + ", ou=IND,dc=sphere,dc=com"
ldap.password = Request("password")
ldap.Bind
if ldap.NextResult = 0 then
if ldap.ResultDescription <>"[ok]" then
k=ldap.ResultDescription
response.write k
response.write "Success! You have been validated."
else 'login result was not "OK"
response.write "Invalid Login."
end if
end if
else 'found flag was false, we did not find the user in the directory
response.write "Invalid Login."
end if
end if 'end for the if requestmethod=post statement
%>
</body>
</html>