Hola, estoy ahciendo una página, y en concreto en esta que hay una consulta actualizable, me está dando un error que no cinsigo resolver. El código es el siguiente:
<%
'Ident=Request.QueryString("Id")
Dim Conn, Connect_String,Respuesta
Connect_String="Provider=MSDASQL.1;Persist Security Info=False;Data Source=prueba"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Mode = adModeReadWrite
Conn.ConnectionString = Connect_String
Conn.Open
Dim strSQLDeseos
strSQLOtros = "SELECT Otros.* FROM Otros WHERE Id= 1"
Set rsOtros = Server.CreateObject("ADODB.Recordset")
'set rs=Conn.execute(strSQLDeseos)
rsDeseos.Open strSQLOtros, Conn, 3
If rsDeseos.RecordCount = 0 Then
'***no hay Deseos activos***
Response.Write "num=0&kk=1"
Else
response.write(conn.Mode)
'sqlstr="UPDATE Otros SET Activo = 1 WHERE Id=1"
'set rs=Conn.execute(sqlstr)
rsDeseos.MoveFirst
rsDeseos("Activo") = True
rsDeseos.Update
Response.Write "num=1"
End If
rsDeseos.Close
Set rsDeseos = Nothing
Conn.Close
Set Conn = Nothing
%>
Si la ejecuto, me da el siguiente error:
0
ADODB.Recordset error '800a0cb3'
El Recordset actual no admite actualizaciones. Puede ser una limitación del proveedor o del tipo de bloqueo seleccionado.
/mio/modifica.asp, línea 26
El servidor es uno dedicado y obviamente no hay limpitación ni bloqueo alguno, ya que ejecutamos otras aplicaciones ASP sin problemas.
Si funciona correctamente, este código debería ejecutar una consultar que para el registro cuya Id=1 actualizara el campo Activo a Verdedaro.
El campo es un Si/No y la base de datos una Access versión 2000.
Gracias.
