<%
Response.Charset = "iso-8859-9"
%>
<!--#include file="inc_ayarlar.asp"-->
<!--#include file="inc_fonksiyonlar.asp"-->
<%
blnAnketVar = True

'// Formdan Veriler Alınıyor
intSecenek = Temizle(Request.Form("secenek"))
intAnketID = Temizle(Request.Form("anket"))

If intAnketID = "" Or IsNumeric(intAnketID) = False Then
	blnAnketVar = False

Else
	'// Veri, sayıysa veritabanı kontrolü yapılıyor
	SQL = "SELECT tblAnketSorular.Aktif, tblAnketSorular.Soru, tblAnketSecenekler.Oy, tblAnketSecenekler.Anket_ID, tblAnketSecenekler.Secenek_ID "
	SQL = SQL & " FROM tblAnketSorular, tblAnketSecenekler "
	SQL = SQL & " WHERE tblAnketSorular.Anket_ID = tblAnketSecenekler.Anket_ID AND tblAnketSorular.Anket_ID = "& intAnketID
	SQL = SQL & " AND tblAnketSecenekler.Secenek_ID = "& intSecenek &" And tblAnketSorular.Aktif = True"
	kdGenel.Open SQL, adoCon, 1, 3
	If kdGenel.EOF Then
		blnAnketVar = False
	Else
		intCerezAnketID = Temizle(Request.Cookies("myhaberci")("Anket"& kdGenel("Anket_ID")))
		If intCerezAnketID <> "" Then
			Response.Write "Daha önce oy kullandınız."

		Else
			intGecerliOy = kdGenel("Oy")
			kdGenel("Oy") = intGecerliOy + 1
			kdGenel.Update

			Response.Cookies("myhaberci")("Anket"& intAnketID) = intSecenek
			Response.Cookies("myhaberci").Expires = Date() + 30

			Call AnketSonuc(kdGenel("Anket_ID"))
		End If
		kdGenel.Close

	End If
End If
If blnAnketVar = False Then
	Response.Write "Bir hata oluştu."
End If	
%>