Function KT(Veri)
dim sonuc
	sonuc = Replace(Veri, "'", "''")
	sonuc = Replace(sonuc, "<", "&lt;")
	sonuc = Replace(sonuc, ">", "&gt;")
	return sonuc
End Function