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..