<% 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?" %>

Mini Poll: Henry Kiel's Real Opera House


<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/minipoll4.mdb")) %>

Current Totals:

<% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090521muny'" rs.Open sql, conn total = 0 do while rs.EOF = False rs.MoveNext total = total + 1 Loop total = total + 1000 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM minipoll WHERE pollName='20090521muny' AND Question1>''" rs.Open sql, conn total1 = 0 do while rs.EOF = False rs.MoveNext total1 = total1 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM minipoll WHERE pollName='20090521muny' AND Question2>''" rs.Open sql, conn total2 = 0 do while rs.EOF = False rs.MoveNext total2 = total2 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM minipoll WHERE pollName='20090521muny' AND Question3>''" rs.Open sql, conn total3 = 0 do while rs.EOF = False rs.MoveNext total3 = total3 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM minipoll WHERE pollName='20090521muny' AND Question4>''" rs.Open sql, conn total4 = 0 do while rs.EOF = False rs.MoveNext total4 = total4 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM minipoll WHERE pollName='20090521muny' AND Question5>''" rs.Open sql, conn total15 = 0 do while rs.EOF = False rs.MoveNext total5 = total5 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question6 FROM minipoll WHERE pollName='20090521muny' AND Question6>''" rs.Open sql, conn total6 = 0 do while rs.EOF = False rs.MoveNext total6 = total6 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question7 FROM minipoll WHERE pollName='20090521muny' AND Question7>''" rs.Open sql, conn total7 = 0 do while rs.EOF = False rs.MoveNext total7 = total7 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question8 FROM minipoll WHERE pollName='20090521muny' AND Question8>''" rs.Open sql, conn total8 = 0 do while rs.EOF = False rs.MoveNext total8 = total8 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question9 FROM minipoll WHERE pollName='20090521muny' AND Question9>''" rs.Open sql, conn total9 = 0 do while rs.EOF = False rs.MoveNext total9 = total9 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question10 FROM minipoll WHERE pollName='20090521muny' AND Question10>''" rs.Open sql, conn total10 = 0 do while rs.EOF = False rs.MoveNext total10 = total10 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question11 FROM minipoll WHERE pollName='20090521muny' AND Question11>''" rs.Open sql, conn total11 = 0 do while rs.EOF = False rs.MoveNext total11 = total11 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question12 FROM minipoll WHERE pollName='20090521muny' AND Question12>''" rs.Open sql, conn total12 = 0 do while rs.EOF = False rs.MoveNext total12 = total12 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question13 FROM minipoll WHERE pollName='20090521muny' AND Question13>''" rs.Open sql, conn total13 = 0 do while rs.EOF = False rs.MoveNext total13 = total13 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question14 FROM minipoll WHERE pollName='20090521muny' AND Question14>''" rs.Open sql, conn total14 = 0 do while rs.EOF = False rs.MoveNext total14 = total14 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question15 FROM minipoll WHERE pollName='20090521muny' AND Question15>''" rs.Open sql, conn total15 = 0 do while rs.EOF = False rs.MoveNext total15 = total15 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question16 FROM minipoll WHERE pollName='20090521muny' AND Question16>''" rs.Open sql, conn total16 = 0 do while rs.EOF = False rs.MoveNext total16 = total16 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question17 FROM minipoll WHERE pollName='20090521muny' AND Question17>''" rs.Open sql, conn total17 = 0 do while rs.EOF = False rs.MoveNext total17 = total17 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question18 FROM minipoll WHERE pollName='20090521muny' AND Question18>''" rs.Open sql, conn total18 = 0 do while rs.EOF = False rs.MoveNext total18 = total18 + 1 Loop %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %>

Musicals?


Yes:
 <% Response.Write q1ap %>%
Yes, sometimes:
 <% Response.Write q1bp %>%
Nope:
 <% Response.Write q1cp %>%

 

Favorite place to see a musical?


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?


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?


Yes:
 <% Response.Write q4ap %>%
No:
 <% Response.Write q4bp %>%

 

Do you attend at least one performance at the Muny each season?


Yes:
 <% Response.Write q5ap %>%
No:
 <% Response.Write q5bp %>%

 

How many times do you usually go to the Muny each season?


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?


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?


Yes:
 <% Response.Write q8ap %>%
No:
 <% Response.Write q8bp %>%

 

Which of the following is the biggest challenge to enjoying a show at the Muny?


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?


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?


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?


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?


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?


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?


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?


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?


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?


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 %>

Note: Due to rounding, results for some questions may not total 100%.


<% Response.Write total %>