Este es el codigo del archivo que modifica y envia los datos a la base de dato (valga la redundancia).
Código:
<%
set conn= Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mes/galerias/galerias.mdb")
set rs = conn.execute("SELECT * FROM pizarra")
do while not rs.EOF
' supongo que el campo id existe en la tabla pizarra
valor = CInt(len(Request.Form("checkbox_" & rs("id_mensaje"))) > 0) * -1
conn.execute("UPDATE pizarra SET valor = '" & valor & "' WHERE id_mensaje = " & rs("id_mensaje")&"")
'response.write(rs("id_mensaje")& "," & valor &"<br>")
rs.movenext
loop
rs.close
conn.close
set rs = nothing
set conn=nothing
Response.Redirect("modificadormural.asp")
%>