Function Temizle(strVeri)
	If strVeri = "" Then Exit Function

	strVeri = Replace(strVeri, "<", "&amp;lt;")
	strVeri = Replace(strVeri, ">", "&amp;gt;")
	strVeri = Replace(strVeri, "[", "&amp;#091;")
	strVeri = Replace(strVeri, "]", "&amp;#093;")
	strVeri = Replace(strVeri, """", "", 1, -1, 1)
	strVeri = Replace(strVeri, "=", "&amp;#061;", 1, -1, 1)
	strVeri = Replace(strVeri, "'", "''", 1, -1, 1)
	strVeri = Replace(strVeri, "Select", "sel&amp;#101;ct", 1, -1, 1)
	strVeri = Replace(strVeri, "join", "jo&amp;#105;n", 1, -1, 1)
	strVeri = Replace(strVeri, "union", "un&amp;#105;On", 1, -1, 1)
	strVeri = Replace(strVeri, "where", "wh&amp;#101;re", 1, -1, 1)
	strVeri = Replace(strVeri, "insert", "ins&amp;#101;rt", 1, -1, 1)
	strVeri = Replace(strVeri, "Delete", "del&amp;#101;te", 1, -1, 1)
	strVeri = Replace(strVeri, "Update", "up&amp;#100;ate", 1, -1, 1)
	strVeri = Replace(strVeri, "Like", "lik&amp;#101;", 1, -1, 1)
	strVeri = Replace(strVeri, "drop", "dro&amp;#112;", 1, -1, 1)
	strVeri = Replace(strVeri, "create", "cr&amp;#101;ate", 1, -1, 1)
	strVeri = Replace(strVeri, "modify", "Mod&amp;#105;fy", 1, -1, 1)
	strVeri = Replace(strVeri, "rename", "ren&amp;#097;Me", 1, -1, 1)
	strVeri = Replace(strVeri, "alter", "alt&amp;#101;r", 1, -1, 1)
	strVeri = Replace(strVeri, "cast", "ca&amp;#115;t", 1, -1, 1)
	
	Temizle = strVeri

End Function