יש 2 דרכים להמרת UTF-8. אני לא מכיר משהוא מובנה שעושה את זה, אבל הנה 2 פונקציות שאני משתמש בהם. אחת בשיטת ה-Replace, והשניה עוברת תו תו.
כל מה שאתה צריך לעשות, זה לבחור באחת הפונקציות, לשים אותם בדף שלך, ולקרוא להן.

הקריאה ל-2 הפונקציות מתבצעת באותה דרך!. ההבדל הוא האלגוריתם.

דוגמא לקריאה:

קוד:

dim StrHebText
StrHebText = "שלום!"
StrHebText = HebToUtf(StrHebText)
Response.Write(StrHebText)

הנה עוד דוגמא(רק לשם ההמחשה):

קוד:

Response.Write(HebToUtf("שלום!"))

הפונקציות:
1. הפונקציה הזו, יותר איטית. אבל עם 2 יתרונות.
א. מקשה על הזרקות.
ב. אם אתה רוצה להמיר ל-UTF-8 עוד שפות, אתה צריך לשתמש בה.

קוד:

 
 
function HebToUtf(Str)
dim X
dim TempText
for X = 1 to len(Str)
TempText = mid(Str,x,1)
HebToUtf = HebToUtf & ("&#" & ascw(TempText) & ";")
next
end function
 

2. הפונקציה השניה, יותר מהירה, ובטקסטים ארוכים, היא תפעל הרבה יותר מהר. אבל רק בעיברית!. (אלא אם תוסיף בעצמך עוד) אבל היא לא תמנע הזרקות. (עדיף לך להוריד עם הקובץ, כי כאן הפורום תרגם את זה כבר לאותיות...)

קוד:

 
function HebToUtf(strInputEntry)
strInputEntry = Replace(strInputEntry, "א", "א", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ב", "ב", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ג", "ג", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ד", "ד", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ה", "ה", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ו", "ו", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ז", "ז", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ח", "ח", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ט", "ט", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "י", "י", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "כ", "כ", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ל", "ל", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "מ", "מ", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "נ", "נ", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ס", "ס", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ע", "ע", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "פ", "פ", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "צ", "צ", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ק", "ק", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ר", "ר", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ש", "ש", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ת", "ת", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ם", "ם", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ן", "ן", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ף", "ף", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ך", "ך", 1, -1, 0)
strInputEntry = Replace(strInputEntry, "ץ", "ץ", 1, -1, 0)
HebToUtf=strInputEntry
end function

שים לב!.
אני הייתי ממליץ לך לא לשים אותם בדף שלך, אלא לשים אותם בדף Public שכולם קוראים לו עם include.
כך אם תצתרך לשנות משהוא, לא תצתרך לשנות בכל דף ודף.

עריכה:
מסיבה לא ברורה, הטאבים לא מופיעים. וגם ה-UTF-8 בפונקציה 2... מצ"ב גם בקבצים:
פונקציה1:
https://2008-uploaded.fresh.co.il/2...06/80831508.asp

פונקציה2:

https://2008-uploaded.fresh.co.il/2...06/31632859.asp