0x80004005 is 99.9% of the time caused by permissions issues. Make sure that its running under a user context with enough permissions to execute the querey.
-------------------------------------------------------------- Roger D. Seielstad - MTS MCSE MS-MVP Sr. Systems Administrator Inovis Inc. > -----Original Message----- > From: Jason Benway [mailto:[EMAIL PROTECTED] > Sent: Thursday, June 10, 2004 1:59 PM > To: '[EMAIL PROTECTED]' > Subject: RE: [ActiveDir] AD Phone list > > Here is his current code and error: > > _______________________________________________________ > > The error 0x80004005 Unspecified Error occurs when I try to query for > various items. I've added "otherphone" to this code as an > example. The error > occurs on line 18: "objRS.Open strSQL, objConn, 1, 1". > > -------------------------------------------------------------- > -------------- > ---- > > strSearchString = "Firstname Lastname" > > Dim objConn, strSQL, objRS, strConn > Set objConn = Server.CreateObject("ADODB.Connection") > Set objRS = Server.CreateObject("ADODB.Recordset") > objConn.Provider = "ADsDSOObject" > strConn = "Active Directory Provider" > objConn.Open strConn > strSQL = "SELECT givenname, sn, telephonenumber, otherphone " > ', mobile, facsimilyTelephoneNumber, pager > strSQL = strSQL & "FROM 'LDAP://DOMAIN.COM' " > strSQL = strSQL & "WHERE objectClass = 'user' " > strSQL = strSQL & "AND (givenName = '*" & strSearchString & > "*' OR sn = '*" > & strSearchString & "*' OR displayName = '*" & > strSearchString & "*') " > strSQL = strSQL & "ORDER BY sn" > objRS.Open strSQL, objConn, 1, 1 > > While NOT objRS.EOF AND NOT objRS.BOF > > strFirstName = objRS("givenname").value > strLastName = objRS("sn").value > If objRS("telephonenumber").value = "" OR > IsNull(objRS("telephonenumber").value) Then > strFullTelephoneNumber = "" > Else > strFullTelephoneNumber = objRS("telephonenumber").value > End If > If join(objRS("otherphone").value) = "" OR > IsNull(join(objRS("otherphone").value)) Then > strExtension = "" > Else > strExtension = join(objRS("otherphone").value) > End If > > Response.Write("<b>" & strFirstName & " " & strLastName & "</b><br>") > Response.Write("Phone Number: <b>" & strFullTelephoneNumber > & "</b><br>") > Response.Write("<br>") > objRS.MoveNext > Wend > > objRS.close > objConn.close > List info : http://www.activedir.org/mail_list.htm > List FAQ : http://www.activedir.org/list_faq.htm > List archive: > http://www.mail-archive.com/activedir%40mail.activedir.org/ > List info : http://www.activedir.org/mail_list.htm List FAQ : http://www.activedir.org/list_faq.htm List archive: http://www.mail-archive.com/activedir%40mail.activedir.org/