26May
Asp Türkçe karakter temizleme scripti
 Function Turkce(strveri)
	If strVeri = "" Then Exit Function
		strVeri = Replace(strVeri, "ç", "ç")
		strVeri = Replace(strVeri, "ı", "ı")
		strVeri = Replace(strVeri, "ğ", "ğ")
		strVeri = Replace(strVeri, "ö", "ö")
		strVeri = Replace(strVeri, "ş", "ş")
		strVeri = Replace(strVeri, "ü", "ü")
		strVeri = Replace(strVeri, "Ç", "Ç")
		strVeri = Replace(strVeri, "İ", "İ")
		strVeri = Replace(strVeri, "Ğ", "Ğ")
 		strVeri = Replace(strVeri, "Ö", "Ö")
		strVeri = Replace(strVeri, "Ş", "Ş")
		strVeri = Replace(strVeri, "Ü", "Ü")
		turkce = strveri
 End Function