Ayberk Atasay

Function Temizle(gelenveri)

'Enter a basilinca asagi satira atlama'
gelenveri = Replace(gelenveri ,Chr(13),"<br />"

'Bazi guvenlik onlemleri'
gelenveri = Replace(gelenveri ,"<","& lt;",1,-1,1)
gelenveri = Replace(gelenveri ,">","& gt;",1,-1,1)
gelenveri = Replace(gelenveri ,Chr(34),"&# 34;",1,-1,1)
gelenveri = Replace(gelenveri ,Chr(39),"&# 39;",1,-1,1)

'Turkce Karakter'
gelenveri = Replace(gelenveri ,"C","&# 199;",1,-1,1)
gelenveri = Replace(gelenveri ,"c","&# 231;",1,-1,1)
gelenveri = Replace(gelenveri ,"Ð","&# 208;",1,-1,1)
gelenveri = Replace(gelenveri ,"g","&# 287;",1,-1,1)
gelenveri = Replace(gelenveri ,"S","&# 350;",1,-1,1)
gelenveri = Replace(gelenveri ,"s","&# 351;",1,-1,1)
gelenveri = Replace(gelenveri ,"I","&# 304;",1,-1,1)
gelenveri = Replace(gelenveri ,"i","i",1,-1,1)
gelenveri = Replace(gelenveri ,"U","&# 220;",1,-1,1)
gelenveri = Replace(gelenveri ,"u","&# 252;",1,-1,1)
gelenveri = Replace(gelenveri ,"o","&# 214;",1,-1,1)
gelenveri = Replace(gelenveri ,"o","&# 246;",1,-1,1)
Temizle = gelenveri
End Function