Checkbox validador

[tammander]

Con el Select Case

Código:

<%
Do while rs1.EOF
   Select Case rs1("valor") ' En tu ejemplo es rs(valor), no es el mismo recordset
    Case 1 
            response.write(rs1.Fields("nombre").value & "<br />" & vbNewLine)
            response.write(rs1.Fields("mail").value & "<br />" & vbNewLine)
            Response.Write(parrafo & vbNewLine)
   Case Else
            ' Aqui puedes poner lo que quieres que salga cuando valor es 0
   End Select 
      	tope1= tope1 +1
      	rs1.MoveNext
      	Loop
 %>

¿Estas seguro que tienes un campo llamado "valor"?



Un saludo