Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > ASP.NET and ASP > ASP 3 Classic ASP Active Server Pages 3.0 > Classic ASP Professional
Password Reminder
Register
Register | FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read
Classic ASP Professional For advanced coder questions in ASP 3. 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 Professional section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developers’ questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
DRM-free e-books 300x50
Reply
 
Thread Tools Search this Thread Display Modes
  #1 (permalink)  
Old October 20th, 2005, 12:10 PM
Registered User
 
Join Date: Oct 2005
Location: , , .
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default Microsoft VBScript runtime error '800a01b6'

Getting this error in code exported from another webserver.

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'objADUserQuery.errorsText'

/commonfunctions.asp, line 48
Code:
Function GetGal(strUserID, GalField)
    '-- Create the objADUserQuery Object and assign values to the required properties.
    '-- These must be set for the class to correctly execute.
    Dim objADUserQuery, strIDName
    Set objADUserQuery = New ActiveDirectoryUserQuery
        objADUserQuery.targetDomain = "abc.com"
        objADUserQuery.addFilter "cn", strUserId & "*"

    '-- Modify the Filters to narrow or broaden the search.
        objADUserQuery.removeFilter "cn"
        objADUserQuery.removeAllFilters
        objADUserQuery.setFilter "cn","IN('" & strUserID & "')"

    '-- to ensure you get only user accounts asigned to real people, add
    '-- this mail filter (applications of workstations don't usually get
    '-- email accounts.
      ' objADUserQuery.addFilter "mail","*@abc.com*"
      ' objADUserQuery.addFilter "mail","*@abcd.com*"

    '-- Add an order by clause to sort the results.
        objADUserQuery.orderBy = "sn"

    '-- Execute the Query and Process the Results
        objADUserQuery.executeQuery

    '-- Check for Errors. Display errors if they exist.
        If(objADUserQuery.errorCount > 0) Then
Error>>> Response.Write(Replace(objADUserQuery.errorsText,v bCrLf,"<BR>")) <<<

    '-- If no errors exist, process the results set.

Can't for the life of me figure this one out. Basically the userid is parsed from the windows logon and the username token is passed to the getgal function. It performs an ldap read on the active directory and, if all is well, this code never runs. However, if there is something wrong, we perform this to display the object errors. We have migrated a small user community from their old domain (lets say domain aaa.com) to a new corporate entity on this new domain, abc.com.
The code works as designed on the old domain, however, fails on the new domain and this problem is preventing us from seeing the actual ldap error.

Reply With Quote
Reply


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
Microsoft VBScript runtime error '800a01a8' Abbas Classic ASP Basics 1 July 21st, 2006 11:43 AM
Microsoft VBScript runtime error '800a01a8' Abbas Classic ASP Professional 1 July 21st, 2006 11:42 AM
Microsoft VBScript runtime error '800a01a8' gmoney060 BOOK: Beginning ASP 3.0 1 June 2nd, 2004 01:18 PM



All times are GMT -4. The time now is 11:57 AM.


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