Hola, al intentar crear una pagina para modificar los datos de una base da datos, mediante un formulario, me salta el siguiente error
Tipo de error:
ADODB.Recordset (0x800A0CC1)
Item cannot be found in the collection corresponding to the requested name or ordinal.
El codigo que utilizo es el que sigue,el Idsubtitulo es de tipo autonumerico, el error esta en la linea de color rojo, por favor si alguien pudiera ayudarme se lo agradeceria, es muy urgente
<!-- #INCLUDE File="ADOVBS.inc" -->
<%IF (Request.Form <> "") THEN
Set Ob_Conn = Server.CreateObject ("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Ob_Conn.Open "BDservidor"
Ob_RS.Open "matriculas", Ob_Conn, adOpenStatic, adCmdTable
IF (Request.Form ("Clave") <> "") THEN
Filtro= "Idmatricula= " & Request.Form ("Clave")
Ob_RS.Filter = Filtro
FOR EACH Parametro IN Ob_RS.Fields
IF Parametro.Name= "Idmatricula" THEN
Ob_RS ("Idmatricula")= (Request.Form ("Idmatricula"))
ELSE
Ob_RS (Parametro.Name)= Request.Form (Parametro.Name)
END IF
NEXT
Ob_RS.Update
Response.Write "<H3> Registro modificado </H3>"
ELSE
Poner_AND= False
Filtro= ""
FOR EACH Parametro IN Request.Form
IF Request.Form (Parametro) <> "" AND Parametro <> "PAGINA" THEN
IF Poner_AND THEN
Filtro= Filtro & " AND " & Parametro & "='"
Filtro= Filtro & Request.Form (Parametro) & "'"
ELSE
Filtro= Filtro & Parametro & "='"
Filtro= Filtro & Request.Form (Parametro) & "'"
Poner_AND = True
END IF
END IF
NEXT
Filtro= LCase (Filtro)
Ob_RS.Filter = Filtro
IF Ob_RS.Eof THEN
Response.Write "<H3> No hay ningún registro con esas características </H3>"
ELSE
Response.Write "<TABLE BORDER=1> <TR>"
FOR EACH Parametro IN Ob_RS.Fields
Response.Write "<TH>" & Parametro.Name
NEXT
Response.Write "<TH> Modificar"
DO WHILE NOT Ob_RS.Eof
Response.Write "<TR> <FORM ACTION=cifrasmod.asp METHOD=Post>"
FOR EACH Parametro IN Ob_RS.Fields
Response.Write "<TD> <INPUT NAME=" & Parametro.Name & " VALUE='" & Ob_RS (Parametro.Name) & "'>"
NEXT
Response.Write "<INPUT TYPE=Hidden NAME=Clave VALUE='" & Ob_RS ("Idmatricula") & "'>"
Response.Write "<TD> <INPUT TYPE=Submit VALUE=Modificar> </FORM>"
Ob_RS.MoveNext
LOOP
Response.Write "</TABLE><BR>"
END IF
END IF
Ob_RS.Close
Ob_Conn.Close %>
<% ELSE %>
<H4> ESCRIBA LOS DATOS SOBRE EL APARTADO ALUMNOS MATRICULADOS QUE QUIERE
MODIFICAR </H4>
<BR> <FORM METHOD="Post" ACTION="cifrasmod.asp">
<p>PLAN DE ESTUDIOS:
<input name="Plan" size=50>
</p>
<p>CURSO ACADÉMICO:
<input name="Curso" size=50>
</p>
<p> NÚMERO DE ALUMNOS:
<INPUT NAME="Alumnos" SIZE=10>
<br>
</p>
<p align="center">
<INPUT name="Submit" TYPE="Submit" VALUE="Enviar datos">
<INPUT name="Reset" TYPE="Reset" VALUE="Borrar">
</p>
</FORM>
<% END IF %>
<p></td>
</tr>
</table>