da un checkbox update un campo di un DB

[tabarto]

Ciao a tutti, vispiego il mio problema:
Ho una Message Board dove quando mi arrivano i messaggi ho tra checkbox per record che sono Read,On Hold e Done. L'utente vede il messaggio e clicca su uno o su tutti i checkbox per mostrare quale e'lo stato del messaggio....
Il problema e' che non riesco ad aggiornare il campo relativo alla checkbox sul database. Il campo sul db e' un campo Si/No...
Ecco il codice del form (che penso sia ok):

<form method="post" action="ControlStatus6.asp">
<td align="center" valign="middle">
<input <% If rs("Read") Then Response.Write("checked") %> type="checkbox" name="Read" value=1 >
</td>
<td align="center" valign="middle">
<input <% If rs("OnHold") Then Response.Write("checked") %> type="checkbox" name="OnHold" value=1 >
</td>
<td align="center" valign="middle">
<input <% If rs("Done") Then Response.Write("checked") %> type="checkbox" name="Done" value=1 >
</td>
<TD align="center" valign="middle">
<input name="Submit" type="image" title="go" src="images/skin/icon024.gif" alt="change status" align="left" width="16" height="16" border="0">
<td align="center" valign="middle">
<input type="hidden" name="IdMessage" value="<%=RS("IDMessageBoard")%>"> </td>
</form>

questo form viene spedito a:

<%
dim checkboxRead,checkboxOnHold,checkboxDone ,idMessage
checkboxRead = trim(request.form("read"))
checkboxOnHold = trim(request.form("OnHold"))
checkboxDone = trim(request.form("Done"))

idMessage = trim(request.form("idMessage"))
sql = "SELECT * FROM MessageBoard WHERE IdMessageBoard =" & idMessage & ";"
Set RS2 = Server.CreateObject("ADODB.Recordset")
RS2.Open Sql, Conn, 2, 2


If Not RS2.BOF or RS2.EOF Then
RS2("Read") = checkboxRead
RS2("OnHold") = checkboxOnHold
RS2("Done") = checkboxDone
RS2.update
Else
response.write("NO RECORDS")
End If

RS2.close
set RS2 = nothing

%>

Se modifico i campi nella tabella del db rivedo la modifica nel form, ma quando provo dalla pagina asp mi da un errore di questo tipo:
Error Type:
Provider (0x80020005)
Type mismatch.
/site/ControlStatus6.asp, line 18
cioe':
RS2("OnHold") = checkboxOnHold
Perche ho selezionato solo Read , come faccio a dirgli che posso selezionare una sola checkbox oppure tutte, help me perche' non lo so fare questo controllo...

[Dirk Pitt]

Prova a modificare così

If rs("Read") = 1 then
check = " checked"
Else
check = ""
End If

<input type="checkbox" name="Read" value=1<%=check%>>

Se funziona lo fai per tutte le altre checkbox, cambiando ovviamente i nomi dei campi.

[Dirk Pitt]

Originariamente inviato da tabarto
<form method="post" action="ControlStatus6.asp">
<td align="center" valign="middle">
<input <% If rs("Read") Then Response.Write("checked") %> type="checkbox" name="Read" value=1 >
</td>
<td align="center" valign="middle">
<input <% If rs("OnHold") Then Response.Write("checked") %> type="checkbox" name="OnHold" value=1 >
</td>
<td align="center" valign="middle">
<input <% If rs("Done") Then Response.Write("checked") %> type="checkbox" name="Done" value=1 >
</td>
<TD align="center" valign="middle">
<input name="Submit" type="image" title="go" src="images/skin/icon024.gif" alt="change status" align="left" width="16" height="16" border="0">
<td align="center" valign="middle">
<input type="hidden" name="IdMessage" value="<%=RS("IDMessageBoard")%>"> </td>
</form>

questo form viene spedito a:

<%
dim checkboxRead,checkboxOnHold,checkboxDone ,idMessage
checkboxRead = trim(request.form("R ead"))
checkboxOnHold = trim(request.form("OnHold"))
checkboxDone = trim(request.form("Done"))

idMessage = trim(request.form("idMessage"))
sql = "SELECT * FROM MessageBoard WHERE IdMessageBoard =" & idMessage
Set RS2 = Server.CreateObject("ADODB.Recordset")
RS2.Open Sql, Conn, 2, 2


If Not RS2.BOF or RS2.EOF Then
RS2("Read") = checkboxRead
RS2("OnHold") = checkboxOnHold
RS2("Done") = checkboxDone
RS2.update
Else
response.write("NO RECORDS")
End If

RS2.close
set RS2 = nothing

%>

[tabarto]

Ciao Dirk Pitt, nel tuo ultimo messaggio non c'erano scritte modifiche vero?

ho provato con il primo suggerimento che mi hai dato ma niente non mi seleziona niente ti posto il codice:
Form:

<input <% If rs("Read") Then Response.Write("checked") %> type="checkbox" name="Read" value=1<%=check%> >

file che controlla:

<%
dim checkboxRead,checkboxOnHold,checkboxDone,idMessage
checkboxRead = trim(request.form("read"))
checkboxOnHold = trim(request.form("OnHold"))
checkboxDone = trim(request.form("Done"))

idMessage = trim(request.form("idMessage"))
sql = "SELECT * FROM MessageBoard WHERE IdMessageBoard =" & idMessage & ";"
'sql = "UPDATE QueryMessageBoardStatus SET status='" & form_dati & "' WHERE idMessageBoard =" & idMessage & ";"
Set RS2 = Server.CreateObject("ADODB.Recordset")
RS2.Open Sql, Conn, 2, 2

If rs2("Read") = 1 then
check = " checked"
Else
check = ""
End If


'If Not RS2.BOF or RS2.EOF Then
'RS2("Read") = checkboxRead
'RS2("OnHold") = checkboxOnHold
'RS2("Done") = checkboxDone
'RS2.update
'Else
'response.write("NO RECORDS")
'End If

RS2.close
set RS2 = nothing

response.Redirect("MessageBoard6.asp")
%>

che ne dici?

[Dirk Pitt]

Sì che c'erano modifiche, scritte in rosa.

[Dirk Pitt]

If rs("Read") = 1 then 
check = " checked" 
Else 
check = "" 
End If

Questo codice lo devi mettere prima di ogni checkbox, quindi prima di

<input type="checkbox" name="Read" value=1<%=check%>>

Poi lo riproduci per le altre checkbox.

[tabarto]

hai ragione ho aggiornato con le tue modifiche ma niente non cambia niente....

[Dirk Pitt]

Prova a fare come ti ho detto io, vedi che funziona.

[tabarto]

ok ho provato se faccio solo il read e' ok il problema viene quando metto gli altri due, mi rende un errore... ecco la form:

<%
If rs("Read") = 1 then
check = " checked"
Else
check = ""
End If
%>
<%
If rs("OnHold") = 1 then
check = " checked"
Else
check = ""
End If
%>
<%
If rs("Done") = 1 then
check = " checked"
Else
check = ""
End If
%> <form method="post" action="ControlStatus6.asp">
<td align="center" valign="middle">
<input <% If rs("Read") Then Response.Write("checked") %> type="checkbox" name="Read" value=1<%=check%> >
</td>
<td align="center" valign="middle">
<input <% If rs("OnHold") Then Response.Write("checked") %> type="checkbox" name="OnHold" value=1<%=check%> >
</td>
<td align="center" valign="middle">
<input <% If rs("Done") Then Response.Write("checked") %> type="checkbox" name="Done" value=1<%=check%> >
</td>
<TD align="center" valign="middle">
<input name="Submit" type="image" title="go" src="images/skin/icon024.gif" alt="change status" align="left" width="16" height="16" border="0">
<td align="center" valign="middle">
<input type="hidden" name="IdMessage" value="<%=RS("IDMessageBoard")%>"> </td>
</form>
che ne dici?
il file che controlla il form e' quello che mi hai detto tu!!!

[tabarto]

per favore qualcuno mi da una mano, please!!!!