I keep geting this error in the IE when trying to run the scrept below from
an ASP page. Can any one help please.
Error Type:
Provider (0x80040E37)
Table does not exist.
/gal.asp, line 43
<HTML>
<BODY>
<CENTER><H2>Whe eling Departmental Directory</H2><CENTER>
</TABLE>
<%
'TO DO : Change the below name to your Exchange server name
'
' Note if you want to use NT Challenge Response authentication this
' will need to be the same machine as the ASP is running on
strServerName = "ou=Companies,d c=group,dc=Test ,dc=local"
strUser = Request.ServerV ariables("LOGON _USER") 'retrieve the user
if strUser = "" then
Response.Write "You are using Anonymous authentication you will need to
change it so the user can be identified"
Response.End
end if
set oConn = CreateObject("A DODB.Connection ")
set oCommand = CreateObject("A DODB.Command")
set oRS = CreateObject("A DODB.Recordset" )
oConn.Provider = "ADsDSOObje ct"
oConn.Open "Ads Provider"
set oCommand.Active Connection = oConn 'set the active connection
' Next we will build the LDAP query that will be used to retrieve the
contents of the GAL.
' We will specify which server we want to run the query against,
' a filter for what types of objects we are looking for, the attributes we
would like
' returned, and the type of search
' A filter of (objectClass=pe rson) will return mailboxes, distribution
lists, and custom recipients
strQuery= "<LDAP://" & strServername &
">;(objectClass =person);name,t elephoneNumber, mobile,title,de partment,mail,f acsimileTelepho neNumber,pager, otherTelephone"
oCommand.Comman dText = strQuery
oCommand.Proper ties("Sort On") = "name"
oCommand.Proper ties("Page Size") = 99 'a paged query is used to avoid
Exchange LDAP server limits
set oRS = oCommand.Execut e 'Execute the query
' Now we will loop through the results of our query
' and build a table to display the Global Address List
%>
<TABLE BORDER=4>
<TR>
<TH>Name/Title</br>Department/Email<TH>Work/Fax Numbers<TH>Mobi le Numbers
<%
While not oRS.EOF
arrPhone = oRS.Fields("oth erTelephone")
%>
<TR>
<TD><b><%=oRS.F ields("name")%> </b></b></br><i><%=oRS.Fi elds("title")%> </i></br><%=oRS.Field s("department") %></br>
<a
href="mailto:<% =oRS.Fields("ma il")%>"><%=oRS. Fields("mail")% ></a>
<TD>Work: <%=oRS.Fields(" telephoneNumber ")%></br>
Fax: <%=oRS.Fields(" facsimileTeleph oneNumber")%>
<TD>Mobile: <%=oRS.Fields(" mobile")%></br>
Nextel: <%=oRS.Fields(" pager")%></br>
<%
oRS.MoveNext
wend
%>
</TABLE>
</BODY>
</HTML>
