Asp text and Memo break line

A lot of time I need to recognize the break line in a text or memo field to sostitute with <br>

At now I resolve this with this code

    <%
dim formtext
formtext=(recordset_field .value)
if formtext <> "" Then
formtext=Replace(formtext, vbcrlf, "<br>")
End if
%>
 <% =formtext %>

Two questions:

1) I need this function for more fields in the same recordset so I need to repeat this script each time with new variable

2)I adopt this solution because if the field is empty the "replace" command generate an error.

I'm sure that for your brain it should be better! (maybe with an extension!!!)

Thanks!

Guido.