<% Function SS (Varstr) BB = "" "for i = 1 to len (varstr) / 2 varchar =" & h "& mid (Varstr, 2 * i-1, 2) bb = bb & chr (varchar) Next SS = BB end function function stob (varstr) str2bin = "" for i = 1 to len (varstr) varchar = mid (Varstr, i, 1) str2bin = str2bin & chrb (ASCB (varchar)) Next Stob = str2bin end function img = "00001414faf5f0fb6df0fbadf0fbdd801bfc70e71fe07ce7d0bbfbd0dbfbb0d7fd70b7fdb077f5d0fbebe0fbdbf01ce780c71c70f7fdf0f7bff0f65df0f5edf00" Response.ContentType = "image / vnd.wap.wbmp"? Response.BinaryWrite stob (ss (img))?%>
?
Personal archive. For personal research. Don't ask me not to understand.