%
dim title
title = "MayorSlay.com - Mini Polls"
dim desc
desc = "Official Website of Mayor Francis Slay - Mini Polls"
dim keywords
keywords = "Mayor Slay, Francis Slay, St. Louis Mayor, St. Louis, Mayor Slay, City of St. Louis, Missouri, Mini Polls, MayorSlay.com, Thanksgiving"
dim section
section = "Mini Poll: Thanks from City Hall"
%>
All things considered, should St. Louis be thankful this Thanksgiving? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question1 FROM minipoll WHERE pollName='20071121thanks' AND Question1='A'"
rs.Open sql, conn
q1a = 0
do while rs.EOF = False
rs.MoveNext
q1a = q1a + 1
q1ap = Round((q1a / total1)*100)
Loop
if q1ap = "" then q1ap = 0
q1apw = q1ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question1 FROM minipoll WHERE pollName='20071121thanks' AND Question1='B'"
rs.Open sql, conn
q1b = 0
do while rs.EOF = False
rs.MoveNext
q1b = q1b + 1
q1bp = Round((q1b / total1)*100)
Loop
if q1bp = "" then q1bp = 0
q1bpw = q1bp * 2
%>
Yes:
<% Response.Write q1ap %>%
No:
<% Response.Write q1bp %>%
|
|
Overall, would you say your own family is better off today than you were five years ago? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20071121thanks' AND Question2='A'"
rs.Open sql, conn
q2a = 0
do while rs.EOF = False
rs.MoveNext
q2a = q2a + 1
q2ap = Round((q2a / total2)*100)
Loop
if q2ap = "" then q2ap = 0
q2apw = q2ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20071121thanks' AND Question2='B'"
rs.Open sql, conn
q2b = 0
do while rs.EOF = False
rs.MoveNext
q2b = q2b + 1
q2bp = Round((q2b / total2)*100)
Loop
if q2bp = "" then q2bp = 0
q2bpw = q2bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20071121thanks' AND Question2='C'"
rs.Open sql, conn
q2c = 0
do while rs.EOF = False
rs.MoveNext
q2c = q2c + 1
q2cp = Round((q2c / total2)*100)
Loop
if q2cp = "" then q2cp = 0
q2cpw = q2cp * 2
%>
Better off:
<% Response.Write q2ap %>%
Not as well off:
<% Response.Write q2bp %>%
About the same:
<% Response.Write q2cp %>%
|
|
Which of the following conditions is currently worrying you the most? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20071121thanks' AND Question3='A'"
rs.Open sql, conn
q3a = 0
do while rs.EOF = False
rs.MoveNext
q3a = q3a + 1
q3ap = Round((q3a / total3)*100)
Loop
if q3ap = "" then q3ap = 0
q3apw = q3ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20071121thanks' AND Question3='B'"
rs.Open sql, conn
q3b = 0
do while rs.EOF = False
rs.MoveNext
q3b = q3b + 1
q3bp = Round((q3b / total3)*100)
Loop
if q3bp = "" then q3bp = 0
q3bpw = q3bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20071121thanks' AND Question3='C'"
rs.Open sql, conn
q3c = 0
do while rs.EOF = False
rs.MoveNext
q3c = q3c + 1
q3cp = Round((q3c / total3)*100)
Loop
if q3cp = "" then q3cp = 0
q3cpw = q3cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20071121thanks' AND Question3='D'"
rs.Open sql, conn
q3d = 0
do while rs.EOF = False
rs.MoveNext
q3d = q3d + 1
q3dp = Round((q3d / total3)*100)
Loop
if q3dp = "" then q3dp = 0
q3dpw = q3dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20071121thanks' AND Question3='E'"
rs.Open sql, conn
q3e = 0
do while rs.EOF = False
rs.MoveNext
q3e = q3e + 1
q3ep = Round((q3e / total3)*100)
Loop
if q3ep = "" then q3ep = 0
q3epw = q3ep * 2
%>
Rising gasoline prices:
<% Response.Write q3ap %>%
Longer hemlines:
<% Response.Write q3bp %>%
Rising student tuition:
<% Response.Write q3cp %>%
Rising healthcare costs:
<% Response.Write q3dp %>%
Continuing costs of the war:
<% Response.Write q3ep %>%
|
|
In which of the following circumstances do you see the greatest hope? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20071121thanks' AND Question4='A'"
rs.Open sql, conn
q4a = 0
do while rs.EOF = False
rs.MoveNext
q4a = q4a + 1
q4ap = Round((q4a / total4)*100)
Loop
if q4ap = "" then q4ap = 0
q4apw = q4ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20071121thanks' AND Question4='B'"
rs.Open sql, conn
q4b = 0
do while rs.EOF = False
rs.MoveNext
q4b = q4b + 1
q4bp = Round((q4b / total4)*100)
Loop
if q4bp = "" then q4bp = 0
q4bpw = q4bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20071121thanks' AND Question4='C'"
rs.Open sql, conn
q4c = 0
do while rs.EOF = False
rs.MoveNext
q4c = q4c + 1
q4cp = Round((q4c / total4)*100)
Loop
if q4cp = "" then q4cp = 0
q4cpw = q4cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20071121thanks' AND Question4='D'"
rs.Open sql, conn
q4d = 0
do while rs.EOF = False
rs.MoveNext
q4d = q4d + 1
q4dp = Round((q4d / total4)*100)
Loop
if q4dp = "" then q4dp = 0
q4dpw = q4dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20071121thanks' AND Question4='E'"
rs.Open sql, conn
q4e = 0
do while rs.EOF = False
rs.MoveNext
q4e = q4e + 1
q4ep = Round((q4e / total4)*100)
Loop
if q4ep = "" then q4ep = 0
q4epw = q4ep * 2
%>
A new administration in Washington, DC:
<% Response.Write q4ap %>%
The arrival of Rick Majerus at Saint Louis University:
<% Response.Write q4bp %>%
The Van Halen reunion tour:
<% Response.Write q4cp %>%
The announcement of a new addition for the St. Louis Art Museum:
<% Response.Write q4dp %>%
The City's growing population:
<% Response.Write q4ep %>%
|
|
Will (or did!) you have guests at your home for Thanksgiving this year? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question5 FROM minipoll WHERE pollName='20071121thanks' AND Question5='A'"
rs.Open sql, conn
q5a = 0
do while rs.EOF = False
rs.MoveNext
q5a = q5a + 1
q5ap = Round((q5a / total5)*100)
Loop
if q5ap = "" then q5ap = 0
q5apw = q5ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question5 FROM minipoll WHERE pollName='20071121thanks' AND Question5='B'"
rs.Open sql, conn
q5b = 0
do while rs.EOF = False
rs.MoveNext
q5b = q5b + 1
q5bp = Round((q5b / total5)*100)
Loop
if q5bp = "" then q5bp = 0
q5bpw = q5bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question5 FROM minipoll WHERE pollName='20071121thanks' AND Question5='C'"
rs.Open sql, conn
q5c = 0
do while rs.EOF = False
rs.MoveNext
q5c = q5c + 1
q5cp = Round((q5c / total5)*100)
Loop
if q5cp = "" then q5cp = 0
q5cpw = q5cp * 2
%>
Yes:
<% Response.Write q5ap %>%
No:
<% Response.Write q5bp %>%
No, I was someone else's guest:
<% Response.Write q5cp %>%
|
|
Will turkey be (or was it!) part of your Thanksgiving meal this year? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM minipoll WHERE pollName='20071121thanks' AND Question6='A'"
rs.Open sql, conn
q6a = 0
do while rs.EOF = False
rs.MoveNext
q6a = q6a + 1
q6ap = Round((q6a / total6)*100)
Loop
if q6ap = "" then q6ap = 0
q6apw = q6ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM minipoll WHERE pollName='20071121thanks' AND Question6='B'"
rs.Open sql, conn
q6b = 0
do while rs.EOF = False
rs.MoveNext
q6b = q6b + 1
q6bp = Round((q6b / total6)*100)
Loop
if q6bp = "" then q6bp = 0
q6bpw = q6bp * 2
%>
Yes:
<% Response.Write q6ap %>%
No:
<% Response.Write q6bp %>%
|
|
Which of the following is the most important cooking tip for turkey? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20071121thanks' AND Question7='A'"
rs.Open sql, conn
q7a = 0
do while rs.EOF = False
rs.MoveNext
q7a = q7a + 1
q7ap = Round((q7a / total7)*100)
Loop
if q7ap = "" then q7ap = 0
q7apw = q7ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20071121thanks' AND Question7='B'"
rs.Open sql, conn
q7b = 0
do while rs.EOF = False
rs.MoveNext
q7b = q7b + 1
q7bp = Round((q7b / total7)*100)
Loop
if q7bp = "" then q7bp = 0
q7bpw = q7bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20071121thanks' AND Question7='C'"
rs.Open sql, conn
q7c = 0
do while rs.EOF = False
rs.MoveNext
q7c = q7c + 1
q7cp = Round((q7c / total7)*100)
Loop
if q7cp = "" then q7cp = 0
q7cpw = q7cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20071121thanks' AND Question7='D'"
rs.Open sql, conn
q7d = 0
do while rs.EOF = False
rs.MoveNext
q7d = q7d + 1
q7dp = Round((q7d / total7)*100)
Loop
if q7dp = "" then q7dp = 0
q7dpw = q7dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20071121thanks' AND Question7='E'"
rs.Open sql, conn
q7e = 0
do while rs.EOF = False
rs.MoveNext
q7e = q7e + 1
q7ep = Round((q7e / total7)*100)
Loop
if q7ep = "" then q7ep = 0
q7epw = q7ep * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20071121thanks' AND Question7='F'"
rs.Open sql, conn
q7f = 0
do while rs.EOF = False
rs.MoveNext
q7f = q7f + 1
q7fp = Round((q7f / total7)*100)
Loop
if q7fp = "" then q7fp = 0
q7fpw = q7fp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20071121thanks' AND Question7='G'"
rs.Open sql, conn
q7g = 0
do while rs.EOF = False
rs.MoveNext
q7g = q7g + 1
q7gp = Round((q7g / total7)*100)
Loop
if q7gp = "" then q7gp = 0
q7gpw = q7gp * 2
%>
Leave the lid on:
<% Response.Write q7ap %>%
Take the lid off:
<% Response.Write q7bp %>%
Baste it:
<% Response.Write q7cp %>%
Smoke it:
<% Response.Write q7dp %>%
Fry it:
<% Response.Write q7ep %>%
Stuff it with a duck; stuff the duck with a chicken:
<% Response.Write q7fp %>%
Skip it:
<% Response.Write q7gp %>%
|
|
Is there a fire extinguisher in your kitchen? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20071121thanks' AND Question8='A'"
rs.Open sql, conn
q8a = 0
do while rs.EOF = False
rs.MoveNext
q8a = q8a + 1
q8ap = Round((q8a / total8)*100)
Loop
if q8ap = "" then q8ap = 0
q8apw = q8ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20071121thanks' AND Question8='B'"
rs.Open sql, conn
q8b = 0
do while rs.EOF = False
rs.MoveNext
q8b = q8b + 1
q8bp = Round((q8b / total8)*100)
Loop
if q8bp = "" then q8bp = 0
q8bpw = q8bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20071121thanks' AND Question8='C'"
rs.Open sql, conn
q8c = 0
do while rs.EOF = False
rs.MoveNext
q8c = q8c + 1
q8cp = Round((q8c / total8)*100)
Loop
if q8cp = "" then q8cp = 0
q8cpw = q8cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20071121thanks' AND Question8='D'"
rs.Open sql, conn
q8d = 0
do while rs.EOF = False
rs.MoveNext
q8d = q8d + 1
q8dp = Round((q8d / total8)*100)
Loop
if q8dp = "" then q8dp = 0
q8dpw = q8dp * 2
%>
Yes:
<% Response.Write q8ap %>%
No:
<% Response.Write q8bp %>%
I don't know (if you pick this, you might as well answer NO):
<% Response.Write q8cp %>%
don't have a kitchen:
<% Response.Write q8dp %>%
|
|
Which of the following things are you most likely to do with the leftovers from the Thanksgiving meal? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20071121thanks' AND Question9='A'"
rs.Open sql, conn
q9a = 0
do while rs.EOF = False
rs.MoveNext
q9a = q9a + 1
q9ap = Round((q9a / total9)*100)
Loop
if q9ap = "" then q9ap = 0
q9apw = q9ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20071121thanks' AND Question9='B'"
rs.Open sql, conn
q9b = 0
do while rs.EOF = False
rs.MoveNext
q9b = q9b + 1
q9bp = Round((q9b / total9)*100)
Loop
if q9bp = "" then q9bp = 0
q9bpw = q9bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20071121thanks' AND Question9='C'"
rs.Open sql, conn
q9c = 0
do while rs.EOF = False
rs.MoveNext
q9c = q9c + 1
q9cp = Round((q9c / total9)*100)
Loop
if q9cp = "" then q9cp = 0
q9cpw = q9cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20071121thanks' AND Question9='D'"
rs.Open sql, conn
q9d = 0
do while rs.EOF = False
rs.MoveNext
q9d = q9d + 1
q9dp = Round((q9d / total9)*100)
Loop
if q9dp = "" then q9dp = 0
q9dpw = q9dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20071121thanks' AND Question9='E'"
rs.Open sql, conn
q9e = 0
do while rs.EOF = False
rs.MoveNext
q9e = q9e + 1
q9ep = Round((q9e / total9)*100)
Loop
if q9ep = "" then q9ep = 0
q9epw = q9ep * 2
%>
Store them, then eat most of them later:
<% Response.Write q9ap %>%
Store them, then throw most of them away later:
<% Response.Write q9bp %>%
Send most of them home with my guests:
<% Response.Write q9cp %>%
Give most of them away to people who otherwise wouldn't have a meal:
<% Response.Write q9dp %>%
There are never leftovers:
<% Response.Write q9ep %>%
|
|
For which of the following circumstances should local sports fans be most thankful? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20071121thanks' AND Question10='A'"
rs.Open sql, conn
q10a = 0
do while rs.EOF = False
rs.MoveNext
q10a = q10a + 1
q10ap = Round((q10a / total10)*100)
Loop
if q10ap = "" then q10ap = 0
q10apw = q10ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20071121thanks' AND Question10='B'"
rs.Open sql, conn
q10b = 0
do while rs.EOF = False
rs.MoveNext
q10b = q10b + 1
q10bp = Round((q10b / total10)*100)
Loop
if q10bp = "" then q10bp = 0
q10bpw = q10bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20071121thanks' AND Question10='C'"
rs.Open sql, conn
q10c = 0
do while rs.EOF = False
rs.MoveNext
q10c = q10c + 1
q10cp = Round((q10c / total10)*100)
Loop
if q10cp = "" then q10cp = 0
q10cpw = q10cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20071121thanks' AND Question10='D'"
rs.Open sql, conn
q10d = 0
do while rs.EOF = False
rs.MoveNext
q10d = q10d + 1
q10dp = Round((q10d / total10)*100)
Loop
if q10dp = "" then q10dp = 0
q10dpw = q10dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20071121thanks' AND Question10='E'"
rs.Open sql, conn
q10e = 0
do while rs.EOF = False
rs.MoveNext
q10e = q10e + 1
q10ep = Round((q10e / total10)*100)
Loop
if q10ep = "" then q10ep = 0
q10epw = q10ep * 2
%>
The St. Louis Cardinals will have a new GM and an old manager:
<% Response.Write q10ap %>%
The St. Louis Blues are playing pretty good hockey again:
<% Response.Write q10bp %>%
The Arch Rival Roller Girls are having a great second season:
<% Response.Write q10cp %>%
The St. Louis region is on the short list for a major league soccer team:
<% Response.Write q10dp %>%
The St. Louis Rams are nearing the end of a terrible season:
<% Response.Write q10ep %>%
|
|
Which of the following outcomes would you find most satisfying? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question11 FROM minipoll WHERE pollName='20071121thanks' AND Question11='A'"
rs.Open sql, conn
q11a = 0
do while rs.EOF = False
rs.MoveNext
q11a = q11a + 1
q11ap = Round((q11a / total11)*100)
Loop
if q11ap = "" then q11ap = 0
q11apw = q11ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question11 FROM minipoll WHERE pollName='20071121thanks' AND Question11='B'"
rs.Open sql, conn
q11b = 0
do while rs.EOF = False
rs.MoveNext
q11b = q11b + 1
q11bp = Round((q11b / total11)*100)
Loop
if q11bp = "" then q11bp = 0
q11bpw = q11bp * 2
%>
I got the long end of the wishbone:
<% Response.Write q11ap %>%
My loved one got the long end of the wishbone:
<% Response.Write q11bp %>%
|
|
GUEST QUESTION: Have you ever made a drawing of a turkey using an outline of your hand? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20071121thanks' AND Question12='A'"
rs.Open sql, conn
q12a = 0
do while rs.EOF = False
rs.MoveNext
q12a = q12a + 1
q12ap = Round((q12a / total12)*100)
Loop
if q12ap = "" then q12ap = 0
q12apw = q12ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20071121thanks' AND Question12='B'"
rs.Open sql, conn
q12b = 0
do while rs.EOF = False
rs.MoveNext
q12b = q12b + 1
q12bp = Round((q12b / total12)*100)
Loop
if q12bp = "" then q12bp = 0
q12bpw = q12bp * 2
%>
Yes:
<% Response.Write q12ap %>%
No:
<% Response.Write q12bp %>%
|
|