<%@ Language="VBSCRIPT" %>
<%
' asp email address encoder
' example call: response.write emailEncode("siivv@siivv.com")

function emailEncode(email)
	Dim n
	for n = 1 to len(email)
		emailEncode = emailEncode & "&#" & asc(mid(email,n,1)) & ";"
	next
end function
%>