Modificar una tabla de access con asp

[Gacetaragon]

El código de actualizar.asp queda así:

<%
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 "ligas2.asp"

%>