<% Function DoSpace(str) DoSpace = (Replace(str, vbCrlf, "
")) End Function myEmail = "antanio@antanio.com" %>