al parecer tu problema es que no estas guardando los saltos de linea <BR>
Prueba esto
reemplasas y guardas en la BD
Código:
texto = Replace(texto,vbCrLf,"<BR>")
Código:
<%
Function ArrMemo(cadena)
cadena = Replace(cadena,vbCrLf,"<BR>")
ArrMemo = cadena
End Function
%>
asi lo vuelves a mostrar en la pagina