Wrox Programmer Forums

Need to download code?

View our list of code downloads.

| FAQ | Members List | Search | Today's Posts | Mark Forums Read
Classic ASP Databases Discuss using ASP 3 to work with data in databases, including ASP Database Setup issues from the old P2P forum on this specific subtopic. See also the book forum Beginning ASP.NET Databases for questions specific to that book. NOT for ASP.NET 1.0, 1.1, or 2.0.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Classic ASP Databases section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
DRM-free e-books 300x50
Closed Thread
Thread Tools Search this Thread Display Modes
  #1 (permalink)  
Old April 22nd, 2004, 02:16 AM
urs urs is offline
Registered User
Join Date: Apr 2004
Location: , , .
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default Datatypes in Active Directory

I connect to the Active Directory in a webapplication through LDAP. That works good, but I have one problem.

When I try to give out the CN, I get an Errormessage.
Response object, ASP 0106 (0x80020005)
An unhandled data type was encountered.

The ADsPath can be given out without any problems.

Please look at my Sourcecode and help me if you can.


Option Explicit
Response.Expires = 0

Dim strQuery
Dim objUser

Dim objRstMain, objConMain, objCmdMain

Set objRstMain = Server.CreateObject("ADODB.RecordSet")
Set objConMain = Server.CreateObject("ADODB.Connection") 
Set objCmdMain = Server.CreateObject("ADODB.Command")

objConMain = "Provider=ADSDSOObject;User Id=PRIVATE\Administrator;Password=qwerASDF;Encrypt Password=False;Open=Active Directory Provider"

strQuery = "SELECT cn, ADsPath FROM 'LDAP://, DC=cust, DC=mydomain, DC=com' WHERE objectCategory='user'"

objCmdMain.ActiveConnection = objConMain
objCmdMain.CommandText = strQuery
        <table cellspacing="1" cellpadding="1" width="300" border="1" ID="Table1">
        Set objRstMain = objCmdMain.Execute

            <b>Anzahl Datens√§tze: </b>
            <% =objRstMain.RecordCount %>
            Do While Not objRstMain.EOF

                <td><% =objRstMain.Fields("cn").Value %></td>
                <td><% =objRstMain.Fields("ADsPath").Value %></td>

        Set objRstMain = Nothing
        Set objConMain = Nothing
        Set objCmdMain = Nothing
Closed Thread

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are Off

Similar Threads
Thread Thread Starter Forum Replies Last Post
Active Directory TCSE305 Windows Server 1 November 22nd, 2006 01:26 AM
About Active Directory apalmero VB How-To 1 April 8th, 2005 04:06 PM
About Active Directory apalmero VS.NET 2002/2003 1 November 9th, 2003 01:06 PM

All times are GMT -4. The time now is 11:59 PM.

Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.