<!--#include virtual="/common/lib/dbcon.asp"-->
<!--#include virtual="/common/lib/func.asp"-->
<!--#include file="config.asp"-->
<%

por_mid		= InputValue(request("por_mid"))
po_pk		= InputValue(request("po_pk"))
por_ip		= Request.ServerVariables("REMOTE_ADDR") 

response.cookies("poll_ck"&po_pk)=""
if request.cookies("poll_ck"&po_pk)="" then

	response.cookies("poll_ck"&po_pk) = "checked"

	chk = Replace(request("chk")," ","")
	arr_chk = Split(chk,",")

	For z=0 To UBound(arr_chk)
		por_result = request("q_"&arr_chk(z))

		R_Fields_i = "por_result, por_mid, por_wdate, po_pk, poq_idx, por_ip"
		por_wdate	= getDateFm(now,3)
		poq_idx	= arr_chk(z)

		Call InsertQuery(R_Fields_i, "poll_result")

	next

	' 참여자 추가
	sql = "update poll set po_count = po_count + 1 Where po_pk = "&po_pk
	Dbcon.execute sql

else

	Call Back_back("이미 참가하셨습니다.")
end if

'response.end


Dbcon.close : Set Dbcon = Nothing

ok_url = "list.asp?"&page_info
Call loding("0", ok_url)
%>
