Hola, tengo una página para modificar datos de una BD mediante ASP y utilizando formularios, pero no consigo que funcione, no encuentro el fallo y llevo más de dos semanas intentandolo,el error que me salta es el siguiente
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
El Idsubtitulo es un dato de tipo autonumérico.
Espero que me podais hechar una mano.Gracias de ante mano
Nota: aqui os dejo el codigo
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Servidor Escuela Universitaria de Ingeniería Técnica Industrial de Toledo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="administrador.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FF6633">
<table width="100%" border="0" cellpadding="10">
<tr align="center" valign="middle" class="titulogeneralservidor">
<td>Servidor Escuela Universitaria de Ingeniería Técnica Industrial
de Toledo</td>
</tr>
<tr align="center" valign="middle" bgcolor="#FF3333" class="tituloservidor">
<td> <table width="100%" border="1" cellpadding="10" bordercolor="#FF3333" bgcolor="#FF6633">
<tr bordercolor="#FF3333" bgcolor="#FF3333" class="subtituloservidor">
<td colspan="3"><a href="subtitulos.asp">Subtitulos</a></td>
</tr>
<tr bordercolor="#FF3333" bgcolor="#FF3333" class="subtituloservidor">
<td><a href="subtitulosmod.asp">Modificar</a></td>
<td ><a href="subtitulosins.asp">Insertar</a></td>
<td><a href="subtitulosbor.asp">Borrar</a></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FF3333">
<td width="25%" bordercolor="#FF6633" bgcolor="#FF5033" class="textoservidor">
<!-- #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 "BDadministrador"
Ob_RS.Open "menusubtitulos", Ob_Conn, adOpenStatic, adCmdTable
IF (Request.Form ("Clave") <> "") THEN
Filtro= "Idsubtitulo= " & Request.Form ("Clave")
Ob_RS.Filter = Filtro
FOR EACH Parametro IN Ob_RS.Fields
IF Parametro.Name= "Idsubtitulo" THEN
Ob_RS ("Idsubtitulo")= (Request.Form ("Idsubtitulo"))
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=subtitulosmod.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 ("Idsubtitulo") & "'>"
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 %>
<span class="tituloins">INDIQUE EL SUBTÍTULO QUE DESEA MODIFICAR
</span><BR>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "BDadministrador"
%>
<FORM METHOD="Post" ACTION="subtitulosmod.asp">
<p>NOMBRE DEL SUBTÍTULO:
<%
sSQL="Select Nombresubtitulo From menusubtitulos Order By Nombresubtitulo"
set RS = Conn.Execute(sSQL)
%>
<select name="Nombresubtitulo">
<%
Do While not RS.eof%>
<option><%=RS("Nombresubtitulo")%>
<%RS.movenext
Loop
%>
</select>
</p>
<p align="center">
<INPUT TYPE="Submit" VALUE="Enviar datos">
<INPUT TYPE="Reset" VALUE="Restablecer">
</p>
</FORM>
<% END IF %>
</td>
</tr>
</table>
</body>
</html>