Texarea y parrafos

[morte]

<%
' formateo el contenido como texto html añadiendo saltos de linea <br>

dim texto, tmax, salida, ch,aa
texto=set_adiblog.Fields.Item("contenido").Value
tmax=len(texto)-1
salida=""
for i=0 to tmax step 1
ch=mid(texto,i+1,1)
aa=asc(ch)
if aa=10 then
salida=salida & "<br>"
else
salida=salida & ch
end if
next

' fin de formateo
%>

Asi lo he solucionado, gracias a todos y un saludo.