<%
Function Str2Hex(astring)
dim s1, s2, i
s2 = ""
s1 = astring
for i = 1 to Len(s1)
s2 = s2 & Hex(ASC(Mid(s1, i, 1)))
next
Str2Hex= s2
End Function
%>