<%@ Language="VBScript" %> <%Dim percent,msg,id id = Request.QueryString("pollid") msg = Request.QueryString("msg") %> <% Dim sql,rsPoll sql = "SELECT * FROM questions Where id Like '" & id & "'" Set rsPoll = Server.CreateObject("ADODB.Recordset") rsPoll.Open sql, teksan, 3, 3 %> <% 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.EOF Then%> No Poll Is Avalible <%ELSE%> <%IF rsPoll("total_votes") <> "0" Then%>

Anket başlığı: <%=rsPoll("poll_name")%>

<%DO UNTIL rsAnswer.EOF%> <%percent = FormatPercent(rsAnswer("total_votes")/rsPoll("total_votes"),0)%> <%=rsAnswer("answer")%> oy sayısı := <%=rsAnswer("total_votes")%> <%=percent%> <%rsAnswer.MoveNext%> <%LOOP%>

---

Toplam oy sayısı = <%=rsPoll("total_votes")%>

<%ELSE%> <%IF rsPoll("active") <> "Yes" Then%>Sorry This Poll Is Not Active Yet<%ELSE%>No votes has been submitted for this poll<%END IF%>. <%END IF%> <%END IF%>