obfuscateEmail.asp

<%
Function obfuscateEmail(inEmail)
            Dim strOut
            strOut = ""
            strOut = strOut & "<a href=""#"" onmouseover=""this.href='mail'+'to:"
 
            strOut = strOut & Left(Server.UrlEncode(inEmail),3) & "'+'" & Mid(Server.UrlEncode(inEmail),4,1) & "'+'" & Mid(Server.UrlEncode(inEmail),5)
            ' jcrawfo'+'rd%40laur'+'elsprin'+'gs%2Ecom'
 
            strOut = strOut & "'"">"
 
            strOut = strOut & Replace(Replace(inEmail,"@"," [at] "),"."," dot ")
            'jcrawford[at]laurelsprings dot com
 
            strOut = strOut & "</a>"
            obfuscateEmail = strOut
End Function
%>
<% Response.Write obfuscateEmail("jcrawford@laurelsprings.com") %>