opdatering af checkboks problem

if stronline = "" Then
stronline = 0
End If
    response.write strSQL
strSQL = "Update sider set menu = '" & replace(strTitle,"'","''") & "', tekst='" & replace(strContent,"'","''") & "' where side_id=" & intDocumentID & " AND online= " & stronline & " "

længere nede:

<input <%If (CStr(stronline) = true) Then Response.Write("CHECKED") : Response.Write("")%> type="checkbox" name="broadcast">


den opdatere eller sættes ikke?