Public Function ConvertASC (STRIN) DIM I converatsc = "" for i = 1 to len (STRIN) DIM C: C = ASC (MID (Strin, I, 1)) IF ABS (C) <128 THEN ConvertASC = ConvertASC & ChRB (c) Else Dim h: h = hex (c) ConvertASC = ConvertASC & Chrb (int ("& H" & MID (H, 1, 2))) Convertsc = ConvertASC & ChRB (Int ("& H" & MID (H , 3, 2))) Endixten Dunction
DIM A: a = convertasc ("Hello World!") DIM B: B = ConvertASC ("Hello!")
Response.binaryWrite A B
