<%
DIM I
DIM A, B, C, D, E
A = chrb (& HE4) & chrb (& HBA) & chrb (& H9a)
For i = 1 to lenb (a) STEP 3
B = HEX (ASCB (MIDB (A, I, 1)))))
C = HEX (ASCB (MIDB (A, I 1, 1)))))
D = HEX (ASCB (MIDB (A, I 2, 1)))))
E = ("& H" & b and & h0f) * 2 ^ 12 or ("& H" & c and & h3f) * 2 ^ 6 or ("& H" & D and & H3F)
Response.write chrw (e)
NEXT
%>
