<%
PollID=request.form("PollID")
set rs=server.createobject("ADODB.Recordset")
if not(PollID>"") then
rs.open "select * from Poll where PollActive=1", conn,3,1
if rs.eof then
rs.close
rs.open "select * from Poll order by PollDate desc", conn,3,1
end if
else
rs.open "select * from Poll where PollID=" & PollID, conn,3,3
'response.write request.cookies("PollID")
if request.cookies("PollID_c")=PollID then
ErrMsg=1
else
rs("PollAnsN" & request("AnsNum"))=rs("PollAnsN" & request("AnsNum"))+1
rs.update
response.cookies("PollID_c")=PollID
response.cookies("PollID_c").expires=Now()+500
end if
Suc=1
end if
PollQuest=rs("PollQuest")
PollID=rs("PollID")
dim Ans(10)
dim AnsCnt(10)
dim AnsPercent(10)
all_ans=0
for i=1 to 10
all_ans=all_ans+rs("PollAnsN" & i)
next
for i=1 to 10
Ans(i)=rs("PollAns" & i)
AnsCnt(i)=rs("PollAnsN" & i)
if all_ans=0 then AnsPercent(i)=0 else AnsPercent(i)=int(rs("PollAnsN" & i)*100/all_ans)
next
rs.close
set rs=nothing
%>
Coca-Cola. Опрос.
<%if ErrMsg=1 then%>
Ошибка! Извините, но вы уже участвовали в этом опросе.
<%=AnsCnt(i)%> (<%=AnsPercent(i)%>%)
