Olá, eu já tive este mesmo problema e usei o replace. Aí vai o código:
<%
var = Request("campo")
var1 = Replace(var,Chr(13),"|")
%>
isso vai converter todos os "ENTERS" no caracter | , depois é so converter de volta os "ENTERS"
<%
var = Split(RS("campo"),"|")
For i = 0 To UBound(var)
Response.Write var(i) & "<br>"
Next
%>
Espero ter podido ajudar. Foi assim que eu me arrumei quando tive esse problema. Caso não tenha entendido algo ou tenha algo de errado, poste aki. Valeu