Database Error
Can anybody help? I am trying to add to the quick list and get the error listed below. I believe I set up my data source correctly. I've set Security on 'Low' in MS Access. Not sure what else I need to do. Any help appreciated. How do I find out if I have Jet 4.0 installed?
Thanks
Danny Norris
error follows -
Script error: Exception from HRESULT: 0x80020101.
If ucase(Request.ServerVariables("AUTH_USER")) <> ucase("guest") Then
MM_grantAccess = true
End If
If Not MM_grantAccess Then
Response.Redirect("accessdenied.asp")
End If
list = Request.QueryString.Item("Sel")
if list <> "" then
listdb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & hs.getapppath & "/data/tcshoppinglist/Grocery97.mdb"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = listdb
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
<snippit end>
Can anybody help? I am trying to add to the quick list and get the error listed below. I believe I set up my data source correctly. I've set Security on 'Low' in MS Access. Not sure what else I need to do. Any help appreciated. How do I find out if I have Jet 4.0 installed?
Thanks
Danny Norris
error follows -
Script error: Exception from HRESULT: 0x80020101.
If ucase(Request.ServerVariables("AUTH_USER")) <> ucase("guest") Then
MM_grantAccess = true
End If
If Not MM_grantAccess Then
Response.Redirect("accessdenied.asp")
End If
list = Request.QueryString.Item("Sel")
if list <> "" then
listdb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & hs.getapppath & "/data/tcshoppinglist/Grocery97.mdb"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = listdb
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
<snippit end>
Comment