<%@ Language="VBScript" %>


<%
Dim pollid,act
act	=	Request.QueryString("act")
pollid	=	Request.QueryString("pollid")
%>

<!--#include file="dbconn.asp"-->
<!--#include file="filitre.asp"-->
  <%
IF act = "Yes" Then
  Dim rsAChk,id
  Set rsAChk = Server.CreateObject("ADODB.Recordset")
  rsAChk.open "questions", teksan, 3, 3


	DO UNTIL rsAChk.EOF
	IF rsAChk("active") = "Yes" Then
	id = rsAChk("id")
	  Dim rsActive1
	  Set rsActive1= Server.CreateObject("ADODB.Recordset")
	  rsActive1.open "questions Where id Like '" & id & "'", teksan, 3, 3
		  rsActive1.Update
		  rsActive1("active")     		=	"No"
		  rsActive1.Update
		  rsActive1.close
		  set rsActive1 = nothing
	END IF
	rsAChk.MoveNext
	LOOP


  Dim rsActive2
  Set rsActive2= Server.CreateObject("ADODB.Recordset")
  rsActive2.open "questions Where id Like '" & pollid & "'", teksan, 3, 3
	  rsActive2.Update
	  rsActive2("active")     		=	act
	  rsActive2.Update
	  rsActive2.close
	  set rsActive2 = nothing
	Response.Redirect("anketpol.asp")

ELSE

  Dim rsActive
  Set rsActive= Server.CreateObject("ADODB.Recordset")
  rsActive.open "questions Where id Like '" & pollid & "'", teksan, 3, 3
	  rsActive.Update
	  rsActive("active")     		=	act
	  rsActive.Update
	  rsActive.close
	  set rsActive = nothing
	Response.Redirect("anketpol.asp")
END IF
  %>