cosa devo aggiungere a questo codice per far in modo ke appena seleziono la casellina di imput (o deseleziono) il codice mi mette automaticamente True (o False) nel database in cui ho inserito una colonna di tipo si/no di nome aRead?

codice:
<%
dim intCodice
intCodice = request("Id")
if intCodice<>"" then
%>
<HTML>
<HEAD>
<TITLE> Modifica Un Libro Immesso</TITLE>
</HEAD>
<BODY>
<%
dim strCode
strCode="innovatel"
dim intVolta
intVolta="0"

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("libreria.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM libri WHERE Id="&intCodice
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
%>
<FORM METHOD=POST ACTION="modifica3.asp?Id=<%=rs(0)%>">
<TABLE>
<TR>
<TD>Titolo</TD>
<TD><INPUT TYPE="text" NAME="titolo" value="<%=rs(1)%>"></TD>
</TR>
<TR>
<TD>Autore</TD>
<TD><INPUT TYPE="text" NAME="autore" value="<%=rs(2)%>"></TD>
</TR>
<TR>
<TD>Genere</TD>
<TD><INPUT TYPE="text" NAME="genere" value="<%=rs(3)%>"></TD>
</TR>
<TR>
<TD>Letto</TD>
<TD>
    <div align="left">

<input <%If (CStr("aRead") = CStr("True")) Then Response.Write("checked") : Response.Write("")%> type="checkbox" name="aRead" value="">
</div></TD></TR>
<TR>
<TD><INPUT TYPE="submit" value="Modifica"></TD>
<TD></TD>
</TR>
</TABLE>
</FORM>
<%
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
</BODY>
</HTML>
<%
else
response.redirect "modifica1.asp"
end if
%>