Hi; I have been using an OLEDB connection to SQL Server.  It worked great

for about two weeks.  Then suddenly I started to get this error:





Error Type:

Microsoft OLE DB Provider for SQL Server (0x80004005)

[DBNETLIB][ConnectionOpen (Connect()).]SQL Server does not exist or access

denied.

/Mining/ADO/lifeform.asp, line 22



Line 22 points to my connect string.  I am still able to connect using

Enterprise Manager and with a system DSN using the same userid and password,

only web access is denied.



I think something changed like some permission on the Server.  I am also

unable to send E-mail using CDONTS is there a connection?



Thanks, Rene





<%

dim myconnection

dim connectString



connectstring =  "Provider=sqloledb;" & _

                  "Data Source=NMEMNRDWEB\SQL2000;" & _

                  "Initial Catalog=Coalweb;" & _

                  "User Id=MARPUser;" & _

                  "Password=marp;"



strSQL ="SELECT * FROM ECOViewA WHERE MineID="& Request("MineName")

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

DataConn.Open connectstring



Set RSCRPlist = Server.CreateObject("ADODB.recordset")





RSCRPlist.Open strSQL,DataConn,3



%>