Hola amigos fijense que estoy agregando un registro y guardandolo en la base de datos pero me muestre el siguiente mensaje:
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Microsoft Access] No se puede actualizar. Base de datos u objeto de sólo lectura.
/ingresar.asp, line 39
Les dejo mi codigo ojala me puedan ayudar amigos
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Agregar Registro</title>
<!-- #include file="adovbs.inc" -->
</head>
<body>
<%
thisURL = Request.ServerVariables("PATH_INFO")
Response.Write "<p> El URL de esta pagina es: " & thisURL & _
"</p>" & vbCrLf
Set cnn1 = Server.CreateObject("ADODB.Connection")
openStr = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("coinclub.mdb")
cnn1.Open openStr,"",""
sql = "SELECT url, hitcnt, lasthit " & _
"FROM hitcounts " & _
"Where url = '"&thisURL&"';"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cnn1, adOpenDynamic, adLockPessimistic, adCmdText
If rs.EOF Then
rs.AddNew
rs("url") = ThisURL
CurCount = 1
Else
CurCount = rs("hitcnt") + 1
End If
rs("hitcnt") = CurCount
rs("lasthit") = Now()
rs.Update
Response.Write"<p>Accesos a esta hasta ahora es: " & CurCount & _
"</p>" & vbCrLf
rs.Close
Set rs = Nothing
cnn1.Close
Set cnn1 = Nothing
%>
</body>
</html>
