Sono ancora io Carmen; Purtroppo non sono riuscita del tutto a far funzionare il codice che mi ai suggerito, in quanto la checkbox che seleziono non mi passa il suo valore ma mi trovo sempre il valore (on). Ti invio il pezzo di codice che o fatto ovvero prima la lettura dal database, poi premento sul bottone dovrei effettuare il salvataggio.
<%
' Premento sul bottone salvo i dati nel DB
if request("Submit")="prova" then
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn = "DSN=NomeDSN"
Sql = "Select * from TabellaDB Where id = '" & "1" & "'"
rs.Open SQL, Conn, 1, 3
while not rs.eof
Messag = request("riga") & rs("id")
if Messag="on" then rs.Fields("NomeCampoDB") = true else rs.Fields("NomeCampoDB") = false
rs.Update
rs.movenext
wend
end if
'Apro il DB per la lettura dei dati
Set conn = Server.CreateObject("ADODB.Connection")
Connect = "DSN=nomeDSN"
conn.Open(Connect)
Sql = "Select * from TabellaDB Where pag_id = '" & "1" & "'"
Set rs = conn.execute(Sql)
%>
<title>Prova</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<form name="form1" method="post" action="">
<p>
<% while not rs.eof %>
<input type=checkbox name=riga<%response.write rs("id") & " value=on "
if rs("nomeCampoDB")=-1 then response.write "CHECKED"%>>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</p>
<input type="submit" name="Submit" value="prova">
</form>
</body>
</html>
Ti prego se puoi aiutarmi te ne sarò infinitamente grata.
Ciao
Carmen
