Wrox Home  
Search P2P Archive for: Go

  Return to Index  

asp_ado_rds thread: retreiving data from directory using LDAP


Message #1 by "juriaan spoormaker" <juriaan.spoormaker@r...> on Tue, 10 Sep 2002 08:59:48
Hi,

I am developing an application that retrieves employee data from a LDAP
server (SUN ONE Directory). I can get all the general data from the
directory but the non-standard attributes are unretrievable.

Attributes like cn, givenName and roomNumber are displayed on the screen,
but non-standard attributes like fullName and hireDate appear as blanc
fields.

In documentation I have read that this can be solved using the 
IADsPropertyList::Getpropertyitem.
I have no idea how to use this or if this is really the problem.

I hope someone can help me...

Thanks in advance.

Juriaan Spoormaker

-------------------------- ASP CODE -------------------------------

<%
Dim lvtNaam,lvtVoornaam,lvtToestel,lvtKamer,lvtAfdeling

lvtNaam = Request.Form("Naam")
lvtVoornaam = Request.Form("Voornaam")
lvtToestel = Request.Form("Toestel")
lvtKamer = Request.Form("Kamer")
lvtAfdeling = Request.Form("Afdeling")

Dim conn 
Dim rs 

           Set conn = Server.CreateObject("ADODB.Connection")
     conn.Provider = "ADSDSOObject"
     conn.Open "ADs Provider"

dim lvtSQL
lvtSQL = "SELECT sn,ADsPath FROM 'LDAP://server:portnr/dc=robeco,dc=nl' 
WHERE"
lvtSQL = lvtSQL & " objectClass='robecoperson' and UID=142500"
        
Set rs = conn.Execute(lvtSQL)

While Not rs.EOF        
   set lvoUser = GetObject(cstr(rs(0).value))
    'standard attribute initials works fine
     response.write lvouser.initials 
    'standard attribute givenname works fine
     response.write lvouser.givenname 
    'standard attribute roomnumber works fine
     response.write lvouser.roomNumber
    'custom made attribute fullname appears blanc
     response.write lvouser.fullname

   rs.MoveNext
Wend

     conn.Close
%>

  Return to Index