'Convert string between windows-1250 and utf-8 charsets
Dim ByteArray
Set ByteArray = CreateObject("ScriptUtils.ByteArray")

'Read file with source code page.
ByteArray.ReadFrom "some-windows-1250-file.txt"

'Set right code page for the bytearray
ByteArray.CharSet = "windows-1250"

'Convert the data to a destination code page and save them to a second file
ByteArray.CharSetConvert("utf-8").SaveAs "utf-8-output.txt"

<%
'Convert string between windows-1250 and iso-8859-2 charsets
Dim ByteArray
Set ByteArray = CreateObject("ScriptUtils.ByteArray")

'Put some east-europe characters to the bytearray.
'This characters are stored using windows-1250 charset
ByteArray.CharSet = "windows-1250"
ByteArray.String = "ìšèøžýáíé ÌŠÈØŽÝÁÍÉ"

'set output character set
Response.Charset = "iso-8859-2"

'write some ANSI string
Response.Write "Test string: "

'Write source string converted to "iso-8859-2"
Response.BinaryWrite ByteArray.CharSetConvert(Response.Charset)

'same for utf-8
'set output character set
'response.charset = "utf-8"

'write some ANSI string
'response.write "Test string: "

'Write source string converted to "iso-8859-2"
'response.binarywrite ByteArray.CharSetConvert(response.charset)

%>