Vean esta ves estoy viendo si logro hacer lo que hace este foro de B]negrita[/B] y me muestra negrita y lo he logrado, igual con italic underline links y mailtos pero por separado un ejemplo para cada una utilizo algo asi:
<%
Cadena=Contenido
Cadena=Replace(Cadena,"[/B]","[/B] ")
Cadena=Replace(Cadena,chr(13)," "&chr(13)&" ")
Cadena=Split(Cadena," ")
For i=0 to Ubound(Cadena)
Longitud=Len(Cadena(i))-8
If Instr(Cadena(i),"[B]") Then
B=Mid(Cadena(i),5,Longitud)
Response.Write "<b>"&B&"</b> "
Else
Response.Write Replace(Cadena(i),chr(13),"<br>")&" "
End If
Next
%>
Pero solo me muestra el bold pero como hago para que me muestre todas las opciones que haya en el textbox.
No se si me di a ententer, pero bueno.
Muchas Gracias
No hay nadie que pueda ayudarme..???
