• User

    ASP(VBScript) Aggiornare campo di una checkbox

    Ciao ragazzi .
    E' una settimana che sbatto la taste su libri e guide per risolvere il mio problema ,ma senza venirne a capo ,adesso vi spiego...
    Ho un databese (access) dove al suo interno ho la tabella utenti dove ho dei campi con delle checkbox (Si/No)
    Nel sito in costruzione ho creato una pagina profilo nel quale dovrebbe essere possibile aggiornare i campi ,ma ecco qua l'inghippo ,perchè riesco ad aggiornare solo i campi testo e non quelli checkbox
    Infatti se vado a spuntare la checkbox nel form e successivamente premo invio mi da questo errore

    Provider error '80020005'
    
    Incompatibilità tra tipi.
    
    /modifica3.asp, riga 17
    ```qua di seguito vi riporto la riga 17 della pagina modifica3.asp
    

    rs(8)=request.form("giorno")

    <%
    dim intCodice
    intCodice = request("ID")
    if intCodice<>"" then
    dim strCode
    strCode="MIAPASSWORDDB"
    Set Conn=Server.CreateObject("ADODB.Connection")
    strConn="driver={Microsoft Access Driver (*.mdb)}; "
    strConn=strConn & " DBQ=" & Server.MapPath("database/Utenti.mdb")
    strConn=strConn & ";pwd=" & strCode
    Conn.Open strConn
    sql = "SELECT * FROM Foglio1 WHERE ID="&intCodice
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn ,3,3
    rs(8)=request.form("giorno")
    rs(15)=request.form("utenti")
    rs(16)=request.form("password")
    rs.update
    rs.Close
    set rs = Nothing
    conn.Close
    set conn = Nothing
    %>

    <form action="modifica3.asp" method="POST" name="form1" id="form1">
    <table align="center">
    <tr valign="baseline">
    <td nowrap="nowrap" align="right">Giorno:</td>
    <td><input type="checkbox" name="giorno" value=".."/>
    </td>
    </tr>
    <tr valign="baseline">
    <td nowrap="nowrap" align="right">Utenti:</td>
    <td><input type="text" name="utenti" value="<%=(Recordset1.Fields.Item("utenti").Value)%>" size="32" />
    </td>
    </tr>
    <tr valign="baseline">
    <td nowrap="nowrap" align="right">Password:</td>
    <td><input type="text" name="password" value="<%=(Recordset1.Fields.Item("password").Value)%>" size="32" />
    </td>
    </tr>
    </table>
    <input type="hidden" name="MM_update" value="form1" />
    <input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("ID").Value %>" />
    </form>