Hola
Usa esta función
Código ":
Ver originalFunction SaltosLinea(str)
Dim nueva_linea
nueva_linea = Server.HTMLEncode(str)
nueva_linea = Replace(linea, vbCrLf, "<br />" & vbCrLf, 1, -1, 1)
SaltosLinea = nueva_linea
End Function
Uso
SaltosLinea(campo)
Suerte