Creia que lo había solucionado, pero no. Sigue sin actualizar los datos, aunque no da error.
El campo serie es numerico y el resto de texto.
topadmin.asp es una cabecera y donde_estoy.asp declara las rutas de las BBDD (menu00)
creamenu.asp
<!--#INCLUDE FILE="topadmin.asp"-->
<!--#INCLUDE FILE="donde_estoy.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Crea menu</title>
</head>
<body bgcolor="#800000">
<div align="center">
<font face="Adobe Caslon Pro" size="6" color="#FFCC66">Selección de Platos para Menú
</font>
<table border="1" width="461" id="table2" bgcolor="#FFCC66" cellspacing="1">
<tr>
<td width="20">
<p align="center"><b><font face="Adobe Caslon Pro">Nº</font></b></td>
<td width="40">
<p align="center"><b><font face="Adobe Caslon Pro">Orden</font></b></td>
<td>
<p align="center"><b><font face="Adobe Caslon Pro">Descripción</font></b></td>
<td width="36">
<p align="center"><b><font face="Adobe Caslon Pro">Sí/No</font></b></td>
</tr>
</table>
</div>
<%
'Abrimos la conexión a la base de datos.
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open menu00
set rsActual = Server.CreateObject("ADODB.Recordset")
SQLActual = "SELECT serie, orden, nombre, marcado FROM platos order by orden, nombre"
rsActual.Open SQLActual,Conn
%>
<form NAME="frmForm" action=--WEBBOT-SELF-- METHOD="POST">
<!--webbot bot="SaveResults" U-File="D:\Webferrero\httpdocs\actualizar.asp" S-Format="HTML/BR" -->
<table border="1" width="120" id="table1">
<%
Dim i, strserie
i=0
do while not rsActual.EOF
i = i + 1
strserie=rsActual.Fields("serie")
%>
</table>
<div align="center">
<table border="1" width="461" id="table1" bgcolor="#FFCC66" cellspacing="1">
<tr>
<td width="42" align="center">
<%
response.write(strserie)
%>
<INPUT Type=hidden Id='txtserie<%=i%>' Name='txtserie<%=i%>' size="2" VALUE='<%=rsActual.Fields("serie")%>' >
</td>
<td width="18" align="center">
<INPUT TYPE=num Id='txtorden<%=i%>' Name='txtorden<%=i%>' size="1" VALUE='<%=rsActual.Fields("orden")%>' >
</td>
<td width="358" align="center">
<INPUT TYPE=text Id='txtnombre<%=i%>' Name='txtnombre<%=i%>' size="50" VALUE='<%=rsActual.Fields("nombre")%>' >
</td>
<td width="15" align="center">
<INPUT TYPE=text Id='txtmarcado<%=i%>' Name='txtmarcado<%=i%>' size="1" VALUE='<%=rsActual.Fields("marcado")%>' >
</td>
</tr>
<% rsActual.movenext
loop %>
<INPUT Type=hidden Id='txtRows' Name='txtRows' value='<%=i%>' >
</table>
</div>
</div>
<p align="center">
</p>
<p align="center">
<p align="center">
<a href="actualizar.asp"><img border="0" src="images/button126.jpg" alt="Guardar"></a>
&n bsp;
<a href="menuadmin.asp"><img border="0" src="images/button12A.jpg" alt="Salir"></a></a>
</p>
</p>
</body>
</html>
<script language="JavaScript">
<!--
function mGuardar()
{
document.frmForm.action = 'actualizar.asp';
document.frmForm.submit();
}
-->
</script>
</form>
</BODY>
</html>
actualizar.asp
<!--#INCLUDE FILE="topadmin.asp"-->
<!--#INCLUDE FILE="donde_estoy.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Actualización</title>
</head>
<body onload="FP_preloadImgs(/*url*/'file:///D:/Webferrero/httpdocs/images/button22.jpg', /*url*/'file:///D:/Webferrero/httpdocs/images/button23.jpg', /*url*/'file:///C:/Documents%20and%20Settings/Josu/Configuración%20local/Archivos%20temporales%20de%20Internet/FrontPageTempDir/button28.jpg', /*url*/'file:///C:/Documents%20and%20Settings/Josu/Configuración%20local/Archivos%20temporales%20de%20Internet/FrontPageTempDir/button29.jpg')" bgcolor="#800000">
<p align="center"><font size="6" face="Adobe Caslon Pro" color="#FFCC66">Menú Seleccionado</font></p>
<p>
<%
Dim i
Dim j
If trim(Request("txtRows")) <> "" Then
j= cint(Request("txtRows"))
Else
j = 0
End If
'Abrimos la conexión a la base de datos.
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open menu00
'Set rs = CreateObject("ADODB.Recordset")
For i=1 to j 'Para todos los renglones.
strserie = Clng(Request(txtserie & i))
strorden = trim(Request("txtorden" & i))
strnombre = trim(Request("txtnombre" & i))
strmarcado = trim(Request("txtmarcado" & i))
' -- Ahora actualizo datos
strSQL = "UPDATE platos SET orden='" & strorden & "' , nombre = '" & strnombre & "', marcado = '" & strmarcado & "'"
strSQL = strSQL & " WHERE serie= " & strserie
Conn.Execute strSQL
Next
'Cerramos y liberamos la conexión
'Conn.Close
'Set Conn = Nothing
%>
</p>
<div align="center">
<table border="1" width="461" id="table2" bgcolor="#FFCC66" cellspacing="1">
<tr>
<td width="40">
<p align="center"><b><font face="Adobe Caslon Pro">Orden</font></b></td>
<td>
<p align="center"><b><font face="Adobe Caslon Pro">Descripción</font></b></td>
<td width="36">
<p align="center"><b><font face="Adobe Caslon Pro">Sí/No</font></b></td>
</tr>
</table>
</div>
<%
set rsActual = Server.CreateObject("ADODB.Recordset")
SQLActual = "SELECT serie, orden, nombre, marcado FROM platos where marcado='" & "1'"
rsActual.Open SQLActual,menu00
%>
<form NAME="frmForm" METHOD="post">
<table border="1" width="120" id="table1">
<%
i=0
do while not rsActual.EOF
i = i + 1
'strserie=rsActual.Fields("serie")
%>
</table>
<div align="center">
<table border="1" width="461" id="table1" bgcolor="#FFCC66" cellspacing="1" height="25">
<tr>
<td width="42" align="center">
<p><%=rsActual.Fields("orden")%></p>
</td>
<td width="363" align="center">
<p><%=rsActual.Fields("nombre")%></p>
</td>
<td width="38" align="center">
<p><%=rsActual.Fields("marcado")%></p>
</td>
</tr>
<% rsActual.movenext
loop %>
<INPUT Type=hidden Id='txtRows' Name='txtRows' value='<%=i%>' >
</table>
<p align="center">
<% rsActual.close
set rsActual = nothing
set db = nothing %>
</p>
<p align="center">
<a href="menuadmin.asp"><img border="0" src="images/button21.jpg" alt="Aceptar"></a>
  ;
<a href="javascript:history.back()"><img border="0" src="images/button27.jpg"></a>
</a></p>
</form>
</body>
</html>
Parece que se ejecuta bien, pasa los valores a actualizar.asp pero luego no graba con UPDATE y queda la tabla como estaba.
Gracias por adelentado a quien me pueda hechar un cable.
