<%

function temizle(cozum)
cozum = Replace(cozum,"--","",1,-1,1) 
cozum = Replace(cozum,"`","",1,-1,1) 
cozum = Replace(cozum,"=","",1,-1,1) 
cozum = Replace(cozum,"%","",1,-1,1) 
cozum = Replace(cozum,"!","",1,-1,1) 
cozum = Replace(cozum,"#","",1,-1,1) 
cozum = Replace(cozum,"<","",1,-1,1) 
cozum = Replace(cozum,">","",1,-1,1) 
cozum = Replace(cozum,"*","",1,-1,1) 
cozum = Replace(cozum,"'","",1,-1,1) 
cozum = Replace(cozum,"Chr(34)","",1,-1,1) 
cozum = Replace(cozum,"Chr(39)","",1,-1,1) 
cozum = Replace(cozum,"select","",1,-1,1) 
cozum = Replace(cozum,"join","",1,-1,1) 
cozum = Replace(cozum,"union","",1,-1,1) 
cozum = Replace(cozum,"where","",1,-1,1) 
cozum = Replace(cozum,"insert","",1,-1,1) 
cozum = Replace(cozum,"delete","",1,-1,1) 
cozum = Replace(cozum,"update","",1,-1,1) 
cozum = Replace(cozum,"like","",1,-1,1) 
cozum = Replace(cozum,"drop","",1,-1,1) 
cozum = Replace(cozum,"create","",1,-1,1) 
cozum = Replace(cozum,"modify","",1,-1,1) 
cozum = Replace(cozum,"rename","",1,-1,1) 
cozum = Replace(cozum,"alter","",1,-1,1) 
cozum = Replace(cozum,"cast","",1,-1,1) 
cozum = Replace(cozum,"'" ,"" ,1,-1,1) 
cozum = Replace(cozum,"script" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"SCRIPT" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"Script" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"script" , "" , 1, -1, 1 )  
cozum = Replace(cozum,"object" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"OBJECT" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"Object" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"object" , "" , 1, -1, 1 )  
cozum = Replace(cozum,"applet" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"APPLET" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"Applet" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"applet" , "" , 1, -1, 1 )  
cozum = Replace(cozum,"embed" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"EMBED" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"Embed" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"embed" , "" , 1, -1, 1 )  
cozum = Replace(cozum,"event" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"EVENT" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"Event" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"event" , "" , 1, -1, 1 )  
cozum = Replace(cozum,"document" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"DOCUMENT" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"Document" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"document" , "" , 1, -1, 1 )  
cozum = Replace(cozum,"cookie" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"COOKIE" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"Cookie" , "" , 1, -1, 0 )  
cozum = Replace(cozum,"cookie" , "" , 1, -1, 1 )  
cozum = Replace(cozum,"document.cookie" , "" , 1, -1, 1 )  
cozum = Replace(cozum,"javascript:" , "" , 1, -1, 1 )  
cozum = Replace(cozum,"vbscript " , "" , 1, -1, 1 )  
cozum = Replace(cozum,"SELECT" , "" , 1, -1, 1 )  
cozum = Replace(cozum,"DROP" , "" , 1, -1, 1 )  
cozum = Replace(cozum,";" , "" , 1, -1, 1 )  
cozum = Replace(cozum,"--" , "" , 1, -1, 1 )  
cozum = Replace(cozum,"INSERT" , "" , 1, -1, 1 )  
cozum = Replace(cozum,"DELETE" , "" , 1, -1, 1 )  
cozum = Replace(cozum,"xp_" , "" , 1, -1, 1 )  
cozum = Replace(cozum,"UNION" , "" , 1, -1, 1 )  
cozum = Replace(cozum,"'" , "" )  
temizle=cozum 
end function

function yaritemizle(cozum)
cozum = Replace(cozum,"'","`",1,-1,1) 
yaritemizle=cozum 
end function

%>

<%
function TestCaptcha(byval valSession, byval valCaptcha)
	dim tmpSession
	valSession = Trim(valSession)
	valCaptcha = Trim(valCaptcha)
	if (valSession = vbNullString) or (valCaptcha = vbNullString) then
		TestCaptcha = false
	else
		tmpSession = valSession
		valSession = Trim(Session(valSession))
		Session(tmpSession) = vbNullString
		if valSession = vbNullString then
			TestCaptcha = false
		else
			valCaptcha = Replace(valCaptcha,"i","I")
			if StrComp(valSession,valCaptcha,1) = 0 then
				TestCaptcha = true
			else
				TestCaptcha = false
			end if
		end if		
	end if
end function
%>

<%
Function TurkceKarakter(CevirTr)
	CevirTr=Replace(CevirTr,"Ö","O")
	CevirTr=Replace(CevirTr,"ö","o")
	CevirTr=Replace(CevirTr,"Ü","U")
	CevirTr=Replace(CevirTr,"ü","u")
	CevirTr=Replace(CevirTr,"İ","I")
	CevirTr=Replace(CevirTr,"ı","i")
	CevirTr=Replace(CevirTr,"Ş","S")
	CevirTr=Replace(CevirTr,"ş","s")
	CevirTr=Replace(CevirTr,"Ç","C")
	CevirTr=Replace(CevirTr,"ç","c")
	CevirTr=Replace(CevirTr,"Ş","S")
	CevirTr=Replace(CevirTr,"ş","s")
	CevirTr=Replace(CevirTr,"Ğ","G")
	CevirTr=Replace(CevirTr,"ğ","g")
	CevirTr=Replace(CevirTr,"'","")
	CevirTr=Replace(CevirTr," ","_")
	CevirTr=Replace(CevirTr,"-","_")
	CevirTr=Replace(CevirTr,"%","_")
	TurkceKarakter=CevirTr
End function


'// Onay Kodu oluşturma Fonksiyonu (WebWiz Forum)
Private Function hexValue(ByVal intHexLength)

	Dim strHexValue

	Randomize Timer()

	For intLooper = 1 to intHexLength

		intHexLength = CInt(Rnd * 1000) Mod 16

		Select Case intHexLength
			Case 1
				strHexValue = "1"
			Case 2
				strHexValue = "2"
			Case 3
				strHexValue = "3"
			Case 4
				strHexValue = "4"
			Case 5
				strHexValue = "5"
			Case 6
				strHexValue = "6"
			Case 7
				strHexValue = "7"
			Case 8
				strHexValue = "8"
			Case 9
				strHexValue = "9"
			Case 10
				strHexValue = "A"
			Case 11
				strHexValue = "B"
			Case 12
				strHexValue = "C"
			Case 13
				strHexValue = "D"
			Case 14
				strHexValue = "E"
			Case 15
				strHexValue = "F"
			Case Else
				strHexValue = "Z"
		End Select

		hexValue = hexValue & strHexValue
	Next
End Function
%>