%
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, suburban journals"
dim section
section = "Mini Poll: Read This - or something else?"
%>
Musicals?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question1 FROM minipoll WHERE pollName='20090521muny' 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='20090521muny' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question1 FROM minipoll WHERE pollName='20090521muny' AND Question1='C'"
rs.Open sql, conn
q1c = 0
do while rs.EOF = False
rs.MoveNext
q1c = q1c + 1
q1cp = Round((q1c / total1)*100)
Loop
if q1cp = "" then q1cp = 0
q1cpw = q1cp * 2
%>
Yes:
<% Response.Write q1ap %>%
Yes, sometimes:
<% Response.Write q1bp %>%
Nope:
<% Response.Write q1cp %>%
|
|
Favorite place to see a musical?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20090521muny' 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='20090521muny' 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='20090521muny' 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
%>
On a screen:
<% Response.Write q2ap %>%
On a stage:
<% Response.Write q2bp %>%
No such place:
<% Response.Write q2cp %>%
|
|
Which of the following things would you most like to do on the first Saturday in June?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20090521muny' 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='20090521muny' 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='20090521muny' 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='20090521muny' 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='20090521muny' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20090521muny' AND Question3='F'"
rs.Open sql, conn
q3f = 0
do while rs.EOF = False
rs.MoveNext
q3f = q3f + 1
q3fp = Round((q3f / total3)*100)
Loop
if q3fp = "" then q3fp = 0
q3fpw = q3fp * 2
%>
See the opening night's performance of Meet Me in St. Louis at the Muny:
<% Response.Write q3ap %>%
Root for the Cards vs the Rockies at Busch Stadium:
<% Response.Write q3bp %>%
Sit in the (air-conditioned) Fabulous Fox Theater to see Rent:
<% Response.Write q3cp %>%
Sit under the big top in Grand Center to see Circus Flora:
<% Response.Write q3dp %>%
Listen to the sounds of Javier Mendoza in Lafayette Park:
<% Response.Write q3ep %>%
Watch Frontyard Features' outdoor screening of School of Rock in Boonville, Mo:
<% Response.Write q3fp %>%
|
|
Have you ever attended a show at the Muny?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20090521muny' 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='20090521muny' 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
%>
Yes:
<% Response.Write q4ap %>%
No:
<% Response.Write q4bp %>%
|
|
Do you attend at least one performance at the Muny each season?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question5 FROM minipoll WHERE pollName='20090521muny' 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='20090521muny' 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
%>
Yes:
<% Response.Write q5ap %>%
No:
<% Response.Write q5bp %>%
|
|
How many times do you usually go to the Muny each season?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM minipoll WHERE pollName='20090521muny' 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='20090521muny' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM minipoll WHERE pollName='20090521muny' AND Question6='C'"
rs.Open sql, conn
q6c = 0
do while rs.EOF = False
rs.MoveNext
q6c = q6c + 1
q6cp = Round((q6c / total6)*100)
Loop
if q6cp = "" then q6cp = 0
q6cpw = q6cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM minipoll WHERE pollName='20090521muny' AND Question6='D'"
rs.Open sql, conn
q6d = 0
do while rs.EOF = False
rs.MoveNext
q6d = q6d + 1
q6dp = Round((q6d / total6)*100)
Loop
if q6dp = "" then q6dp = 0
q6dpw = q6dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM minipoll WHERE pollName='20090521muny' AND Question6='E'"
rs.Open sql, conn
q6e = 0
do while rs.EOF = False
rs.MoveNext
q6e = q6e + 1
q6ep = Round((q6e / total6)*100)
Loop
if q6ep = "" then q6ep = 0
q6epw = q6ep * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM minipoll WHERE pollName='20090521muny' AND Question6='F'"
rs.Open sql, conn
q6f = 0
do while rs.EOF = False
rs.MoveNext
q6f = q6f + 1
q6fp = Round((q6f / total6)*100)
Loop
if q6fp = "" then q6fp = 0
q6fpw = q6fp * 2
%>
One or two:
<% Response.Write q6ap %>%
Three or four:
<% Response.Write q6bp %>%
Five or six:
<% Response.Write q6cp %>%
Seven:
<% Response.Write q6dp %>%
I see every show, some more than once:
<% Response.Write q6ep %>%
I never go to the Muny:
<% Response.Write q6fp %>%
|
|
Which member of your immediate family most enjoys the Muny?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20090521muny' 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='20090521muny' 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='20090521muny' 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='20090521muny' 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='20090521muny' 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='20090521muny' 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='20090521muny' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20090521muny' AND Question7='H'"
rs.Open sql, conn
q7h = 0
do while rs.EOF = False
rs.MoveNext
q7h = q7h + 1
q7hp = Round((q7h / total7)*100)
Loop
if q7hp = "" then q7hp = 0
q7hpw = q7hp * 2
%>
Me:
<% Response.Write q7ap %>%
My spouse or partner:
<% Response.Write q7bp %>%
My parents:
<% Response.Write q7cp %>%
My cat, who comes with me in a covered basket:
<% Response.Write q7dp %>%
One of my kids:
<% Response.Write q7ep %>%
One of my grandkids:
<% Response.Write q7fp %>%
My grandparents:
<% Response.Write q7gp %>%
None of them does:
<% Response.Write q7hp %>%
|
|
Have you or has a member of your family ever auditioned for a role in a Muny production?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20090521muny' 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='20090521muny' 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
%>
Yes:
<% Response.Write q8ap %>%
No:
<% Response.Write q8bp %>%
|
|
Which of the following is the biggest challenge to enjoying a show at the Muny?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20090521muny' 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='20090521muny' 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='20090521muny' 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='20090521muny' 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='20090521muny' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20090521muny' AND Question9='F'"
rs.Open sql, conn
q9f = 0
do while rs.EOF = False
rs.MoveNext
q9f = q9f + 1
q9fp = Round((q9f / total9)*100)
Loop
if q9fp = "" then q9fp = 0
q9fpw = q9fp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20090521muny' AND Question9='G'"
rs.Open sql, conn
q9g = 0
do while rs.EOF = False
rs.MoveNext
q9g = q9g + 1
q9gp = Round((q9g / total9)*100)
Loop
if q9gp = "" then q9gp = 0
q9gpw = q9gp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20090521muny' AND Question9='H'"
rs.Open sql, conn
q9h = 0
do while rs.EOF = False
rs.MoveNext
q9h = q9h + 1
q9hp = Round((q9h / total9)*100)
Loop
if q9hp = "" then q9hp = 0
q9hpw = q9hp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20090521muny' AND Question9='I'"
rs.Open sql, conn
q9i = 0
do while rs.EOF = False
rs.MoveNext
q9i = q9i + 1
q9ip = Round((q9i / total9)*100)
Loop
if q9ip = "" then q9ip = 0
q9ipw = q9ip * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20090521muny' AND Question9='J'"
rs.Open sql, conn
q9j = 0
do while rs.EOF = False
rs.MoveNext
q9j = q9j + 1
q9jp = Round((q9j / total9)*100)
Loop
if q9jp = "" then q9jp = 0
q9jpw = q9jp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20090521muny' AND Question9='K'"
rs.Open sql, conn
q9k = 0
do while rs.EOF = False
rs.MoveNext
q9k = q9k + 1
q9kp = Round((q9k / total9)*100)
Loop
if q9kp = "" then q9kp = 0
q9kpw = q9kp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20090521muny' AND Question9='L'"
rs.Open sql, conn
q9l = 0
do while rs.EOF = False
rs.MoveNext
q9l = q9l + 1
q9lp = Round((q9l / total9)*100)
Loop
if q9lp = "" then q9lp = 0
q9lpw = q9lp * 2
%>
Heat:
<% Response.Write q9ap %>%
Rain:
<% Response.Write q9bp %>%
Humidity:
<% Response.Write q9cp %>%
Humanity:
<% Response.Write q9dp %>%
Distance from the stage:
<% Response.Write q9ep %>%
Length of the shows:
<% Response.Write q9fp %>%
Quality of the performers:
<% Response.Write q9gp %>%
Choice of shows:
<% Response.Write q9hp %>%
Ticket prices:
<% Response.Write q9ip %>%
Parking:
<% Response.Write q9jp %>%
Accessibility:
<% Response.Write q9kp %>%
Nope, none of these is a problem for me:
<% Response.Write q9lp %>%
|
|
Which of the following shows of the Muny's 2009 season will you be most excited to see?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20090521muny' 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='20090521muny' 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='20090521muny' 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='20090521muny' 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='20090521muny' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20090521muny' AND Question10='F'"
rs.Open sql, conn
q10f = 0
do while rs.EOF = False
rs.MoveNext
q10f = q10f + 1
q10fp = Round((q10f / total10)*100)
Loop
if q10fp = "" then q10fp = 0
q10fpw = q10fp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20090521muny' AND Question10='G'"
rs.Open sql, conn
q10g = 0
do while rs.EOF = False
rs.MoveNext
q10g = q10g + 1
q10gp = Round((q10g / total10)*100)
Loop
if q10gp = "" then q10gp = 0
q10gpw = q10gp * 2
%>
42nd Street:
<% Response.Write q10ap %>%
Annie:
<% Response.Write q10bp %>%
Meet Me In St. Louis:
<% Response.Write q10cp %>%
Godspell:
<% Response.Write q10dp %>%
The Music Man:
<% Response.Write q10ep %>%
Camelot:
<% Response.Write q10fp %>%
Hairspray:
<% Response.Write q10gp %>%
|
|
What do you think of the Muny's ticket prices?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question11 FROM minipoll WHERE pollName='20090521muny' 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='20090521muny' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question11 FROM minipoll WHERE pollName='20090521muny' AND Question11='C'"
rs.Open sql, conn
q11c = 0
do while rs.EOF = False
rs.MoveNext
q11c = q11c + 1
q11cp = Round((q11c / total11)*100)
Loop
if q11cp = "" then q11cp = 0
q11cpw = q11cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question11 FROM minipoll WHERE pollName='20090521muny' AND Question11='D'"
rs.Open sql, conn
q11d = 0
do while rs.EOF = False
rs.MoveNext
q11d = q11d + 1
q11dp = Round((q11d / total11)*100)
Loop
if q11dp = "" then q11dp = 0
q11dpw = q11dp * 2
%>
Just about right:
<% Response.Write q11ap %>%
Too high:
<% Response.Write q11bp %>%
Too high (and that's including the free ones):
<% Response.Write q11cp %>%
Too low:
<% Response.Write q11dp %>%
|
|
Have you ever waited for a chance to sit in the Muny's free seats?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20090521muny' 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='20090521muny' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20090521muny' AND Question12='C'"
rs.Open sql, conn
q12c = 0
do while rs.EOF = False
rs.MoveNext
q12c = q12c + 1
q12cp = Round((q12c / total12)*100)
Loop
if q12cp = "" then q12cp = 0
q12cpw = q12cp * 2
%>
Yes:
<% Response.Write q12ap %>%
No:
<% Response.Write q12bp %>%
No, but I might now:
<% Response.Write q12cp %>%
|
|
What kind of food would you most like to enjoy as a picnic while waiting for the free seats?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question13 FROM minipoll WHERE pollName='20090521muny' AND Question13='A'"
rs.Open sql, conn
q13a = 0
do while rs.EOF = False
rs.MoveNext
q13a = q13a + 1
q13ap = Round((q13a / total13)*100)
Loop
if q13ap = "" then q13ap = 0
q13apw = q13ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question13 FROM minipoll WHERE pollName='20090521muny' AND Question13='B'"
rs.Open sql, conn
q13b = 0
do while rs.EOF = False
rs.MoveNext
q13b = q13b + 1
q13bp = Round((q13b / total13)*100)
Loop
if q13bp = "" then q13bp = 0
q13bpw = q13bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question13 FROM minipoll WHERE pollName='20090521muny' AND Question13='C'"
rs.Open sql, conn
q13c = 0
do while rs.EOF = False
rs.MoveNext
q13c = q13c + 1
q13cp = Round((q13c / total13)*100)
Loop
if q13cp = "" then q13cp = 0
q13cpw = q13cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question13 FROM minipoll WHERE pollName='20090521muny' AND Question13='D'"
rs.Open sql, conn
q13d = 0
do while rs.EOF = False
rs.MoveNext
q13d = q13d + 1
q13dp = Round((q13d / total13)*100)
Loop
if q13dp = "" then q13dp = 0
q13dpw = q13dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question13 FROM minipoll WHERE pollName='20090521muny' AND Question13='E'"
rs.Open sql, conn
q13e = 0
do while rs.EOF = False
rs.MoveNext
q13e = q13e + 1
q13ep = Round((q13e / total13)*100)
Loop
if q13ep = "" then q13ep = 0
q13epw = q13ep * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question13 FROM minipoll WHERE pollName='20090521muny' AND Question13='F'"
rs.Open sql, conn
q13f = 0
do while rs.EOF = False
rs.MoveNext
q13f = q13f + 1
q13fp = Round((q13f / total13)*100)
Loop
if q13fp = "" then q13fp = 0
q13fpw = q13fp * 2
%>
I would get Imo's Pizza delivered:
<% Response.Write q13ap %>%
I would bring oxtail and peach cobbler from Del Monico's Diner:
<% Response.Write q13bp %>%
I would stop at Tower Grove Farmer's Market to stock up on fruits and veggies:
<% Response.Write q13cp %>%
I would pick up take-out fried chicken from Pat's in Dogtown:
<% Response.Write q13dp %>%
I would swing by Chinese Noodle Café in the Loop for a thermos of Peggy Hou's hot and sour soup:
<% Response.Write q13ep %>%
I would wait and buy sno-cones and frozen lemonade from the Muny's stands:
<% Response.Write q13fp %>%
|
|
Which of the following Muny performances would you most like to have seen in Forest Park?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20090521muny' AND Question14='A'"
rs.Open sql, conn
q14a = 0
do while rs.EOF = False
rs.MoveNext
q14a = q14a + 1
q14ap = Round((q14a / total14)*100)
Loop
if q14ap = "" then q14ap = 0
q14apw = q14ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20090521muny' AND Question14='B'"
rs.Open sql, conn
q14b = 0
do while rs.EOF = False
rs.MoveNext
q14b = q14b + 1
q14bp = Round((q14b / total14)*100)
Loop
if q14bp = "" then q14bp = 0
q14bpw = q14bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20090521muny' AND Question14='C'"
rs.Open sql, conn
q14c = 0
do while rs.EOF = False
rs.MoveNext
q14c = q14c + 1
q14cp = Round((q14c / total14)*100)
Loop
if q14cp = "" then q14cp = 0
q14cpw = q14cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20090521muny' AND Question14='D'"
rs.Open sql, conn
q14d = 0
do while rs.EOF = False
rs.MoveNext
q14d = q14d + 1
q14dp = Round((q14d / total14)*100)
Loop
if q14dp = "" then q14dp = 0
q14dpw = q14dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20090521muny' AND Question14='E'"
rs.Open sql, conn
q14e = 0
do while rs.EOF = False
rs.MoveNext
q14e = q14e + 1
q14ep = Round((q14e / total14)*100)
Loop
if q14ep = "" then q14ep = 0
q14epw = q14ep * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20090521muny' AND Question14='F'"
rs.Open sql, conn
q14f = 0
do while rs.EOF = False
rs.MoveNext
q14f = q14f + 1
q14fp = Round((q14f / total14)*100)
Loop
if q14fp = "" then q14fp = 0
q14fpw = q14fp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20090521muny' AND Question14='G'"
rs.Open sql, conn
q14g = 0
do while rs.EOF = False
rs.MoveNext
q14g = q14g + 1
q14gp = Round((q14g / total14)*100)
Loop
if q14gp = "" then q14gp = 0
q14gpw = q14gp * 2
%>
Lauren Bacall in Wonderful Town (1977):
<% Response.Write q14ap %>%
Norma Jean Baker as Grace Farrell in Annie (1983):
<% Response.Write q14bp %>%
Archie Leach (aka Cary Grant) as Max Grunewald in Wonderful Night (1931):
<% Response.Write q14cp %>%
Bob Hope as Huck Haines in Roberta (1958):
<% Response.Write q14dp %>%
Carol Burnett in I Do! I Do! (1974):
<% Response.Write q14ep %>%
Betty White as Lili in Take Me Along (1961):
<% Response.Write q14fp %>%
Vincent Price as Martin Gunther in The American Way (1940):
<% Response.Write q14gp %>%
|
|
How do you beat the heat at the Muny?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question15 FROM minipoll WHERE pollName='20090521muny' AND Question15='A'"
rs.Open sql, conn
q15a = 0
do while rs.EOF = False
rs.MoveNext
q15a = q15a + 1
q15ap = Round((q15a / total15)*100)
Loop
if q15ap = "" then q15ap = 0
q15apw = q15ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question15 FROM minipoll WHERE pollName='20090521muny' AND Question15='B'"
rs.Open sql, conn
q15b = 0
do while rs.EOF = False
rs.MoveNext
q15b = q15b + 1
q15bp = Round((q15b / total15)*100)
Loop
if q15bp = "" then q15bp = 0
q15bpw = q15bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question15 FROM minipoll WHERE pollName='20090521muny' AND Question15='C'"
rs.Open sql, conn
q15c = 0
do while rs.EOF = False
rs.MoveNext
q15c = q15c + 1
q15cp = Round((q15c / total15)*100)
Loop
if q15cp = "" then q15cp = 0
q15cpw = q15cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question15 FROM minipoll WHERE pollName='20090521muny' AND Question15='D'"
rs.Open sql, conn
q15d = 0
do while rs.EOF = False
rs.MoveNext
q15d = q15d + 1
q15dp = Round((q15d / total15)*100)
Loop
if q15dp = "" then q15dp = 0
q15dpw = q15dp * 2
%>
I bring my own spray fan:
<% Response.Write q15ap %>%
I fan myself with my playbill:
<% Response.Write q15bp %>%
I bring a small soft-sided cooler full of cold treats:
<% Response.Write q15cp %>%
Commando (enough said):
<% Response.Write q15dp %>%
|
|
Unlike other institutions in Forest Park, the Muny, a tax-exempt organization, receives no support from the Zoo-Museum District, Missouri Arts Council or Regional Arts Commission. Should it?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20090521muny' AND Question16='A'"
rs.Open sql, conn
q16a = 0
do while rs.EOF = False
rs.MoveNext
q16a = q16a + 1
q16ap = Round((q16a / total16)*100)
Loop
if q16ap = "" then q16ap = 0
q16apw = q16ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20090521muny' AND Question16='B'"
rs.Open sql, conn
q16b = 0
do while rs.EOF = False
rs.MoveNext
q16b = q16b + 1
q16bp = Round((q16b / total16)*100)
Loop
if q16bp = "" then q16bp = 0
q16bpw = q16bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20090521muny' AND Question16='C'"
rs.Open sql, conn
q16c = 0
do while rs.EOF = False
rs.MoveNext
q16c = q16c + 1
q16cp = Round((q16c / total16)*100)
Loop
if q16cp = "" then q16cp = 0
q16cpw = q16cp * 2
%>
Yes, the Muny is a civic treasure:
<% Response.Write q16ap %>%
No:
<% Response.Write q16bp %>%
No, and it should pay taxes:
<% Response.Write q16cp %>%
|
|
Have you inscribed a brick or dedicated a seat at the Muny?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question17 FROM minipoll WHERE pollName='20090521muny' AND Question17='A'"
rs.Open sql, conn
q17a = 0
do while rs.EOF = False
rs.MoveNext
q17a = q17a + 1
q17ap = Round((q17a / total17)*100)
Loop
if q17ap = "" then q17ap = 0
q17apw = q17ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question17 FROM minipoll WHERE pollName='20090521muny' AND Question17='B'"
rs.Open sql, conn
q17b = 0
do while rs.EOF = False
rs.MoveNext
q17b = q17b + 1
q17bp = Round((q17b / total17)*100)
Loop
if q17bp = "" then q17bp = 0
q17bpw = q17bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question17 FROM minipoll WHERE pollName='20090521muny' AND Question17='C'"
rs.Open sql, conn
q17c = 0
do while rs.EOF = False
rs.MoveNext
q17c = q17c + 1
q17cp = Round((q17c / total17)*100)
Loop
if q17cp = "" then q17cp = 0
q17cpw = q17cp * 2
%>
Yes:
<% Response.Write q17ap %>%
No:
<% Response.Write q17bp %>%
No, but that would be a good idea:
<% Response.Write q17cp %>%
|
|
Which show would you most like to see at the Muny next year?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question18 FROM minipoll WHERE pollName='20090521muny' AND Question18='A'"
rs.Open sql, conn
q18a = 0
do while rs.EOF = False
rs.MoveNext
q18a = q18a + 1
q18ap = Round((q18a / total18)*100)
Loop
if q18ap = "" then q18ap = 0
q18apw = q18ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question18 FROM minipoll WHERE pollName='20090521muny' AND Question18='B'"
rs.Open sql, conn
q18b = 0
do while rs.EOF = False
rs.MoveNext
q18b = q18b + 1
q18bp = Round((q18b / total18)*100)
Loop
if q18bp = "" then q18bp = 0
q18bpw = q18bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question18 FROM minipoll WHERE pollName='20090521muny' AND Question18='C'"
rs.Open sql, conn
q18c = 0
do while rs.EOF = False
rs.MoveNext
q18c = q18c + 1
q18cp = Round((q18c / total18)*100)
Loop
if q18cp = "" then q18cp = 0
q18cpw = q18cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question18 FROM minipoll WHERE pollName='20090521muny' AND Question18='D'"
rs.Open sql, conn
q18d = 0
do while rs.EOF = False
rs.MoveNext
q18d = q18d + 1
q18dp = Round((q18d / total18)*100)
Loop
if q18dp = "" then q18dp = 0
q18dpw = q18dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question18 FROM minipoll WHERE pollName='20090521muny' AND Question18='E'"
rs.Open sql, conn
q18e = 0
do while rs.EOF = False
rs.MoveNext
q18e = q18e + 1
q18ep = Round((q18e / total18)*100)
Loop
if q18ep = "" then q18ep = 0
q18epw = q18ep * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question18 FROM minipoll WHERE pollName='20090521muny' AND Question18='F'"
rs.Open sql, conn
q18f = 0
do while rs.EOF = False
rs.MoveNext
q18f = q18f + 1
q18fp = Round((q18f / total18)*100)
Loop
if q18fp = "" then q18fp = 0
q18fpw = q18fp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question18 FROM minipoll WHERE pollName='20090521muny' AND Question18='G'"
rs.Open sql, conn
q18g = 0
do while rs.EOF = False
rs.MoveNext
q18g = q18g + 1
q18gp = Round((q18g / total18)*100)
Loop
if q18gp = "" then q18gp = 0
q18gpw = q18gp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question18 FROM minipoll WHERE pollName='20090521muny' AND Question18='H'"
rs.Open sql, conn
q18h = 0
do while rs.EOF = False
rs.MoveNext
q18h = q18h + 1
q18hp = Round((q18h / total18)*100)
Loop
if q18hp = "" then q18hp = 0
q18hpw = q18hp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question18 FROM minipoll WHERE pollName='20090521muny' AND Question18='I'"
rs.Open sql, conn
q18i = 0
do while rs.EOF = False
rs.MoveNext
q18i = q18i + 1
q18ip = Round((q18i / total18)*100)
Loop
if q18ip = "" then q18ip = 0
q18ipw = q18ip * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question18 FROM minipoll WHERE pollName='20090521muny' AND Question18='J'"
rs.Open sql, conn
q18j = 0
do while rs.EOF = False
rs.MoveNext
q18j = q18j + 1
q18jp = Round((q18j / total18)*100)
Loop
if q18jp = "" then q18jp = 0
q18jpw = q18jp * 2
%>
Dreamgirls:
<% Response.Write q18ap %>%
Pinkalicious, The Musical:
<% Response.Write q18bp %>%
9 to 5:
<% Response.Write q18cp %>%
Rent:
<% Response.Write q18dp %>%
The Toxic Avenger:
<% Response.Write q18ep %>%
Altar Boyz:
<% Response.Write q18fp %>%
Avenue Q:
<% Response.Write q18gp %>%
Dr Seuss' How the Grinch Stole Christmas:
<% Response.Write q18hp %>%
High School Musical:
<% Response.Write q18ip %>%
The King and I:
<% Response.Write q18jp %>%
|
|
<% RS.Close
Conn.Close %>