Lo malo de ASP es que True y False no son los valores 1 y 0 sino -1 y 0
No se si es el error que te produce pero donde uses
if rs(valor) = 1 then
usa
if rs(valor) = 1 or rs(valor) = -1 then
Otra solucion es
blCheckbox = CInt(request("checkbox") <> "") * -1
De todas formas:
Código:
<% Do while rs1.EOF
if rs1("valor") = 1 then 'Esto no tiene su end if y se repite ¿¿??
%>
<%if rs(valor) = 1 then
<%=rs1.Fields("nombre").value%> <br>
<%=rs1.Fields("mail").value%><br>
<%Response.Write(parrafo)%>
end if%>
<%
tope1= tope1 +1
rs1.MoveNext
Loop
%>
Un saludo