Hola:
Tengo un formulario que lista las noticias con el formato siguiente (la DB es Access):
registro1 posicion (campo texto)
registro2 posicion (campo texto)
y así sucesivamente, donde el usuario tiene que escribir una posicion
Lo que quiero conseguir es que al procesar el formulario se guarde cada posición en su correspondiente registro.
He hecho lo siguiente pero me da el error:
ADODB.Recordset error '800a0cb3' El objeto o proveedor no puede ejecutar la operación requerida.
en la linea que esta en rojo.
Código:
Set Conn= Server.CreateObject("ADODB.Connection")
Set Command= Server.CreateObject("ADODB.Command")
Conn.open "DSN=squashsantiago.com"
Command.ActiveConnection=Conn
Command.CommandType=adCmdText
insertar=True
%>
<table class="gestion" align="center" cellspacing="0" cellpadding="0">
<%if insertar then
For each parametro in Request.Form
posicion=Request.form("posicion")
if posicion => cint(7) then
response.write "muestra el error"
insertar = False
else
Command.ActiveConnection=Conn
Command.CommandText= "select idnoticias from noticias"
Set RsNoticias=Command.Execute ()
response.write "select * from noticias where idnoticias= " & RsNoticias("idnoticias") & " AND idusuarios=" & clave
Command.CommandText= "select * from noticias where idnoticias= " & RsNoticias("idnoticias") & " AND idusuarios=" & clave
Set RsNoticias1=Command.Execute ()
RsNoticias1.addnew
response.write "idnoticias =" & idnoticias & "<br>"
if parametro="" or parametro= null then
parametro=0
RsNoticias1(parametro)=Request.form(parametro)
RsNoticias1.Update
end if
end if
Next
¿en que me estoy equivocando?
Gracias