problema update

[carlosfdez]

Pues resulta que quiero hacer una actualizacion a un campo. Simplemente quiero que se incremente en uno cada vez que se visita la pagina pero siempre me da el mensaje:

Tipo de error:
ADODB.Recordset (0x800A0CB3)
El Recordset actual no admite actualizaciones. Puede ser una limitación del proveedor o del tipo de bloqueo seleccionado.

este es el codigo que tengo:
<%
Dim oConn
Dim oConn2
Dim AddVisita
'AddVisita = Cint(objRS("visitas")) + 1
'Response.Write(AddVisita)

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bdforo\bd.mdb"))

strSQL = " SELECT * FROM Tema where Id= " & Request.QueryString("Id")
Set objRS = oConn.Execute(strSQL)
objRS("Visitas") = objRS("Visitas") + 1
objRS.Update


%>

[unholy]

No es un problema de tu codigo, simplemente que tu ISP tiene limitadas las operacioens que puedes realizar en tu site, es una practica bastante comun.

Dile que te levante la restriccion y ya esta.

[carlosfdez]

y que hago?
le doy permiso de escritura a la web?

estoy en Localhost.

[AlZuwaga]

Intentá así:

Código:

<% 
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("bdforo\bd.mdb"))

strSQL = "UPDATE Tema Set Visitas = Visitas + 1 where Id= " & Request.QueryString("Id")
oConn.Execute(strSQL)
%>

[carlosfdez]

una maquina tio...

muchas gracias, funciona a todo comfort...

[AlZuwaga]

de nada, sobrino