RE:Actualización múltiple registros de una tabla
A ver si este codigo (de mi cosecha) puede ayudarte si no lo entiedes dimelo y te lo mando comentado.
usa dos paginas una para mostrar y otra para actualizar, todos los archivos se supone estan en la misma ubicacion incluido la base de datos access.
MOSTRAR.asp
=================================================================
<FORM NAME=Form1 METHOD=Post ACTION="actualizar.asp">
<% ' Crear una Conexion.
Dim query ,filePath
filePath = Server.MapPath("empleados.mdb")
set Con = Server.createObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
' Crear el recordset con la tabla que queremos manipular
query="select * from empleados"
set rs = Server.createObject("ADOdb.Recordset")
rs.Open query,Con
<!-- esamos los registros para llenar el form. -->
rs.MoveFirst()
Response.Write "<TABLE border=1><TR><TD>NOMBRES</TD><TD>SUELDOS</TD></TR>"
Do Until rs.EOF
Response.Write "<TR><TD>" & rs("Nombres") "</TD><TD> <INPUT TYPE='TEXT' NAME='" & rs("Codigo") & "' VALUE=" & rs("Sueldo") & "></TD></TR> "
rs.MoveNext
Loop %>
</TABLE>
<INPUT TYPE=Submit VALUE="Guardar">
</FORM>
==================================================================
ACTUALIZAR.asp
==================================================================
<% ' Crear una Conexion.
Dim query , Con, rs
Dim cod,sueldos,filePath,Actualizo
filePath = Server.MapPath("empleados.mdb")
set Con = Server.createObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
' Crear el recordset con la tabla que queremos manipular
query="select * from Empleados"
set rs = createObject("ADOdb.Recordset")
rs.Open query,Con,3,3
' Actualizamos base de datos conlos datos del form -->
'suponendo q los campos 0=Codigo, 1=Nombres,2=sueldo
rs.MoveFirst()
Do Until rs.EOF
cod=rs.Fields(0).Value
sueldos=Request.form(cod)
if sueldos<> rs.Fields(2).Value then
Actualizo=true
rs.Fields(2).Value=sueldos
rs.Update
end if
rs.MoveNext
Loop
'Response.Redirect "MOSTRAR.asp" ( podrias usar esta sola linea en lugar de todo el codigo de abajo )
if Actualizo then
response.write "<script language=""Vbscript""> MsgBox""Base De Datos Actualizado"", VBOKONLY, ""Ejemplo de ADODB"" "
else
response.write "<script language=""VBscript""> MsgBox""No se realizaron Canmbios"", VBOKONLY,""Ejemplo de ADODB"" "
end if
response.write chr(13) & chr(10) & "location=""adodb.asp""</script>"
%>
==============================================================