Problem with ldap query

Hi,
 
within an asp page I need to retrieve user information like name and email address. I can do a ldap query to get the full ldap path, but when I try to create an object with that I receive a 80072020 error.
Here's the code I used:

 <%@ Language=VBScript %>
 <%
 Response.Buffer=true
 strUser=Right(Request.ServerVariables("LOGON_USER"),8)
 Set ADOconn = CreateObject("ADODB.Connection")
 Set ADOcom = CreateObject("ADODB.Command")
 ADOconn.Provider = "ADsDSOObject"
 ADOconn.Open "ADs Provider", "xxx\id", "password"
 Set ADOcom.ActiveConnection = ADOconn
 ADOcom.Properties("Page Size") = 1000
 ADOcom.CommandText = "SELECT * from 'LDAP://xxx/dc=w1,dc=yyy,dc=net'  where SamAccountName='" & strUser & "'"
 Set Rec = ADOcom.Execute
 set fields = rec.fields(0)
 For Each objField in rec.Fields 'works fine
   ldap = objField
   response.write "result: " &objField &"<br>"
 Next
  
 Set ou=GetObject(ldap) ' here occurs the error
 For Each obj In ou
   response.write obj.Name  & obj.FullName & "<br>"
 Next
  
 %>
 

I'm quite new to vbscript and up to now I'm still confused what to use for which purpose.
It's an urgent case and I'm really stuck with that. Any help would be appreciated.
Thanks in advance.
 
Regards,
 
Andi
 
 

I'm sorry that no one answered you. I was hoping to read the solution, too, because I'm in a similar situation. However, I may have an answer for you if you are not trying to run in a very specific web environment. Send me an email and I'll respond with some sample code.

When I try this code, I get Table does not exist.  Any help?