Unicode converter

<%

Option Explicit



'Function to convert it

Function convertToUnicode(strTheNonUnicodeInput)



    Dim strFinalUnicodeOutput

    Dim intInputLength

    Dim intUnicodeLooper

    Dim strSingleUniChar

    Dim intCharsLen



    'Initialise looper

    intUnicodeLooper = 0



    'Get inputs length

    intInputLength = len(strTheNonUnicodeInput)



    'Loop through each character

    do until intUnicodeLooper >= intInputLength



        'Take the single char

        strSingleUniChar = mid(strTheNonUnicodeInput,intUnicodeLooper+1,1)



        'Encode it

        strSingleUniChar = Server.HTMLEncode(strSingleUniChar)



        'Remove junk if we need to (if = 1 then it might be &,; or #)

        if len(strSingleUniChar) > 1 then

            strSingleUniChar = replace(strSingleUniChar,"&","")

            strSingleUniChar = replace(strSingleUniChar,";","")

            strSingleUniChar = replace(strSingleUniChar,"#","")

        else

            strSingleUniChar = Asc(strSingleUniChar)

        end if



        'Hex it

        strSingleUniChar = hex(strSingleUniChar)



        'Add leading 0's to make it 4 bytes

        intCharsLen = len(strSingleUniChar)

        do until intCharsLen >= 4

            strSingleUniChar = "0" & strSingleUniChar

            intCharsLen = intCharsLen + 1

        loop



        'Add to final output

        strFinalUnicodeOutput = strFinalUnicodeOutput & strSingleUniChar



        'Increment

        intUnicodeLooper = intUnicodeLooper + 1



    Loop



    'Return the unicode

    convertToUnicode = strFinalUnicodeOutput



End function



response.write(convertToUnicode("ød"))

%>