Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <%
- 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") %>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement