I am running IIS 5 and SQL Server 2000 on a Windows 2000
Server box. I have a web app written to use asp and
VBScript. I am using MDAC 2.7, too. When I try to access a
database using SQLOLEDB.1 from the VBScript I get the
message: "ADODB.Connection (0x800A0E7A)Provider cannot be
found. It may not be properly installed." I reinstalled
MDAC 2.7 with no change in the error. I moved the web app
to a different Windows 2000 Server box and it runs with NO
errors. Also the error occurs when I make a call to the
OPEN for the connection.

Thanks for any help.

Relevent code:

Function MakeConnection()

Dim dcnDB
Dim ConStr

Set dcnDB = Server.CreateObject("ADODB.Connection")

'Set up connection thru provider
ConStr = "Provider=SQLOLEDB;"
ConStr = ConStr & "UID=TOUser;"
ConStr = ConStr & "Persist Security Info=False;"
ConStr = ConStr & "Initial Catalog=" & DBName & ";"
ConStr = ConStr & "Data Source=" & DBServerName & ";"

dcnDB.ConnectionString = Constr

dcnDB.open

Set MakeConnection = dcnDB

End Function

Thanks for all of the responses. As it turned out, after 2
days of searching, I found that the real problem was that
the IUSR_<machine_name> account for IIS did not have
access to the directory that the sqloldb.dll file was in.
I found this by pure luck.

>-----Original Message-----
>I am running IIS 5 and SQL Server 2000 on a Windows 2000
>Server box. I have a web app written to use asp and
>VBScript. I am using MDAC 2.7, too. When I try to access
a
>database using SQLOLEDB.1 from the VBScript I get the
>message: "ADODB.Connection (0x800A0E7A)Provider cannot be
>found. It may not be properly installed." I reinstalled
>MDAC 2.7 with no change in the error. I moved the web app
>to a different Windows 2000 Server box and it runs with
NO
>errors. Also the error occurs when I make a call to the
>OPEN for the connection.
>
>Thanks for any help.
>
>Relevent code:
>
>Function MakeConnection()
>
> Dim dcnDB
> Dim ConStr
>
> Set dcnDB = Server.CreateObject("ADODB.Connection")
>
> 'Set up connection thru provider
> ConStr = "Provider=SQLOLEDB;"
> ConStr = ConStr & "UID=TOUser;"
> ConStr = ConStr & "Persist Security Info=False;"
> ConStr = ConStr & "Initial Catalog=" & DBName & ";"
> ConStr = ConStr & "Data Source=" & DBServerName & ";"
>
> dcnDB.ConnectionString = Constr
>
> dcnDB.open
>
> Set MakeConnection = dcnDB
>
>End Function
>
>
>.
>