PERDONAD LA TARDANZA, mil disculpas he estado muy liado, aqui va el codigo
---------------------------------------------------------------------------------------------------
asistencia.asp
--------------------------------------------------------------------------------------------------
<%
'Dimension variables
Dim vargrup
'Read in the record number to be updated
vargrup = CLng(Request.QueryString("grup"))
%>
<html>
<head>
<title>AULA</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css">
<!--
body {
background-color: #999999;
}
.Estilo1 {font-family: Arial, Helvetica, sans-serif}
body,td,th {
font-family: Arial, Helvetica, sans-serif;
font-size: 12px;
}
.Estilo2 {
font-size: 18px;
color: #990000;
}
a:link {
color: #993333;
text-decoration: none;
}
a:visited {
color: #993333;
text-decoration: none;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.Estilo10 {font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold; }
a {
font-size: 12px;
color: #CC0033;
font-weight: bold;
}
.Estilo12 {font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold; color: #FF0000; }
.Estilo13 {color: #000066}
.Estilo14 {font-size: 14px}
-->
</style></head>
<body>
<form action="modificarasistencia.asp" method="post" onsubmit = "return validar(this)" >
<H1 align="left" class="Estilo1 Estilo2">CONTROL ASSISTENCIA </H1>
<div align="left">
<table width="617" border="1" bordercolor="#999999">
<tr>
<td width="172"><div align="left"><span class="Estilo1 Estilo14"><strong>PACIE<strong>NTS </strong></strong></span></div></td>
<td width="429"><div align="left"></div></td>
</tr>
</table>
<div align="left">
<%
Dim vargrup2
'Read in the record number to be updated
vargrup2 = CLng(Request.QueryString("grup"))
Dim oConn,strSQL, objRS
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("aula.mdb"))
strSQL = "SELECT * FROM usuari, Assistents WHERE Assist_codi_usuari=Id_usuari and Assist_codi_grup=" & vargrup2& "
Set objRS = oConn.Execute(strSQL)
%>
<%
contador=0
%>
</div>
<TABLE width="652" height="33" BORDER=1 CELLPADDING=1 CELLSPACING=1 bgcolor="#CCCCCC">
<TR>
<TD width="67" height="29"><span class="Estilo10"> Cip</span></TD>
<TD width="97"><span class="Estilo10"> Cognom1</span></TD>
<TD width="85"><span class="Estilo10"> Cognom2</span></TD>
<TD width="54"><div align="center"><strong>Nom</strong></div></TD>
<TD width="80"><div align="center"><span class="Estilo12"> <span class="Estilo13">Sessio 1</span></span></div></TD>
<TD width="74"><div align="center"><span class="Estilo12"> <span class="Estilo13">Sessio 2</span></span></div></TD>
<TD width="73"><div align="center"><span class="Estilo12"> <span class="Estilo13">Sessio 3</span></span></div></TD>
<TD width="79"><div align="center"><span class="Estilo12"> <span class="Estilo13">Sessio 4</span></span></div></TD>
<TD width="79"><div align="center"><span class="Estilo12"> <span class="Estilo13">Sessio 5</span></span></div></TD>
<TD width="79"><div align="center"><span class="Estilo12"> <span class="Estilo13">Sessio 6</span></span></div></TD>
<TD width="79"><div align="center"><span class="Estilo12"> <span class="Estilo13">Sessio 7</span></span></div></TD>
<TD width="79"><div align="center"><span class="Estilo12"> <span class="Estilo13">Sessio 8</span></span></div></TD>
<TD width="79"><div align="center"><span class="Estilo12"> <span class="Estilo13">Sessio 9</span></span></div></TD>
<TD width="79"><div align="center"><span class="Estilo12"> <span class="Estilo13">Sessio 10</span></span></div></TD>
<TD width="79"><div align="center"><span class="Estilo12"> <span class="Estilo13">Sessio 11</span></span></div></TD>
<TD width="79"><div align="center"><span class="Estilo12"> <span class="Estilo13">Sessio 12</span></span></div></TD>
</TR>
<%
while (not objRS.Eof)
Response.Write("<tr><td> " & objRS("codi_usuari") & "</td><td> " & objRS("Tcog1")& "</td><td> "& objRS("Tcog2")& "</td><td> " & objRS("Tnom") & "</td> ")%>
<td> <input name="F_codi_usuari" type="hidden" id="F_codi_usuari" value="<% = objRS("Assist_codi_usuari")%>">
<input name="F_codi_grup" type="hidden" id="F_codi_grup" value="<% = objRS("Assist_codi_grup")%>">
<input name="fdia1" type="checkbox" id="fdia1"tabindex="9" ONCLICK="mostrar_ocultar(this.checked);" <%if objRS("Assist_1")="on" then%>CHECKED<%end if%>>
</td>
<td>
<input name="fdia2" type="checkbox" id="fdia2"tabindex="9" ONCLICK="mostrar_ocultar(this.checked);" <%if objRS("Assist_2")="on" then%>CHECKED<%end if%>>
</td>
<td>
<input name="fdia3" type="checkbox" id="fdia3"tabindex="9" ONCLICK="mostrar_ocultar(this.checked);" <%if objRS("Assist_3")="on" then%>CHECKED<%end if%>>
</td>
<td>
<% contador=contador+1 %>
<input name="fdia4" type="checkbox" id="fdia4"tabindex="9" ONCLICK="mostrar_ocultar(this.checked);" <%if objRS("Assist_4")="on" then%>CHECKED<%end if%>>
</td>
<td>
<input name="fdia5" type="checkbox" id="fdia5"tabindex="9" ONCLICK="mostrar_ocultar(this.checked);" <%if objRS("Assist_5")="on" then%>CHECKED<%end if%>>
</td>
<td>
<input name="fdia6" type="checkbox" id="fdia6"tabindex="9" ONCLICK="mostrar_ocultar(this.checked);" <%if objRS("Assist_6")="on" then%>CHECKED<%end if%>>
</td>
<td>
<input name="fdia7" type="checkbox" id="fdia7"tabindex="9" ONCLICK="mostrar_ocultar(this.checked);" <%if objRS("Assist_7")="on" then%>CHECKED<%end if%>>
</td>
<td>
<input name="fdia8" type="checkbox" id="fdia8"tabindex="9" ONCLICK="mostrar_ocultar(this.checked);" <%if objRS("Assist_8")="on" then%>CHECKED<%end if%>>
</td>
<td>
<input name="fdia9" type="checkbox" id="fdia9"tabindex="9" ONCLICK="mostrar_ocultar(this.checked);" <%if objRS("Assist_9")="on" then%>CHECKED<%end if%>>
</td>
<td>
<input name="fdia10" type="checkbox" id="fdia10"tabindex="9" ONCLICK="mostrar_ocultar(this.checked);" <%if objRS("Assist_10")="on" then%>CHECKED<%end if%>>
</td>
<td>
<input name="fdia11" type="checkbox" id="fdia11"tabindex="9" ONCLICK="mostrar_ocultar(this.checked);" <%if objRS("Assist_11")="on" then%>CHECKED<%end if%>>
</td>
<td>
<input name="fdia12" type="checkbox" id="fdia12"tabindex="9" ONCLICK="mostrar_ocultar(this.checked);" <%if objRS("Assist_12")="on" then%>CHECKED<%end if%>>
</td>
<%
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
<input name="F_contador" type="hidden" class="mayusculas" id="Fxeramp4" tabindex="1" value=<% =contador%> size="2" maxlength="2">
</table>
</div>
<input type="submit" name="accion" value="Guardar">
</form>
</body>
</html>
---------------------------------------------------------------------------------------------
modificarasistencia.asp
----------------------------------------------------------------------------------------------
<%
Dim adoCon 'Holds the Database Connection Object
Dim rsUpdateEntry 'Holds the recordset for the record to be updated
Dim strSQL 'Holds the SQL query for the database
Dim lngRecordNo 'Holds the record number to be updated
Dim grup
Dim usuari
contador= CLng(Request.Form("F_contador"))
contadornuevos=1
contadorindice=0
for contadorindice=1 to contador
grup = CLng(Request.Form("F_codi_grup")(contadorindice))
usuari = CLng(Request.Form("F_codi_usuari")(contadorindice) )
Response.Write("<tr><td> " &Request.Form("F_codi_grup")(contadornuevos) & "</td><td>")
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("aula.mdb")
Set rsUpdateEntry = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Assistents.* FROM Assistents WHERE Assist_codi_grup=" & grup & "and Assist_codi_usuari=" & usuari
rsUpdateEntry.CursorType = 2
rsUpdateEntry.LockType = 3
rsUpdateEntry.Open strSQL, adoCon
rsUpdateEntry.Fields("Assist_1") = Request.Form("fdia1")
rsUpdateEntry.Fields("Assist_2") = Request.Form("fdia2")
rsUpdateEntry.Fields("Assist_3") = Request.Form("fdia3")
rsUpdateEntry.Update
rsUpdateEntry.Close
Set rsUpdateEntry = Nothing
Set adoCon = Nothing
contadornuevos=contadornuevos+1
NEXT
Response.Redirect "relaciousuaris.asp"
%>