Asp formlarda türkçe karakterleri düzeltin

[mrtaxy]

Bu kısa fonksiyonu, include file metoduyla dosyanıza ekleyip, formlarınızdan veri alırken "uydur" sözcüğü ile kullanırsanız, Türkçe kararkterler veritabanı dosyanıza ANSI kod olarak kaydedilir ve böylece görüntülenirken bozuk karakter derdiniz olmaz

<% 
Function uydur&#40;karakter&#41;
     duzelt = karakter
     duzelt = Replace&#40;duzelt, "Ş", "Ş"&#41;
     duzelt = Replace&#40;duzelt, "ş", "ş"&#41;
     duzelt = Replace&#40;duzelt, "Ğ", "Ğ"&#41;
     duzelt = Replace&#40;duzelt, "ğ", "ğ"&#41;
     duzelt = Replace&#40;duzelt, "İ", "İ"&#41;
     duzelt = Replace&#40;duzelt, "ı", "ı"&#41;
     duzelt = Replace&#40;duzelt, "Â", "Â"&#41;
     duzelt = Replace&#40;duzelt, "â", "â"&#41;
     duzelt = Replace&#40;duzelt, "Î", "Î"&#41;
     duzelt = Replace&#40;duzelt, "î", "î"&#41;
     duzelt = Replace&#40;duzelt, "Û", "Û"&#41;
     duzelt = Replace&#40;duzelt, "û", "û"&#41;
     duzelt = Replace&#40;duzelt, "'", "'"&#41;
     duzelt = Replace&#40;duzelt, "<", "<"&#41;
     duzelt = Replace&#40;duzelt, ">", ">"&#41;
     uydur = duzelt
End Function
%>

Örnek kullanım :
*.asp nin bulunduğu dizine yukarıdaki kodları notpade yapıştırıp uydur.inc olarak kaydedilip sayfa başına include edilecek;

Form'a alınacak bilgi;

<%
gorus = uydur&#40;Request.Form&#40;"gorusler"&#41;&#41;
%>