<%
SQL = "SELECT num,date_end,question,answer1,answer2,answer3,answer4,answer5,answer6,answer7,answer8,answer9,answer10,answer_vote1,answer_vote2,answer_vote3,answer_vote4,answer_vote5 from poll_2011 where (vote_ing = 'n' AND category = 's') order by num desc"
Set Grs = conn.Execute(SQL)
i = 1
Do until Grs.EOF Or i = 10
%>
.jpg">
<%
If IsNull(Grs("answer3")) Then
%>
<%
totalCnt = Grs("answer_vote1") + Grs("answer_vote2")
IF totalCnt > 0 AND Grs("answer_vote1") > 0 Then
wid1 = round((Grs("answer_vote1") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote2") > 0 Then
wid2 = round((Grs("answer_vote2") / totalCnt * 100))
End IF
%>
" target="_top">- <%=Grs("question")%>
- <%=Grs("answer1")%>
- <%=wid1%>%
- <%=Grs("answer2")%>
- <%=wid2%>%
<%
ElseIf IsNull(Grs("answer5")) Then
%>
<%
totalCnt = Grs("answer_vote1") + Grs("answer_vote2") + Grs("answer_vote3") + Grs("answer_vote4")
wid1 = 0
wid2 = 0
wid3 = 0
wid4 = 0
IF totalCnt > 0 AND Grs("answer_vote1") > 0 Then
wid1 = round((Grs("answer_vote1") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote2") > 0 Then
wid2 = round((Grs("answer_vote2") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote3") > 0 Then
wid3 = round((Grs("answer_vote3") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote4") > 0 Then
wid4 = round((Grs("answer_vote4") / totalCnt * 100))
End IF
%>
" target="_top"><%=Grs("question")%>
- <%=Grs("answer1")%>
- <%=wid1%>%
- <%=Grs("answer2")%>
- <%=wid2%>%
- <%=Grs("answer3")%>
- <%=wid3%>%
- <%=Grs("answer4")%>
- <%=wid4%>%
<%
Else
%>
<%
totalCnt = Grs("answer_vote1") + Grs("answer_vote2") + Grs("answer_vote3") + Grs("answer_vote4") + Grs("answer_vote5")
wid1 = 0
wid2 = 0
wid3 = 0
wid4 = 0
wid5 = 0
IF totalCnt > 0 AND Grs("answer_vote1") > 0 Then
wid1 = round((Grs("answer_vote1") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote2") > 0 Then
wid2 = round((Grs("answer_vote2") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote3") > 0 Then
wid3 = round((Grs("answer_vote3") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote4") > 0 Then
wid4 = round((Grs("answer_vote4") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote5") > 0 Then
wid5 = round((Grs("answer_vote5") / totalCnt * 100))
End IF
%>
" target="_top"><%=Grs("question")%>
- <%=Grs("answer1")%>
- <%=wid1%>%
- <%=Grs("answer2")%>
- <%=wid2%>%
- <%=Grs("answer3")%>
- <%=wid3%>%
- <%=Grs("answer4")%>
- <%=wid4%>%
- <%=Grs("answer5")%>
- <%=wid5%>%
<% End If %>
<%
i = i + 1
Grs.movenext
Loop
%>
<%
If i < 10 Then
Do until i = 10
%>
<%
i = i + 1
loop
End If
%>
<%
SQL = "SELECT num,date_end,question,answer1,answer2,answer3,answer4,answer5,answer6,answer7,answer8,answer9,answer10,answer_vote1,answer_vote2,answer_vote3,answer_vote4,answer_vote5 from poll_2011 where (vote_ing = 'n' AND category = 'e') order by num desc"
Set Grs = conn.Execute(SQL)
i = 1
Do until Grs.EOF Or i = 10
%>
.jpg">
<%
If IsNull(Grs("answer3")) Then
%>
<%
totalCnt = Grs("answer_vote1") + Grs("answer_vote2")
IF totalCnt > 0 AND Grs("answer_vote1") > 0 Then
wid1 = round((Grs("answer_vote1") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote2") > 0 Then
wid2 = round((Grs("answer_vote2") / totalCnt * 100))
End IF
%>
" target="_top">- <%=Grs("question")%>
- <%=Grs("answer1")%>
- <%=wid1%>%
- <%=Grs("answer2")%>
- <%=wid2%>%
<%
ElseIf IsNull(Grs("answer5")) Then
%>
<%
totalCnt = Grs("answer_vote1") + Grs("answer_vote2") + Grs("answer_vote3") + Grs("answer_vote4")
wid1 = 0
wid2 = 0
wid3 = 0
wid4 = 0
IF totalCnt > 0 AND Grs("answer_vote1") > 0 Then
wid1 = round((Grs("answer_vote1") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote2") > 0 Then
wid2 = round((Grs("answer_vote2") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote3") > 0 Then
wid3 = round((Grs("answer_vote3") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote4") > 0 Then
wid4 = round((Grs("answer_vote4") / totalCnt * 100))
End IF
%>
" target="_top"><%=Grs("question")%>
- <%=Grs("answer1")%>
- <%=wid1%>%
- <%=Grs("answer2")%>
- <%=wid2%>%
- <%=Grs("answer3")%>
- <%=wid3%>%
- <%=Grs("answer4")%>
- <%=wid4%>%
<%
Else
%>
<%
totalCnt = Grs("answer_vote1") + Grs("answer_vote2") + Grs("answer_vote3") + Grs("answer_vote4") + Grs("answer_vote5")
wid1 = 0
wid2 = 0
wid3 = 0
wid4 = 0
wid5 = 0
IF totalCnt > 0 AND Grs("answer_vote1") > 0 Then
wid1 = round((Grs("answer_vote1") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote2") > 0 Then
wid2 = round((Grs("answer_vote2") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote3") > 0 Then
wid3 = round((Grs("answer_vote3") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote4") > 0 Then
wid4 = round((Grs("answer_vote4") / totalCnt * 100))
End IF
IF totalCnt > 0 AND Grs("answer_vote5") > 0 Then
wid5 = round((Grs("answer_vote5") / totalCnt * 100))
End IF
%>
" target="_top"><%=Grs("question")%>
- <%=Grs("answer1")%>
- <%=wid1%>%
- <%=Grs("answer2")%>
- <%=wid2%>%
- <%=Grs("answer3")%>
- <%=wid3%>%
- <%=Grs("answer4")%>
- <%=wid4%>%
- <%=Grs("answer5")%>
- <%=wid5%>%
<% End If %>
<%
i = i + 1
Grs.movenext
Loop
%>
<%
If i < 10 Then
Do until i = 10
%>
<%
i = i + 1
loop
End If
%>
<%
SQL = "SELECT num,date_end,question,answer1,answer2,answer3,answer4,answer5,answer6,answer7,answer8,answer9,answer10,answer_vote1,answer_vote2,answer_vote3,answer_vote4 from poll_2011 where (vote_ing = 'n' AND category = 'l') order by num desc"
Set Grs = conn.Execute(SQL)
i = 1
Do until Grs.EOF Or i = 10
%>
- <%=Grs("question")%>
<%
If Grs("answer3") = "" Then
%>
- <%=Grs("answer1")%>
- <%=wid1%>%
- <%=Grs("answer2")%>
- <%=wid2%>%
<% Else %>
- <%=Grs("answer1")%>
- <%=wid1%>%
- <%=Grs("answer2")%>
- <%=wid2%>%
<% End If %>
<%
i = i + 1
Grs.movenext
Loop
%>
<%
If i < 10 Then
Do until i = 10
%>
<%
i = i + 1
loop
End If
%>
