Dim asciiOutput
asciiOutput = hex2ascii(hexInput)

file.Write asciiOutput
file.Close

debugInfo = debugInfo & "File created successfully: " & fileName & "<br>"
Response.Write(debugInfo)

Function hex2ascii(hexText)
    Dim asciiValue, i
    asciiValue = ""

    For i = 1 To Len(hexText) Step 2
        asciiValue = asciiValue & Chr("&h" & Mid(hexText, i, 2))
    Next

    hex2ascii = asciiValue
End Function
%>