|
|
<%
Dim sql,rsPoll,id,ac
ac = "Yes"
sql = "SELECT * FROM questions Where active = '" & ac & "'"
Set rsPoll = Server.CreateObject("ADODB.Recordset")
rsPoll.Open sql, teksan, 3, 3
id = rsPoll("id")
%>
<%
Dim rsAnswer
sql = "SELECT * FROM answers Where question_id Like '" & id & "' ORDER BY id"
Set rsAnswer = Server.CreateObject("ADODB.Recordset")
rsAnswer.Open sql, teksan, 3, 3
%>
<%IF rsPoll("active") = "Yes" Then%>
<%IF rsPoll("total_votes") = 0 Then%>
No Votes Has Been Submitted For This Poll
<%ELSE%>
<%IF msg = "voted" Then%>
ANKETE OY VERDİĞİNİZ İÇİN TEŞEKÜRLER.
<%ELSEIF msg = "notselect" Then%>
Your Vote Has Not Been Submitted Because You Have Not Selected Any Answer.
<%ELSEIF msg = "already" Then%>
BU ANKET İÇİN OY KULLANDINIZ TEKRAR KULLANAMASSINIZ
<%END IF%>
|
<%=rsPoll("poll_name")%>
|
<%DO UNTIL rsAnswer.EOF%>
<%percent = FormatPercent(rsAnswer("total_votes")/rsPoll("total_votes"),0)%>
|
<%=rsAnswer("answer")%>
|
<%=rsAnswer("total_votes")%>
|
|
<%=percent%>
|
<%rsAnswer.MoveNext%>
<%LOOP%>
|
<%END IF%>
<%ELSE%>
<%END IF%>
|
|