line 22:
Set ldapObj =
Server.CreateObject("IPWorksASP.LDAP")
line 23:
ldapObj.ServerName = LDAP_SERVER
line 24:
ldapObj.DN =
"ou=people,dc=spilab,dc=com"
line 25:
line 26:
Setting the search filter
line 27:
ldapObj.SearchFilter = filter
line 28:
line 29:
ldapObj.Search
line 30:
line 31:
Showing the user information
line 32:
While ldapObj.NextResult = 1
line 33:
Response.Write("")
line 34:
line 35:
Response.Write("User
information for : " +
ldapObj.AttrValue(0) + "
")
line 36:
For i = 0 To ldapObj.AttrCount 1
line 37:
Response.Write("" +
ldapObj.AttrType(i) +
" : " + ldapObj.AttrValue(i) + "
" )
line 38:
Next
line 39:
Response.Write("")
line 40:
Wend
line 41: %>
line 42:
line 43: