<%@ Language="VBScript" %>

	<!-- #INCLUDE FILE="Includes/FusionCharts.asp" -->
	<!-- #INCLUDE FILE="Includes/DBConn.asp" -->
	<!-- #INCLUDE FILE="Yonetim/filitre.asp" -->
<%Dim pollid,voteid,msg
pollid	=	Request.Form("pollid")
voteid	=	Request.Form("voteid")
%>


<%
IF Request.Cookies("vote")("pollid" & pollid) = "True" Then
msg	=	"already"
ELSEIF voteid = "" Then
msg	=	"notselect"
%>
<%ELSE%>

<%
ip=Request.ServerVariables("REMOTE_ADDR")
Set rs =Server.CreateObject("ADODB.Recordset")
strSQL="select * from ipvt where polid="&Request.form("polid")&" and ip='"&ip&"'"
rs.Open strSQL,teksan,1,3
if not rs.eof then
else
%>


  <%
Dim Connect, teksan
    Dim sql,rsPoll,votes
      sql = "SELECT * FROM answers Where id Like '" & voteid & "'"
      Set rsPoll = Server.CreateObject("ADODB.Recordset")
      rsPoll.Open sql, teksan, 3, 3
	votes = rsPoll("total_votes")
	votes = votes+1
  %>


  <%
    Dim rsQuestions,totalvotes
      sql = "SELECT * FROM questions Where id Like '" & pollid & "'"
      Set rsQuestions = Server.CreateObject("ADODB.Recordset")
      rsQuestions.Open sql, teksan, 3, 3
      totalvotes		=	rsQuestions("total_votes")
      totalvotes		=	totalvotes+1
  %>
  <%
    Dim rsAnswer
      Set rsAnswer = Server.CreateObject("ADODB.Recordset")
      rsAnswer.open "answers Where id Like '" & voteid & "'", teksan, 3, 3
      rsAnswer.Update
      rsAnswer("total_votes")			=	votes
      rsAnswer.Update
    rsAnswer.close
    set rsAnswer = nothing
  %>
  <%
    Dim rsVote
      Set rsVote = Server.CreateObject("ADODB.Recordset")
      rsVote.open "questions Where id Like '" & pollid & "'", teksan, 3, 3
      rsVote.Update
      rsVote("total_votes")			=	totalvotes
      rsVote.Update
    rsVote.close
    set rsVote = nothing
    Response.Cookies("vote")("pollid" & pollid)	=	"True"
    Response.Cookies("vote").Expires		=	now() + 7	
    msg="voted"
  %>


  <%
    Dim rsfVote
      Set rsfVote = Server.CreateObject("ADODB.Recordset")
      rsfVote.open "ipvt order by id", teksan, 3, 3

ip = Trim (Request.Form ("ip"))
polid = Trim (Request.Form ("polid"))
       rsfVote.addnew
      rsfVote("ip")	= ip
      rsfVote("polid") = polid
      rsfVote.Update
    rsfVote.close
  %>


<%END IF%>
<%END IF%>
<%Response.Redirect("anket_goster.asp?msg="&msg&"")%>