<%
Dim oConn ' object for ADODB.Connection obj
Dim oRs ' object for output recordset object
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("productos.mdb")
oConn.Execute "Update Productos Set Producto ='Producto2'" _
& "where Productos='Producto1' "
Set oRs = oConn.Execute ( "select * from Productos where Productos" _
& "= 'Producto2'" )
%>
Cambiando Producto: <%= oRs("Producto") %>, <%= oRs("año") %> <P>
<%
oConn.Execute "Update Productos Set Producto ='Producto2'" _
& "where Producto='Producto1' "
Set oRs = oConn.Execute ( "select * from Productos where Producto" _
& "= 'Producto2'" )
%>
y no se pork me origina el sgte error:
Microsoft JET Database Engine (0x80004005)
La operación debe usar una consulta actualizable.
/Update_VBScript.asp, línea 25
(o sea en el texto rojo)

