TheCandyman
Technical User
Yes the un-helpful error. I have searched all over, but i can't see a simple problem-fix to this error. I am runing several ASP pages pulling info from a Access DB. I tried this on II6 and also on II5, same error on both systems. I also compact and repaired the DB just incase. But i can open it just fine, so it has to be something in the code that it can't handle.
Error
Provider error '80004005'
Unspecified error
/convention/exhibitor/lib/openconnection.asp, line 15
Code in openconnection.asp
<%
' pStr = "private, no-cache, must-revalidate"
' Response.ExpiresAbsolute = #2000-01-01#
Response.AddHeader "pragma", "no-cache"
' Response.AddHeader "cache-control", pStr
Response.AddHeader "cache-control", "private"'pStr
Response.CacheControl="Public"
' Response.CacheControl = "no-cache"
' Response.Expires = -1
Dim Conn,rs,rs1,rs2,rs3,rs4,strCon
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath ("Regdb/azreg.mdb")
Set Conn = CreateObject("ADODB.Connection")
Conn.mode = 3 ' adModeReadWrite
Conn.open strCon (Line 15)
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Set rs3 = Server.CreateObject("ADODB.Recordset")
Set rs4 = Server.CreateObject("ADODB.Recordset")
%>
Error
Provider error '80004005'
Unspecified error
/convention/exhibitor/lib/openconnection.asp, line 15
Code in openconnection.asp
<%
' pStr = "private, no-cache, must-revalidate"
' Response.ExpiresAbsolute = #2000-01-01#
Response.AddHeader "pragma", "no-cache"
' Response.AddHeader "cache-control", pStr
Response.AddHeader "cache-control", "private"'pStr
Response.CacheControl="Public"
' Response.CacheControl = "no-cache"
' Response.Expires = -1
Dim Conn,rs,rs1,rs2,rs3,rs4,strCon
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath ("Regdb/azreg.mdb")
Set Conn = CreateObject("ADODB.Connection")
Conn.mode = 3 ' adModeReadWrite
Conn.open strCon (Line 15)
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Set rs3 = Server.CreateObject("ADODB.Recordset")
Set rs4 = Server.CreateObject("ADODB.Recordset")
%>