Host değiştirdim, db tr karakter sorunu oluştu :(

ustalar, yeni bir hosta taşıdım siteyi fakat eski kayıtlar tr karakter sorunu veriyor, yeni eklenenlerde ise en ufak bir hata yok. tüm tr karakterleri kullanabiliyorum. nette araştırdım, aşağıdaki gibi bir çözüm buldum.
<%
Function p13toTR(metin) 'Veritabanından gelen kaydı TR karakterlere çevirme
metin = Replace(metin,"__254__","ş", 1, -1) 'ş
metin = Replace(metin,"__222__","Ş", 1, -1) 'Ş
metin = Replace(metin,"__240__","ğ", 1, -1) 'ğ
metin = Replace(metin,"__208__","Ğ", 1, -1) 'Ğ
metin = Replace(metin,"__221__","İ", 1, -1) 'İ
metin = Replace(metin,"__253__","ı", 1, -1) 'ı
metin = Replace(metin,"__231__","ç", 1, -1) 'ç
metin = Replace(metin,"__199__","Ç", 1, -1) 'Ç
metin = Replace(metin,"__246__","ö", 1, -1) 'ö
metin = Replace(metin,"__214__","Ö", 1, -1) 'Ö
metin = Replace(metin,"__252__","ü", 1, -1) 'ü
metin = Replace(metin,"__220__","Ü", 1, -1) 'Ü
p13toTR = metin
End Function
Function TRtop13(metin) 'Veritabanına girilen kaydı değiştirecek
metin = Replace(metin,"ş", "__254__", 1, -1) 'ş
metin = Replace(metin,"Ş", "__222__", 1, -1) 'Ş
metin = Replace(metin,"ğ", "__240__", 1, -1) 'ğ
metin = Replace(metin,"Ğ", "__208__", 1, -1) 'Ğ
metin = Replace(metin,"İ", "__221__",1, -1) 'İ
metin = Replace(metin,"ı","__253__", 1, -1) 'ı
metin = Replace(metin,"ç","__231__", 1, -1) 'ç
metin = Replace(metin,"Ç","__199__", 1, -1) 'Ç
metin = Replace(metin,"ö","__246__", 1, -1) 'ö
metin = Replace(metin,"Ö","__214__", 1, -1) 'Ö
metin = Replace(metin,"ü", "__252__",1, -1) 'ü
metin = Replace(metin,"Ü","__220__", 1, -1) 'Ü
TRtop13 = metin
End Function
%>
Bu fonksiyonları sayfaya ekledeikten sonra aşağıdaki gibi kullanabilirsiniz...
'Veritabanından gelen kayıtları çevirmede
<%=p13toTR(rs.Fields.Item("fieldname").Value)%>
'Veritabanından girerken
<%=TRtop13(rs.Fields.Item("fieldname").Value)%>
ama ne yazıkki ben bu kodları sayfanın başına include ettiğimde, hiçbir değişiklik olmuyor. ayrıca "metin" kısmını benim veri kayıt değişkenim strVEri olarak değiştiriyorum. birde anlamadığım olay <%=TRtop13(rs.Fields.Item("fieldname").Value)% --- <%=p13toTR(rs.Fields.Item("fieldname").Value)%> taglarını nereye yerleştireceğiz, değiştirmemiz gereken herhangi bir yer var mı ?? yardımlarınızı bekliyorum, tşk..

ıımmm şöyle yaparsan olur sanırım

mesela datadan vri çekiyorsun uyead çekçen orneğin
uyead=pr13totr("uyead")
şeklinde olucak o otomatikolarak tüm verileri tr karakterlerne çeviricek
diğeri ise kayıt girerken kulanman gerekiyor ama diyorsun ki yeni kayıtlarda zaten sorun olmuyor o zaman yazmana da gerek yok
ama yazman gerekirse
mesela formda uya ad alıcan şöyle yapıcan

uyead=trtop13(Request.form("uyead"))
bu sorununu çözer sanırım

kolay gelsin

pm attım ilgilenirsen sevinirim...

bildiğimiz replace işlemini uygulaman yeterli zaten

hepinize tşk. sorunum düzeldi .

Blue_mist34 kardeşimede yardımları için ayrıca tşk ediyorum ..

cok tesekkurler

madem konu açılmış benimde bu konuda bi sorunum var

ð = ğ ý = ı

böyle bi kaç tane daha var eski sunucu abd deydi, orada access e böyle yazmış
şimdi tr ye geçince ý y olarak görünüyor ama halbüki o y değil o " ı "
replace kodları ile düzeltmeye çalışıyorum olmuyor, yani oluyor da şöle unicode filan die bi hata veriyor
kaydetmiyor , farklı kaydet diyincede , host a attığım zaman çalıştırmıyor, unicode blablabla satır 1

filan die bi hata veriyor host çalıştırmıyor
ne yapmam lazım