All pastes #117076 Raw Edit

Stuff

public text v1 · immutable
·published 2006-08-05 17:31 UTC
rendered paste body
Function KT(Veri)
dim sonuc
	sonuc = Replace(Veri, "'", "''")
	sonuc = Replace(sonuc, "<", "&lt;")
	sonuc = Replace(sonuc, ">", "&gt;")
	return sonuc
End Function