Неправильная кодировка на ASP

[GIFT]

Поставил код.Ссылки на английском отображаются нормально. Ссылки на русском отображаются в виде кракозябр. На сайте установлена кодировка UTF-8, а в файл sape.inc пишется все с кодировкой windows-1251. Пытался изменить кодировку файла на utf-8 (в это время ссылка стала отображаться корректно),но через некоторое время файл перезаписался с прежней кодировкой win-1251. В самих файлах sapelinks.inc и sape.inc настроек по смене кодировки я не нашел.

Как можно решить данную проблему?

Добавлено через 12 часов 35 минут
Мдя... любителей asp, видимо, не много...

[VAU]

Сообщение от GIFT

Мдя... любителей asp, видимо, не много...

ASP есть. Но везде стоит кодировка Win-1251. Думаю Вам надо лезть в код sapelinks.inc и разбираться как вывести текст в нужной кодировке. Там еще кажется на Джаве этот кусок.
А может проще перенастроить сайт?

[verest]

Кто поможет решить проблему поставленную GIFT??
Насколько я понял эта строчка кода /set f = fso.OpenTextFile(incFileName,2,True,)/ отвечает за запись файла sape.inc, но в OpenTextFile нет возможности записать файл в UTF-8, что делать?

[verest]

меняем эту часть кода.

function saveIncFile(strg)
on error resume next
dim fso
dim f
set fso = Server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile(incFileName,2,true)
f.Write strg
if err<>0 then
saveIncFile = false
response.write "Нет доступа на запись файла: " & incFileName & ". Выставите необходимые права на папку."
exit function
end if
f.Close
set f = Nothing
set fso = Nothing
saveIncFile = true
end function

на эту.

function saveIncFile(strg)
on error resume next
dim fsof
set fsof = Server.CreateObject("ADODB.Stream")
fsof.Type = 2
fsof.Charset = "UTF-8"
fsof.Open()
fsof.WriteText(strg)
fsof.SaveToFile incFileName,2
if err<>0 then
saveIncFile = false
response.write "Нет доступа на запись файла: " & incFileName & ". Выставите необходимые права на папку."
exit function
end if
fsof.Close()
set fsof = Nothing
saveIncFile = true
end function

http://peckin.ru