Reemplaza los retornos de carro por un salto de línea HTML e interpreta TAB's en el texto.
ATENCIÓN: Eliminar de
&-#09; el guión rojo (ocurre que el foro interpreta el TAB en vez de muestrar su código)
Código:
<%
Function txt2htm(txt)
txt2htm = txt
txt2htm = Replace(txt2htm, VBCrLf, "<br>" & VBCrLf)
txt2htm = Replace(txt2htm, CHR(9), "<pre style='display:inline'>&-#09;</pre>")
End Function
%>
Se la llama así:
Código:
<% Response.Write txt2htm(Fuente_de_datos) %>
En donde
Fuente_de_datos puede ser el campo de una BD, el contenido de un archivo de texto, el de un campo de formulario, etc.
Editado el 18/10/2004 porque me tengo que quitar la maldita costumbre de meter "responseS.writeS" dentro de la funciones