Checkbox validador

[karmish]

este es el codigo que estoy ocupando para que me muestre los checkbox activado o desactivados segun el caso y el valor que tengan en la base de datos (ya sea 0 o 1)

Código:

<table width="100%" border="0" cellpadding="0" cellspacing="0">
                      <!--DWLayoutTable-->
                      <tr> 
                        <td width="125" height="21" align="center" valign="middle" class="tahoma12b">NOMBRE</td>
                        <td width="125" align="center" valign="middle" class="tahoma12b"> 
                          E-MAIL</td>
                        <td width="160" align="center" valign="middle" class="tahoma12b">MENSAJE</td>
                        <td width="80" align="center" valign="middle" class="tahoma12b">ACT/DESA</td>
                        <td width="60" rowspan="4" align="center" valign="middle"><a href="form_modimensajemu.asp?msg=<%=rs.Fields("texto").value%>"><img src="imgs/ico_edit.gif" alt="Modficar Propiedad" width="32" height="32" border="0"></a></td>
                        <td width="60" rowspan="4" align="center" valign="middle"><a href="conf_deletems.asp?msg=<%=rs.Fields("texto").value%>"><img src="imgs/ico_delete.gif" alt="Eliminar Propiedad" width="32" height="32" border="0"></a></td>
                        <td width="2">&nbsp;</td>
                      </tr>
                      <tr> 
                        <td height="1"></td>
                        <td rowspan="2" align="center" valign="middle" class="tahoma11b"><%=rs.Fields("mail").value%></td>
                        <td rowspan="3" align="center" valign="middle" class="tahoma11b"><%=rs.Fields("texto").value%></td>
                        <td rowspan="3" align="center" valign="middle">
						<%if rs("valor") = 1 then
						varCheck = "Checked"
						else
						varCheck = ""
						end if
						%>
						<input name="checkbox" type="checkbox" id="checkbox" value="<%=rs("valor")%>" <%=varCheck%>>
                         
						</td>
                        <td></td>
                      </tr>
                      <tr> 
                        <td rowspan="2" align="center" valign="middle" class="tahoma11b"><%=rs.Fields("nombre").value%> </td>
                        <td height="56">&nbsp;</td>
                      </tr>
                      <tr> 
                        <td height="1"></td>
                        <td></td>
                      </tr>
                      <tr> 
                        <td height="0"></td>
                        <td></td>
                        <td></td>
                        <td></td>
                        <td></td>
                        <td></td>
                        <td></td>
                      </tr>
                    </table>