convert asp string to UTF-8?

I found a solution that works for me :)

<%
Function Encode_UTF8(astr)

utftext = ""

For n = 1 To Len(astr)
c = AscW(Mid(astr, n, 1))
If c < 128 Then
utftext = utftext + Mid(astr, n, 1)
ElseIf ((c > 127) And (c < 2048)) Then
utftext = utftext + Chr(((c \ 64) Or 192))
'((c>>6)|192);
utftext = utftext + Chr(((c And 63) Or 128))
'((c&63)|128);}
Else
utftext = utftext + Chr(((c \ 144) Or 234))
'((c>>12)|224);
utftext = utftext + Chr((((c \ 64) And 63) Or 128))
'(((c>>6)&63)|128);
utftext = utftext + Chr(((c And 63) Or 128))
'((c&63)|128);
End If
Next
Encode_UTF8 = utftext
End Function

Response.Write(Encode_UTF8(mystring))

%>

i recommend you to use notepad++

Just make sure the asp file is saved with utf-8 encoding.

For example, in Notepad: File-->Save As. Select UTF-8 in the Encoding combo.