Gracias por tu respuesta. Las conexiones van con un INCLUDE y he cambiado algo el codigo y ya va, quedó así:
crea_menu.asp
Set oConn = Server.CreateObject("ADODB.Connection")
set rsActual = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT serie, orden, nombre, marcado FROM platos order by orden, nombre"
oConn.Open menu00
rsActual.Open SQL, oConn, 1, 2
%>
<form NAME="frmForm" action="actualizar.asp" METHOD="POST">
<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"><%=rsActual.Fields("serie")%>
<INPUT TYPE=HIDDEN Id='txtserie<%=i%>' Name='txtserie<%=i%>' size="1" 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 %>
</table>
</div>
<p align="center">
</p>
<p align="center"> <p align="center">
<INPUT Type=submit value='Guardar' id=cmdGuardar >
<a href="menuadmin.asp"><input type="button" value="Salir" name="B1"></a></p>
<p> </p>
</form>
</BODY>
</html>
actualizar.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Actualización</title>
</head>
<body bgcolor="#800000">
<p align="center"><font size="6" face="Adobe Caslon Pro" color="#FFCC66">Menú Seleccionado</font></p>
<p>
<%
'Abrimos la conexión a la base de datos.
Set oConn = Server.CreateObject("ADODB.Connection")
SQL = "SELECT serie, orden, nombre, marcado FROM platos"
Set oConn = Server.CreateObject("ADODB.Connection")
set rsActual = Server.CreateObject("ADODB.Recordset")
oConn.Open menu00
rsActual.Open SQL, oConn, 1, 2
j = rsActual.RecordCount
rsActual.close
Dim i
'Abrimos la conexión a la base de datos.
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
oConn.Execute strSQL
Next
%>
</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' order by orden, nombre"
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>