creo que tu problema se encuentra aca
te recomiendo ver los valores que arroja la variable J
con un response. write(J) y un response.end() justo abajo del end If que asigna el valor a esta variable ya que por lo visto siempre asigna el valor 0
asiendo que tu bucle for nunca se ejecute
For i=1 to j 'Para todos los renglones.
si es asi tendras que ver vien los valores que rescatas en este caso la variable
Request("txtRows") , tambien recomiendo hacer un response.write(Request("txtRows")) para ver sus valores
Código:
<%
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
%>
Saludos