<% 'get data from previous page.... o = request.querystring("sql") p = request.form("sql") 'if request.form("sql") is empty (that means that we have clicked on the active poll link) .. i contains query data if o = "" then i = p else i = o end if 'open connection set conn = server.CreateObject ("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("fpdb/engglas.mdb") 'build query... sql = "SELECT * FROM title, vote where title.id = vote.id and title.title = '" & i & "'" set rs = server.CreateObject ("ADODB.Recordset") rs.Open sql, conn, 3, 3 %> <% 'count all voters all = 0 for z = 1 to rs.recordcount all = all + rs.fields("novote") rs.movenext if rs.eof then rs.movelast end if next %> Poll - results
<% 'show poll results... rs.movefirst for a = 1 to rs.recordcount %> <% Dim b, c b = CInt(rs.fields("novote")) 'if no one vote .... if b = "0" then %> <% else 'somebody vote... c = Cint(100 / all * b) %> <% end if %> <% rs.movenext if rs.eof then rs.movelast end if next %>
<%=rs.fields("title")%> 
<%=rs.fields("answer")%> <%= "0% (0)" %>
No votes.
<%=rs.fields("answer")%> <%= c & "%" & " (" & rs.Fields("novote") & ")" %>
.gif" height="10" width="<%= 4*c %>">
All submissions : <%=all%>

back

<% 'close connection and recordset rs.Close set rs = nothing conn.Close set conn = nothing %>