Hola:
He corregido algún espacio en blanco que daba error del Codigo modificar.asp, además de lo que tú ya habías corregido.
Queda así:
<%
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../db/DHcadete/DHcadete.mdb") & ";"
db.Open DB_CONNECTIONSTRING
set rsActual = Server.CreateObject("ADODB.Recordset")
SQLActual = "SELECT JornadaA, FechaA, LocalA, GolesLA, VisitanteA, GolesVA FROM Portada"
rsActual.Open SQLActual,DB_CONNECTIONSTRING
%>
<html>
<head>
</head>
<body>
<form NAME="frmForm" METHOD="post">
<div align="center">
<table width="100%" cellpadding="0" cellspacing="1" bgcolor="#003366">
<%
Dim i
i=0
do while not rsActual.EOF
i = i + 1
%>
<tr>
<INPUT Type=hidden Id='txtId<%=i%>' Name='txtId<%=i%>' value='<%= JornadaA %>' >
<td bgcolor="#FFFFFF"><p><%=rsActual.Fields("LocalA")% ></p></td>
<td bgcolor="#FFFFFF"><p align="center"><%=rsActual.Fields("GolesLA")%></p></td>
<td bgcolor="#FFFFFF">
<INPUT TYPE=text Id='txtGolesLA<%=i%>' Name='txtGolesLA<%=i%>' VALUE='<%=rsActual.Fields("GolesLA")%>' >
</td>
<td bgcolor="#FFFFFF"><p><%=rsActual.Fields("Visitante A")%></p></td>
<td bgcolor="#FFFFFF"><p align="center"><%=rsActual.Fields("GolesVA")%></p></td>
<td bgcolor="#FFFFFF">
<INPUT TYPE=text Id='txtGolesVA<%=i%>' Name='txtGolesVA<%=i%>' VALUE='<%=rsActual.Fields("GolesVA")%>' >
</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>
<p> </p>
</body>
</html>
<script language="JavaScript">
<!--
function mGuardar()
{
document.frmForm.action = 'Actualizar.asp';
document.frmForm.submit();
}
-->
</script>
Gracias.