Que tal Gacetaragon.
Continuando con tu caso.
1.- A la página
modificar.asp, hay que agregarle lo siguiente junto a los tags
que ya tienes, faltaba agregarle un formulario, un botón de guardar y el script que nos manda a la página de actualizar. El código es el siguiente:
Código:
<BODY >
<form NAME="frmForm" METHOD="post">
....
..... .... Código para mostrar la tabla de edición.
....
<INPUT Type=Button onclick='mGuardar();' value='Guardar Cambios' id=cmdGuardar >
.....
</form>
</BODY>
</HTML>
<script language="JavaScript">
<!--
function mGuardar()
{
document.frmForm.action = 'Actualizar.asp';
document.frmForm.submit();
}
-->
</script>
2.-Depués hay que crear una págian llamada
actualizar.asp, la cual tendrá puro codigo VBScript, como el siguiente:
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.
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../db/DHcadete/DHcadete.mdb") & ";"
db.Open DB_CONNECTIONSTRING
For i=1 to j 'Para todos los renglones.
strGolesLA = trim(Request("txtGolesLA" & i))
strGolesVA = trim(Request("txtGolesVA" & i ))
strJornada = trim(Request("txtId" & i ))
If strGolesLA <> "" AND strGolesVA <> "" Then
-- Si hay cantidad en Goles, insertar registro.
StrSQL = "UPDATE Portada SET GolesLA=" & strGolesLA & " , GolesVA= " & strGolesVA
strSQL = strSQL " WHERE JornadaA= " strJornada
'Actualizamos el registro.
db.Execute strSQL
End If
Next
'Cerramos y liberamos la conexión
db.Close
Set db = Nothing
'Redireccionamos a la página principal.
Reponse.redirect "principal.asp"
%>
El código anterior va renglón por renglón para actualizar cada registro en la base de datos.
Varias cosas no estan válidadas, como que lo que introdujo el usuario sea númerico u otro tipo.
Pero creo que tiene la funcionalidad que necesitas.
Caulquier duda por aquí andamos.
Saludos y suerte!!