In the world of spammers you need to hide your email addresses. This is a great way of changing your emails into Ascii. It will randomise your email. If your email is p@p.com it could either right it as p@p.com or p@p.com. This will confuse most spiders.
Firstly make a file, so you can use it often and called it something like email_obfuscate.asp and paste this into it.
<%
function obfuscate(text)
dim i, j, k
randomize
for i = 1 to len(text)
j = int((2 * rnd) + 1)
if (j = 2) then
obfuscate = obfuscate & mid(text, i, 1)
else
k = int((2 * rnd) + 1)
if (k = 2) then
obfuscate = obfuscate & “&#” & asc(mid(text, i, 1)) & “;”
else
obfuscate = obfuscate & “&#x” & lcase(hex(asc(mid(text, i, 1)))) & “;”
end if
end if
next
k = int((2 * rnd) + 1)
if (k = 2) then
obfuscate = replace(obfuscate, “@”, “@”)
else
obfuscate = replace(obfuscate, “@”, “@”)
end if
end function
%>
Then include the file into your new file like this:
<!–#include file=”email_obfuscate.asp” –>
Then to call it you can do this:
<a href=”mailto:<%=obfuscate(rs1.Fields.Item(“email”).Value)%>”><%=obfuscate(rs1.Fields.Item(“email”).Value)%></a>
Hope that helps.
