Asp türkce karakter sorununu halledebilecek (ücretli)

nasıl hallettıgınızı bizimlede paylaşırsanız dıger arkadaslarında işlerıne yarar..

hala sorun yaşayan arkadaşlar, şunu sayfanın tepesine bi eklesin..

<% @ Language = VBScript CodePage=1254 %>

<% 
Session.CodePage = 1254 
Session.LCID = 1055 
%>
<%Response.Charset="ISO-8859-9"
Response.Charset="Windows-1254"
response.ContentType="text/HTML"
%>

sorunu ben aşağıdaki şekilde hallettim

Function duzz2(Str2)
Str2 = Replace(Str2, "þ", "ş", 1, -1, 1)
Str2 = Replace(Str2, "ý", "ı", 1, -1, 1)
Str2 = Replace(Str2, "Ãœ", "Ü", 1, -1, 1)
Str2 = Replace(Str2, "Þ", "Ü", 1, -1, 1)
Str2 = Replace(Str2, "ÅŸ", "Ş", 1, -1, 1)
Str2 = Replace(Str2, "Ğ“Ñ›", "Ş", 1, -1, 1)
Str2 = Replace(Str2, "Åž", "Ş", 1, -1, 1)
Str2 = Replace(Str2, "ÄŸ", "Ğ", 1, -1, 1)
Str2 = Replace(Str2, "Ç", "Ç", 1, -1, 1)
Str2 = Replace(Str2, "Ä°", "İ", 1, -1, 1)
Str2 = Replace(Str2, "Ğ“Ñœ", "İ", 1, -1, 1)
Str2 = Replace(Str2, "Ğ“â€žĞ’Â°", "İ", 1, -1, 1)
Str2 = Replace(Str2, "Ğ“Ñœ°", "İ", 1, -1, 1)
Str2 = Replace(Str2, "Ö", "Ö", 1, -1, 1)
Str2 = Replace(Str2, "Г–", "Ö", 1, -1, 1)
Str2 = Replace(Str2, "ü", "ü", 1, -1, 1)
Str2 = Replace(Str2, "ü", "ü", 1, -1, 1)
Str2 = Replace(Str2, "ü", "ü", 1, -1, 1)
Str2 = Replace(Str2, "�", "ü", 1, -1, 1)
Str2 = Replace(Str2, "�l�", "ü", 1, -1, 1)
Str2 = Replace(Str2, "Гј", "ü", 1, -1, 1)
Str2 = Replace(Str2, "ГѓВј", "ü", 1, -1, 1)
Str2 = Replace(Str2, "ÅŸ", "ş", 1, -1, 1)
Str2 = Replace(Str2, "Ğ“Ñ“Ğ’Ñ•", "ş", 1, -1, 1)
Str2 = Replace(Str2, "Ğ“Ñ•", "ş", 1, -1, 1)
Str2 = Replace(Str2, "‡Ğ’Ñ—Ğ’Ğ…", "ş", 1, -1, 1)
Str2 = Replace(Str2, "ÅŸ", "ş", 1, -1, 1)
Str2 = Replace(Str2, "þ", "ş", 1, -1, 1)
Str2 = Replace(Str2, "Г…Вџ", "ş", 1, -1, 1)
Str2 = Replace(Str2, "ГѓВ…Г…Вё", "ş", 1, -1, 1)
Str2 = Replace(Str2, "ÄŸ", "ğ", 1, -1, 1)
Str2 = Replace(Str2, "ç", "ç", 1, -1, 1)
Str2 = Replace(Str2, "ГѓВ§", "ç", 1, -1, 1)
Str2 = Replace(Str2, "Г§", "ç", 1, -1, 1)
Str2 = Replace(Str2, "ı", "ı", 1, -1, 1)
Str2 = Replace(Str2, "Ğ“Ñ“Ğ’Ğ…Ğ“Ñ“Ğ’Ğ…", "ı", 1, -1, 1)
Str2 = Replace(Str2, "ý", "ı", 1, -1, 1)
Str2 = Replace(Str2, "ý", "ı", 1, -1, 1)
Str2 = Replace(Str2, "Ğ“Ğ", "ı", 1, -1, 1)
Str2 = Replace(Str2, "ı", "i", 1, -1, 1)
Str2 = Replace(Str2, "ГѓВ¶", "i", 1, -1, 1)
Str2 = Replace(Str2, "�", "i", 1, -1, 1)
Str2 = Replace(Str2, "Ğ“â€žĞ’Â±", "i", 1, -1, 1)
Str2 = Replace(Str2, "Ãâ€?±", "ı", 1, -1, 1)
Str2 = Replace(Str2, "ö", "ö", 1, -1, 1)
Str2 = Replace(Str2, "ö", "ö", 1, -1, 1)
Str2 = Replace(Str2, "Г¶", "ö", 1, -1, 1)
Str2 = Replace(Str2, "ö", "ö", 1, -1, 1)

duzz2 = Str2
End Function

gorduğunuz gibi bazı charset dillerindeki karakterleri türkce karşılıklarını bularak replace ettim

veriyi sayfaya yazdırırkende

<%=duzz2(kullanilacakyer)%>

şeklinde yazdırıyoruz

not: kodları burdan kopyaladıktan sonra textten yani metin belgesinden gecirmeyi unutmayın.

charset i baştan düzeltirseniz bu kodlarla uğraşmaz we sunucuya ek yük bindirmemiş olursunuz..