")
Response.write("" & Res(1) & " | " & VoteCounter(1) & "(" & INT(VoteCounter(1)*100/Totalvotes) & "%) |
")
Response.write("" & Res(2) & " | " & VoteCounter(2) & "(" & INT(VoteCounter(2)*100/Totalvotes) & "%) |
")
Response.write("" & Res(3) & " | " & VoteCounter(3) & "(" & INT(VoteCounter(3)*100/Totalvotes) & "%) |
")
Response.write("" & Res(4) & " | " & VoteCounter(4) & "(" & INT(VoteCounter(4)*100/Totalvotes) & "%) |
")
Response.write("" & Res(5) & " | " & VoteCounter(5) & "(" & INT(VoteCounter(5)*100/Totalvotes) & "%) |
")
Response.write("" & Res(6) & " | " & VoteCounter(6) & "(" & INT(VoteCounter(6)*100/Totalvotes) & "%) |
")
Response.write("" & Res(7) & " | " & VoteCounter(7) & "(" & INT(VoteCounter(7)*100/Totalvotes) & "%) |
")
Response.write("" & Res(8) & " | " & VoteCounter(8) & "(" & INT(VoteCounter(8)*100/Totalvotes) & "%) |
")
Response.write("
")
%><%
sub Vote(thevote)
Set fs = CreateObject("Scripting.FileSystemObject")
Wfile=server.mappath("\") & "\cgi-bin\poll397716\" & thevote & ".txt"
on error resume next
Set a = fs.OpenTextFile(Wfile)
votes = Clng(a.ReadLine)
votes = votes + 1
a.close
if error then
votes = 1
end if
Set a = fs.CreateTextFile(Wfile,True)
a.WriteLine(votes)
a.Close
end Sub
%>