Ingenting skrivs ut

<%
Function Free2(txt2)

txt2 = RecSet("meddelande")
txt2 = Replace(txt,vbcrlf,"<BR>")

free2 = txt2
End Function
%>

<% =Free(Free2(RecSet("meddelande")))%>

Ingenting skrivs ut på den raden längst ner, varför gör det inte det?

Behöver väl inte visa Function Free hoppas jag.

txt2 = Replace(txt2,vbcrlf,"<BR>")

Hade visst glömt att ändra där.
Tack så mycket LarsG.