<%
Function CerezTemizle(strVeri)

	'// Eğer Değişken Boşsa Fonksiyondan Çıkılıyor
	If IsNull(strVeri) Then Exit Function

	'// Zararlı Kodlar Burada Ayıklanıyor
	strVeri = Replace(strVeri, "&", "")
	strVeri = Replace(strVeri, "<", "")
	strVeri = Replace(strVeri, ">", "")
	strVeri = Replace(strVeri, "[", "")
	strVeri = Replace(strVeri, "]", "")
	strVeri = Replace(strVeri, """", "", 1, -1, 1)
	strVeri = Replace(strVeri, "=", "", 1, -1, 1)
	strVeri = Replace(strVeri, "'", "", 1, -1, 1)
	CerezTemizle = strVeri

End Function

Dim strUyeKodu
Dim blnAdmin
Dim blnEditor
Dim strUyeID
Dim strGirisYapan

strUyeKodu = Request.Cookies(strCerezAdi)("uye")

'// Çerezden gelen veri filtreleniyor
strUyeKodu = CerezTemizle(strUyeKodu)

blnAdmin = False
blnEditor = False

If strUyeKodu = "" Then
	Response.Redirect "login.asp"
Else
	kdGenel.open "SELECT uyeID, seviye, kullanici, kod FROM tblUyeler WHERE uyeID <> 2 AND Kod = '"& strUyeKodu &"'", adoCon, 1, 3
	If kdGenel.EOF Then
		Response.Redirect "login.asp"
	Else
		strUyeID = kdGenel("uyeID")
		strGirisYapan = kdGenel("kullanici")
		If kdGenel("seviye") = 1 then
			blnAdmin = True

		Elseif kdGenel("seviye") = 2 Then
			blnEditor = True
		End If
	End If
	kdGenel.Close
End If
%>