<% Response.Buffer = True %>
TeamTomko - old gut-bustin polls
<%
Dim f
Set f = Server.CreateObject("ASPFormat.Format")
Dim conn,EnSQL,countSQL,selSQL,rsRecset,intNoofoptions,strPollQuestion,strPollans1,strPollans2
Dim i,j,k,l,m,n,p,q,intPollvalue,RecCount,UpSQL,RsUpdate,imgColor(6)
Dim strPollans(6),intNoAns(6),percentAns(6),intWidth(6),intTotalpoll
'Response.Clear ' line 19
'Response.Expires = 0
if session("CountPoll") = 2 then
response.write "
Sorry! You have already Polled !
"
end if
set Conn=CreateObject("ADODB.Connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\wwwroot\curling\poll\stylepoll.mdb"
EnSQL = "select * from Stylepoll order by fldPollDate desc"
set rsRecset = conn.execute(EnSQL)
do while not rsRecset.EOF
intNoofoptions = rsRecset(15)
strPollQuestion = rsRecset(0)
if rsRecset("fldTotalpoll") = "" then
response.write "
Nobody has Polled yet !
"
response.write "
You can start Polling Now.
"
elseif rsRecset("fldTotalpoll") = 0 then
response.write "
Nobody has Polled yet !
"
response.write "
You can start Polling Now.
"
else
intTotalpoll = rsRecset("fldTotalpoll")
k = 1
for j = 2 to 7
strPollans(k) = rsRecset(j)
k = k + 1
next
l = 1
p = 1
n = 1
for m = 8 to 13
intNoAns(l) = rsRecset(m)
percentAns(p) = f.FormatString((intNoAns(l) / intTotalpoll) * 100,"0.0")
intWidth(n) = percentAns(p) * 3
'imgColor(q)
n = n + 1
p = p + 1
l = l + 1
next
imgColor(1) = "images/blue.gif"
imgColor(2) = "images/yellow.gif"
imgColor(3) = "images/orange.gif"
imgColor(4) = "images/black.gif"
imgColor(5) = "images/green.gif"
imgColor(6) = "images/red.gif"
%>
<%= strPollQuestion %>
<% for i = 1 to intNoofoptions %>
><%= strPollans(i) %>
>
<%= percentAns(i) & "%" %>
<% next %>
poll began on
<% =f.formatString(rsRecset(14),"mmm dd yyyy") %>
-
<% =intTotalpoll %>
polls so far
<%
End if
rsRecset.movenext
loop
set rsRecset = nothing
set RecCount = nothing
conn.close
set conn = nothing
set f = nothing
Response.Flush
%>