Hola buenas tardes:
Despues de dar muchas vueltas buscando, no logro arreglar esto:
Recojo una tabla (platos) de una BD (menu.mdb) y la presento en pantalla para modificar y posteriormente actulizarla con los datos introducidos. El caso es que da este error Error de compilación de Microsoft VBScript (0x800A0400)
Se esperaba una instrucción Actualizar.asp, línea 44 y no encuentro la solucion. Aqui esta el codigo. Los campos son>serie=Autonumerico orden, nombre y marcado=texto
prueba.asp *Recojo y presente en pantalla.
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Pagina prueba 1</title>
</head>
<body>
<%
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../httpsdocs/menu.mdb") & ";"
db.Open DB_CONNECTIONSTRING
set rsActual = Server.CreateObject("ADODB.Recordset")
SQLActual = "SELECT serie, orden, nombre, marcado FROM platos order by serie"
rsActual.Open SQLActual,DB_CONNECTIONSTRING
%>
<form NAME="frmForm" 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 border="1" width="461" id="table1">
<tr>
<td width="42" align="center">
<%response.write(strserie)%>
<INPUT Type=hidden Id='txtserie<%=i%>' Name='txtserie<%=i%>' 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>
<p>
<% rsActual.close
db.close
set rsActual = nothing
set db = nothing %>
</p>
<p>
<INPUT Type=Button onclick='mGuardar();' value='Guardar Cambios' id=cmdGuardar >
</p>
</form>
</BODY>
</HTML>
<script language="JavaScript">
<!--
function mGuardar()
{
document.frmForm.action = 'Actualizar.asp';
document.frmForm.submit();
}
-->
</script>
</html>
actualizar.asp *Actualizar
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Actualización</title>
</head>
<body>
<%
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 db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../httpsdocs/menu.mdb") & ";"
db.Open DB_CONNECTIONSTRING
For i=1 to 10 'Para todos los renglones.
strserie = trim(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 & "'"
db.Execute strSQL
Next
'Cerramos y liberamos la conexión
db.Close
Set db = Nothing
'Redireccionamos a la página principal.
'Reponse.redirect "carga.asp"
/%>
</body>
</html>
Os agradezco de antemeno la ayuda que me podais prestar