Checkbox vil ikke opdatere

Jeg er igang med at lave en lille hjælper til mine studier :)
Vil lave en side hvor jeg skriver alle mine afleveringer ind og så skal der så være to checkboxe der hendholdsvis hedder "lavet" og "afleveret". Men jeg kan ikke få dem opdateret.
Jeg har ledt rundt omkring i gamle spørgsmål men kan ikke finde noget der kan få et til og virke. Her er de relevante koder:

'indsætter data
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from afl"
rs.open sql, conn, 1, 3

rs.addnew
if request("lavet") = "ON" then
rs("lavet") = true
else
rs("lavet") = false
end if
                   
if request("afleveret") = "ON" then
rs("afleveret") = true
else
rs("afleveret") = false
end if
rs.update
                           
rs.close
set rs = Nothing
Response.Redirect("afl.asp")

'læser data
<% if mode = "" then

Set rs = Conn.Execute("select * from afl order by dato desc") %>

<% Do until rs.eof %>
                   
<table border="1" bordercolor="#FFFFFF">

<tr>
    <td bordercolor="#ffffff"><b><font  class="small">Lavet</font></b></td>
    <td bordercolor="#ffffff"><%=rs("lavet")%></td>
</tr>
                   
<tr>
    <td bordercolor="#ffffff"><b><font class="small">Afleveret</font></b></td>
    <td bordercolor="#ffffff"><%=rs("afleveret")%></td>
</tr>
</table>
<%
rs.movenext
loop
rs.close
set rs = nothing

end if
%>

Ligemeget hvad jeg prøver skriver den bare false. Jeg kan ikek få den den til at opdatere. Så har sq brug for lidt hjælp. På forhånd tak