Obfuscate Mailto Code v1.01

Here is the ASP function to create an obfuscated mailto.

function createMailto(strEmail)
	dim intCounter 'as integer
	dim strNewAddress 'as string
	dim arrEmail 'as string
	dim strTag 'as string
		
	for intCounter = 1 to len(strEmail)
		strNewAddress = strNewAddress & "&#" & asc(mid(strEmail,intCounter,1)) & ";"
	next 'iCounter
		
	arrEmail = split(strNewAddress,"&#64;")
		
	strTag = "<script language=""Javascript"" type=""text/javascript"">" & vbCrLf
	strTag = strTag & "" & vbcrlf
	strTag = strTag & "</script><noscript>" & arrEmail(0) & " at " & vbcrlf
	strTag = strTag & Replace(arrEmail(1),"&#46;"," dot ") & "</noscript>"
		
	createMailto = strTag
end function

When calling the function, use: <%=createMailto("[email protected]")%>

This work is licensed under a Creative Commons Attribution-ShareAlike 2.5 License allowing you to use this code on your own site as long as you give proper attribution and include the same license. Please drop a link back to my site and let me know if you use it.

You are here

Obfuscate Mailto ASP Code v1.01

Obfuscate Mailto Code v1.01