[supernova333]

I am trying to get a script working that will tell me how many new email messages a person has on an Exchange 2000 server. Here is the script I was given:

(MAILSERVER = url to mail server, USERNAME = user on the exchange server)

<%
Wscript.echo GetInboxItems("http://MAILSERVER","USERNAME")

Function GetInboxItems(url,user)
	
	On Error Goto 0
	
	intInboxItems = 0
	urlWebstorage = url & user & "/inbox"

	Set conn = CreateObject("ADODB.Connection")
	Set objRec = CreateObject("ADODB.Recordset")
	conn.Provider = "ExOLEDB.DataSource"
	conn.Open urlWebstorage
  
	strSQL = "SELECT ""DAV:displayname"", ""DAV:creationdate"", ""DAV:from"" FROM"
	strSQL = strSQL & " SCOPE('shallow traversal of """ & urlWebstorage & """')" 
	strSQL = strSQL & " WHERE ""DAV:ishidden"" = False and ""DAV:isfolder"" = False"
  
	objRec.Open strSQL, conn
	intInboxItems = CInt(objRec.RecordCount)
	
	GetInboxItems = intInboxItems
	
End Function
%>

If I run this with our mail server and a username I get this error:

Quote

ADODB.Connection error '800a0e7a'

Provider cannot be found. It may not be properly installed.

/ex.asp, line 14

Anyone have any ideas?