Dim s As String
Dim hx As String
Open "c:myimage.gif" For Binary Access Read As 1
hx = ""
While (Not EOF(1))
c = Input$(1, 1)
If (c <> "") Then
s = Hex(Asc(c))
If (Len(s) = 1) Then
hx = hx + "0" + s
Else
hx = hx + s
End If
end if
Wend
Debug.Print "The hex-encoded GIF file is: " + hx

Mi sn bloccato su 'input'... 'Hex' in Asp esiste??
Grazie