Hola
Es un tema ya resulto pero para futuras consultas. En ASP es más conveniente hacerlo así
Código ASP:
Ver originalPublic Function Lineify(strInput)
Dim strTemp
strTemp = Server.HTMLEncode(strInput)
strTemp = Replace(strTemp, vbCrLf, "<br />" & vbCrLf, 1, -1, 1)
Lineify = strTemp
End Function