Nop la mentable mente no me sirve con Case ya que en la base de datos en el campo valor solo tengo 0 y 1 y al maceno muchos mensajes y con case tendria que tomar cada uno de ellos esta buscando algo como un for pero no estoy seguro, lo que quiero es que si en la base de datos el valor es 0 el mensaje no aparesca y si el valor en la base de datos es 1 el mensaje aparesca.
Ahora para mostrar todos los mensajes estoy ocupando esto
Código:
<%
Do While Not rs1.EOF and tope1 < max
i = 0
Maximo1 = 210
parrafo=rs1("texto")
If len ( parrafo ) > Maximo1 Then
parrafo2 = Split ( parrafo, " " )
parrafo = ""
Do While len ( parrafo ) + len ( parrafo2 ( i ) ) < Maximo1
parrafo = parrafo & " " & parrafo2 ( i )
i = i + 1
Loop
End if %>
<%=rs1.Fields("nombre").value%> <br>
<%=rs1.Fields("mail").value%><br>
<%Response.Write(parrafo)%>
<br>
<br>
<br>
<%
tope1= tope1 +1
rs1.MoveNext
Loop
%>
Espero me entiendas avese soy un poco enredado para explicarme lo siento.
