<% 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: Hear the Bellwether?" rightmenu="false" %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/minipoll4.mdb")) %>

Mini Poll: The Man or El Hombre? How Old School are you?


<% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition'" 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' AND Question5>''" rs.Open sql, conn total5 = 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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 Question19 FROM minipoll WHERE pollName='20090924tradition' AND Question19>''" rs.Open sql, conn total19 = 0 do while rs.EOF = False rs.MoveNext total19 = total19 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question20 FROM minipoll WHERE pollName='20090924tradition' AND Question20>''" rs.Open sql, conn total20 = 0 do while rs.EOF = False rs.MoveNext total20 = total20 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question21 FROM minipoll WHERE pollName='20090924tradition' AND Question21>''" rs.Open sql, conn total21 = 0 do while rs.EOF = False rs.MoveNext total21 = total21 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question22 FROM minipoll WHERE pollName='20090924tradition' AND Question22>''" rs.Open sql, conn total22 = 0 do while rs.EOF = False rs.MoveNext total22 = total22 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question23 FROM minipoll WHERE pollName='20090924tradition' AND Question23>''" rs.Open sql, conn total23 = 0 do while rs.EOF = False rs.MoveNext total23 = total23 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question24 FROM minipoll WHERE pollName='20090924tradition' AND Question24>''" rs.Open sql, conn total24 = 0 do while rs.EOF = False rs.MoveNext total24 = total24 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question25 FROM minipoll WHERE pollName='20090924tradition' AND Question25>''" rs.Open sql, conn total25 = 0 do while rs.EOF = False rs.MoveNext total25 = total25 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question26 FROM minipoll WHERE pollName='20090924tradition' AND Question26>''" rs.Open sql, conn total26 = 0 do while rs.EOF = False rs.MoveNext total26 = total26 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question27 FROM minipoll WHERE pollName='20090924tradition' AND Question27>''" rs.Open sql, conn total27 = 0 do while rs.EOF = False rs.MoveNext total27 = total27 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question28 FROM minipoll WHERE pollName='20090924tradition' AND Question28>''" rs.Open sql, conn total28 = 0 do while rs.EOF = False rs.MoveNext total28 = total28 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question29 FROM minipoll WHERE pollName='20090924tradition' AND Question29>''" rs.Open sql, conn total29 = 0 do while rs.EOF = False rs.MoveNext total29 = total29 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question30 FROM minipoll WHERE pollName='20090924tradition' AND Question30>''" rs.Open sql, conn total30 = 0 do while rs.EOF = False rs.MoveNext total30 = total30 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question31 FROM minipoll WHERE pollName='20090924tradition' AND Question31>''" rs.Open sql, conn total31 = 0 do while rs.EOF = False rs.MoveNext total31 = total31 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question32 FROM minipoll WHERE pollName='20090924tradition' AND Question32>''" rs.Open sql, conn total32 = 0 do while rs.EOF = False rs.MoveNext total32 = total32 + 1 Loop %> <% totalall = total1 + total2 + total3 + total4 + total5 + total6 + total7 + total8 + total9 + total10 + total11 + total12 + total13 + total14 + total15 + total16 + total17 + total18 + total19 + total20 + total21 + total22 + total23 + total24 + total25 + total26 + total27 + total28 + total29 + total30 + total31 + total32 set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question1='A'" rs.Open sql, conn qall = 0 do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question2='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question3='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question4='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question5='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question6='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question7='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question8='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question9='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question10='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question11='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question12='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question13='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question14='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question15='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question16='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question17='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question18='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question19='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question20='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question21='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question22='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question23='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question24='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question25='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question26='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question27='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question28='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question29='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question30='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question31='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20090924tradition' AND Question32='A'" rs.Open sql, conn do while rs.EOF = False rs.MoveNext qall = qall + 1 Loop aveall = qall/totalall aveall = aveall * 100 aveall = Round(aveall / 5.0) * 5 aveall = 100 - aveall %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM minipoll WHERE pollName='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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 Question2 FROM minipoll WHERE pollName='20090924tradition' 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='20090924tradition' 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 Question3 FROM minipoll WHERE pollName='20090924tradition' 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='20090924tradition' 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 Question4 FROM minipoll WHERE pollName='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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 Question7 FROM minipoll WHERE pollName='20090924tradition' 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='20090924tradition' 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 Question8 FROM minipoll WHERE pollName='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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='20090924tradition' 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 Question10 FROM minipoll WHERE pollName='20090924tradition' 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='20090924tradition' 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 Question11 FROM minipoll WHERE pollName='20090924tradition' 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='20090924tradition' 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 Question12 FROM minipoll WHERE pollName='20090924tradition' 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='20090924tradition' 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 Question13 FROM minipoll WHERE pollName='20090924tradition' 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='20090924tradition' 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 Question14 FROM minipoll WHERE pollName='20090924tradition' 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='20090924tradition' 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 Question15 FROM minipoll WHERE pollName='20090924tradition' 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='20090924tradition' AND Question15='B'" rs.Open sql, conn q15b = 0 do while rs.EOF = False rs.MoveNext q15b = q15b + 1 q15bp = Round((q15b / total20)*100) Loop if q15bp = "" then q15bp = 0 q15bpw = q15bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question16 FROM minipoll WHERE pollName='20090924tradition' 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='20090924tradition' 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 Question17 FROM minipoll WHERE pollName='20090924tradition' 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='20090924tradition' 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 Question18 FROM minipoll WHERE pollName='20090924tradition' 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='20090924tradition' 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 Question19 FROM minipoll WHERE pollName='20090924tradition' AND Question19='A'" rs.Open sql, conn q19a = 0 do while rs.EOF = False rs.MoveNext q19a = q19a + 1 q19ap = Round((q19a / total19)*100) Loop if q19ap = "" then q19ap = 0 q19apw = q19ap * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question19 FROM minipoll WHERE pollName='20090924tradition' AND Question19='B'" rs.Open sql, conn q19b = 0 do while rs.EOF = False rs.MoveNext q19b = q19b + 1 q19bp = Round((q19b / total19)*100) Loop if q19bp = "" then q19bp = 0 q19bpw = q19bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question20 FROM minipoll WHERE pollName='20090924tradition' AND Question20='A'" rs.Open sql, conn q20a = 0 do while rs.EOF = False rs.MoveNext q20a = q20a + 1 q20ap = Round((q20a / total20)*100) Loop if q20ap = "" then q20ap = 0 q20apw = q20ap * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question20 FROM minipoll WHERE pollName='20090924tradition' AND Question20='B'" rs.Open sql, conn q20b = 0 do while rs.EOF = False rs.MoveNext q20b = q20b + 1 q20bp = Round((q20b / total20)*100) Loop if q20bp = "" then q20bp = 0 q20bpw = q20bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question21 FROM minipoll WHERE pollName='20090924tradition' AND Question21='A'" rs.Open sql, conn q21a = 0 do while rs.EOF = False rs.MoveNext q21a = q21a + 1 q21ap = Round((q21a / total21)*100) Loop if q21ap = "" then q21ap = 0 q21apw = q21ap * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question21 FROM minipoll WHERE pollName='20090924tradition' AND Question21='B'" rs.Open sql, conn q21b = 0 do while rs.EOF = False rs.MoveNext q21b = q21b + 1 q21bp = Round((q21b / total21)*100) Loop if q21bp = "" then q21bp = 0 q21bpw = q21bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question22 FROM minipoll WHERE pollName='20090924tradition' AND Question22='A'" rs.Open sql, conn q22a = 0 do while rs.EOF = False rs.MoveNext q22a = q22a + 1 q22ap = Round((q22a / total22)*100) Loop if q22ap = "" then q22ap = 0 q22apw = q22ap * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question22 FROM minipoll WHERE pollName='20090924tradition' AND Question22='B'" rs.Open sql, conn q22b = 0 do while rs.EOF = False rs.MoveNext q22b = q22b + 1 q22bp = Round((q22b / total22)*100) Loop if q22bp = "" then q22bp = 0 q22bpw = q22bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question23 FROM minipoll WHERE pollName='20090924tradition' AND Question23='A'" rs.Open sql, conn q23a = 0 do while rs.EOF = False rs.MoveNext q23a = q23a + 1 q23ap = Round((q23a / total23)*100) Loop if q23ap = "" then q23ap = 0 q23apw = q23ap * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question23 FROM minipoll WHERE pollName='20090924tradition' AND Question23='B'" rs.Open sql, conn q23b = 0 do while rs.EOF = False rs.MoveNext q23b = q23b + 1 q23bp = Round((q23b / total23)*100) Loop if q23bp = "" then q23bp = 0 q23bpw = q23bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question24 FROM minipoll WHERE pollName='20090924tradition' AND Question24='A'" rs.Open sql, conn q24a = 0 do while rs.EOF = False rs.MoveNext q24a = q24a + 1 q24ap = Round((q24a / total24)*100) Loop if q24ap = "" then q24ap = 0 q24apw = q24ap * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question24 FROM minipoll WHERE pollName='20090924tradition' AND Question24='B'" rs.Open sql, conn q24b = 0 do while rs.EOF = False rs.MoveNext q24b = q24b + 1 q24bp = Round((q24b / total24)*100) Loop if q24bp = "" then q24bp = 0 q24bpw = q24bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question25 FROM minipoll WHERE pollName='20090924tradition' AND Question25='A'" rs.Open sql, conn q25a = 0 do while rs.EOF = False rs.MoveNext q25a = q25a + 1 q25ap = Round((q25a / total25)*100) Loop if q25ap = "" then q25ap = 0 q25apw = q25ap * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question25 FROM minipoll WHERE pollName='20090924tradition' AND Question25='B'" rs.Open sql, conn q25b = 0 do while rs.EOF = False rs.MoveNext q25b = q25b + 1 q25bp = Round((q25b / total25)*100) Loop if q25bp = "" then q25bp = 0 q25bpw = q25bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question26 FROM minipoll WHERE pollName='20090924tradition' AND Question26='A'" rs.Open sql, conn q26a = 0 do while rs.EOF = False rs.MoveNext q26a = q26a + 1 q26ap = Round((q26a / total26)*100) Loop if q26ap = "" then q26ap = 0 q26apw = q26ap * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question26 FROM minipoll WHERE pollName='20090924tradition' AND Question26='B'" rs.Open sql, conn q26b = 0 do while rs.EOF = False rs.MoveNext q26b = q26b + 1 q26bp = Round((q26b / total26)*100) Loop if q26bp = "" then q26bp = 0 q26bpw = q26bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question27 FROM minipoll WHERE pollName='20090924tradition' AND Question27='A'" rs.Open sql, conn q27a = 0 do while rs.EOF = False rs.MoveNext q27a = q27a + 1 q27ap = Round((q27a / total27)*100) Loop if q27ap = "" then q27ap = 0 q27apw = q27ap * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question27 FROM minipoll WHERE pollName='20090924tradition' AND Question27='B'" rs.Open sql, conn q27b = 0 do while rs.EOF = False rs.MoveNext q27b = q27b + 1 q27bp = Round((q27b / total27)*100) Loop if q27bp = "" then q27bp = 0 q27bpw = q27bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question28 FROM minipoll WHERE pollName='20090924tradition' AND Question28='A'" rs.Open sql, conn q28a = 0 do while rs.EOF = False rs.MoveNext q28a = q28a + 1 q28ap = Round((q28a / total28)*100) Loop if q28ap = "" then q28ap = 0 q28apw = q28ap * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question28 FROM minipoll WHERE pollName='20090924tradition' AND Question28='B'" rs.Open sql, conn q28b = 0 do while rs.EOF = False rs.MoveNext q28b = q28b + 1 q28bp = Round((q28b / total28)*100) Loop if q28bp = "" then q28bp = 0 q28bpw = q28bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question29 FROM minipoll WHERE pollName='20090924tradition' AND Question29='A'" rs.Open sql, conn q29a = 0 do while rs.EOF = False rs.MoveNext q29a = q29a + 1 q29ap = Round((q29a / total29)*100) Loop if q29ap = "" then q29ap = 0 q29apw = q29ap * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question29 FROM minipoll WHERE pollName='20090924tradition' AND Question29='B'" rs.Open sql, conn q29b = 0 do while rs.EOF = False rs.MoveNext q29b = q29b + 1 q29bp = Round((q29b / total29)*100) Loop if q29bp = "" then q29bp = 0 q29bpw = q29bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question30 FROM minipoll WHERE pollName='20090924tradition' AND Question30='A'" rs.Open sql, conn q30a = 0 do while rs.EOF = False rs.MoveNext q30a = q30a + 1 q30ap = Round((q30a / total30)*100) Loop if q30ap = "" then q30ap = 0 q30apw = q30ap * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question30 FROM minipoll WHERE pollName='20090924tradition' AND Question30='B'" rs.Open sql, conn q30b = 0 do while rs.EOF = False rs.MoveNext q30b = q30b + 1 q30bp = Round((q30b / total30)*100) Loop if q30bp = "" then q30bp = 0 q30bpw = q30bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question31 FROM minipoll WHERE pollName='20090924tradition' AND Question31='A'" rs.Open sql, conn q31a = 0 do while rs.EOF = False rs.MoveNext q31a = q31a + 1 q31ap = Round((q31a / total31)*100) Loop if q31ap = "" then q31ap = 0 q31apw = q31ap * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question31 FROM minipoll WHERE pollName='20090924tradition' AND Question31='B'" rs.Open sql, conn q31b = 0 do while rs.EOF = False rs.MoveNext q31b = q31b + 1 q31bp = Round((q31b / total31)*100) Loop if q31bp = "" then q31bp = 0 q31bpw = q31bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question32 FROM minipoll WHERE pollName='20090924tradition' AND Question32='A'" rs.Open sql, conn q32a = 0 do while rs.EOF = False rs.MoveNext q32a = q32a + 1 q32ap = Round((q32a / total32)*100) Loop if q32ap = "" then q32ap = 0 q32apw = q32ap * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question32 FROM minipoll WHERE pollName='20090924tradition' AND Question32='B'" rs.Open sql, conn q32b = 0 do while rs.EOF = False rs.MoveNext q32b = q32b + 1 q32bp = Round((q32b / total32)*100) Loop if q32bp = "" then q32bp = 0 q32bpw = q32bp * 2 %>

The WorldsFairOMeter: Are we more "Old School" than "New School"?

Individual Questions:


Old School: <% Response.Write q1ap %>%
|
New School: <% Response.Write q1bp %>%

 

Busch Stadium II: <% Response.Write q1ap %>%
|
Busch Stadium III: <% Response.Write q1bp %>%

 

St. Louis Football Cardinals: <% Response.Write q2ap %>%
|
St. Louis Rams: <% Response.Write q2bp %>%

 

Stan "The Man" Musial: <% Response.Write q3ap %>%
|
Albert "El Hombre" Pujols: <% Response.Write q3bp %>%

 

Checkerdome: <% Response.Write q4ap %>%
|
Savvis Center: <% Response.Write q4bp %>%

 

Jack Buck: <% Response.Write q5ap %>%
|
Joe Buck: <% Response.Write q5bp %>%

 

Martin Duggan : <% Response.Write q6ap %>%
|
Dana Loesch: <% Response.Write q6bp %>%

 

Red Villa: <% Response.Write q7ap %>%
|
Antonio French: <% Response.Write q7bp %>%

 

Horrigan & Brennan: <% Response.Write q8ap %>%
|
Jamie Allman: <% Response.Write q8bp %>%

 

Art Museum: <% Response.Write q9ap %>%
|
City Museum: <% Response.Write q9bp %>%

 

The Hill: <% Response.Write q10ap %>%
|
The Grove: <% Response.Write q10bp %>%

 

Chuck Berry: <% Response.Write q11ap %>%
|
Nelly: <% Response.Write q11bp %>%

 

Tower Grove Park: <% Response.Write q12ap %>%
|
CityGarden: <% Response.Write q12bp %>%

 

Old Cathedral: <% Response.Write q13ap %>%
|
New Cathedral: <% Response.Write q13bp %>%

 

Lemp Mansion: <% Response.Write q14ap %>%
|
The Darkness: <% Response.Write q14bp %>%

 

Four-family flats: <% Response.Write q15ap %>%
|
Two-family flats: <% Response.Write q15bp %>%

 

Backyards: <% Response.Write q16ap %>%
|
balconies: <% Response.Write q16bp %>%

 

Imo's: <% Response.Write q17ap %>%
|
Pi: <% Response.Write q17bp %>%

 

Tony's: <% Response.Write q18ap %>%
|
Niche: <% Response.Write q18bp %>%

 

Crown Candy Kitchen: <% Response.Write q19ap %>%
|
The Cupcakery: <% Response.Write q19bp %>%

 

AB: <% Response.Write q20ap %>%
|
Schlafly: <% Response.Write q20bp %>%

 

St. Louis Post-Dispatch: <% Response.Write q21ap %>%
|
stltoday.com: <% Response.Write q21bp %>%

 

Mike Owens: <% Response.Write q22ap %>%
|
Casey Nolen: <% Response.Write q22bp %>%

 

James Eads: <% Response.Write q23ap %>%
|
Jack Dorsey: <% Response.Write q23bp %>%

 

Greyhound: <% Response.Write q24ap %>%
|
Megabus: <% Response.Write q24bp %>%

 

Alternative routes: <% Response.Write q25ap %>%
|
re-built Highway 40: <% Response.Write q25bp %>%

 

Streetcar: <% Response.Write q26ap %>%
|
Bus: <% Response.Write q26bp %>%

 

Nuns: <% Response.Write q27ap %>%
|
Teach for America volunteers: <% Response.Write q27bp %>%

 

Private schools: <% Response.Write q28ap %>%
|
Charter schools: <% Response.Write q28bp %>%

 

Epiphany Lanes: <% Response.Write q29ap %>%
|
Flamingo Bowl: <% Response.Write q29bp %>%

 

Casa Loma Ballroom: <% Response.Write q30ap %>%
|
The Pageant: <% Response.Write q30bp %>%

 

Chase Park Plaza: <% Response.Write q31ap %>%
|
Four Seasons: <% Response.Write q31bp %>%

 

Famous Barr: <% Response.Write q32ap %>%
|
Macy's: <% Response.Write q32bp %>%

 

 

<% RS.Close Conn.Close %>

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


<% Response.Write total %>