<% 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: Convention-al Thinking" %> <% 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='20080904convention'" 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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 Question1 FROM minipoll WHERE pollName='20080904convention' 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='20080904convention' 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='20080904convention' 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 Question1 FROM minipoll WHERE pollName='20080904convention' AND Question1='D'" rs.Open sql, conn q1d = 0 do while rs.EOF = False rs.MoveNext q1d = q1d + 1 q1dp = Round((q1d / total1)*100) Loop if q1dp = "" then q1dp = 0 q1dpw = q1dp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM minipoll WHERE pollName='20080904convention' AND Question1='E'" rs.Open sql, conn q1e = 0 do while rs.EOF = False rs.MoveNext q1e = q1e + 1 q1ep = Round((q1e / total1)*100) Loop if q1ep = "" then q1ep = 0 q1epw = q1ep * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM minipoll WHERE pollName='20080904convention' AND Question1='F'" rs.Open sql, conn q1f = 0 do while rs.EOF = False rs.MoveNext q1f = q1f + 1 q1fp = Round((q1f / total1)*100) Loop if q1fp = "" then q1fp = 0 q1fpw = q1fp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM minipoll WHERE pollName='20080904convention' 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='20080904convention' 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='20080904convention' 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 Question2 FROM minipoll WHERE pollName='20080904convention' AND Question2='D'" rs.Open sql, conn q2d = 0 do while rs.EOF = False rs.MoveNext q2d = q2d + 1 q2dp = Round((q2d / total2)*100) Loop if q2dp = "" then q2dp = 0 q2dpw = q2dp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM minipoll WHERE pollName='20080904convention' AND Question2='E'" rs.Open sql, conn q2e = 0 do while rs.EOF = False rs.MoveNext q2e = q2e + 1 q2ep = Round((q2e / total2)*100) Loop if q2ep = "" then q2ep = 0 q2epw = q2ep * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM minipoll WHERE pollName='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' AND Question4='B'" rs.Open sql, conn q4b = 0 do while rs.EOF = False rs.MoveNext q4b = q4b + 1 q4bp = Round((q4b / total4)*100) Loop if q4bp = "" then q4bp = 0 q4bpw = q4bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM minipoll WHERE pollName='20080904convention' AND Question4='C'" rs.Open sql, conn q4c = 0 do while rs.EOF = False rs.MoveNext q4c = q4c + 1 q4cp = Round((q4c / total4)*100) Loop if q4cp = "" then q4cp = 0 q4cpw = q4cp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM minipoll WHERE pollName='20080904convention' AND Question4='D'" rs.Open sql, conn q4d = 0 do while rs.EOF = False rs.MoveNext q4d = q4d + 1 q4dp = Round((q4d / total4)*100) Loop if q4dp = "" then q4dp = 0 q4dpw = q4dp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM minipoll WHERE pollName='20080904convention' AND Question4='E'" rs.Open sql, conn q4e = 0 do while rs.EOF = False rs.MoveNext q4e = q4e + 1 q4ep = Round((q4e / total4)*100) Loop if q4ep = "" then q4ep = 0 q4epw = q4ep * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM minipoll WHERE pollName='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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 Question8 FROM minipoll WHERE pollName='20080904convention' 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='20080904convention' AND Question8='B'" rs.Open sql, conn q8b = 0 do while rs.EOF = False rs.MoveNext q8b = q8b + 1 q8bp = Round((q8b / total8)*100) Loop if q8bp = "" then q8bp = 0 q8bpw = q8bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question8 FROM minipoll WHERE pollName='20080904convention' AND Question8='C'" rs.Open sql, conn q8c = 0 do while rs.EOF = False rs.MoveNext q8c = q8c + 1 q8cp = Round((q8c / total8)*100) Loop if q8cp = "" then q8cp = 0 q8cpw = q8cp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question8 FROM minipoll WHERE pollName='20080904convention' AND Question8='D'" rs.Open sql, conn q8d = 0 do while rs.EOF = False rs.MoveNext q8d = q8d + 1 q8dp = Round((q8d / total8)*100) Loop if q8dp = "" then q8dp = 0 q8dpw = q8dp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question8 FROM minipoll WHERE pollName='20080904convention' AND Question8='E'" rs.Open sql, conn q8e = 0 do while rs.EOF = False rs.MoveNext q8e = q8e + 1 q8ep = Round((q8e / total8)*100) Loop if q8ep = "" then q8ep = 0 q8epw = q8ep * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question9 FROM minipoll WHERE pollName='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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 Question10 FROM minipoll WHERE pollName='20080904convention' 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='20080904convention' 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='20080904convention' 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 Question11 FROM minipoll WHERE pollName='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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 Question11 FROM minipoll WHERE pollName='20080904convention' AND Question11='E'" rs.Open sql, conn q11e = 0 do while rs.EOF = False rs.MoveNext q11e = q11e + 1 q11ep = Round((q11e / total11)*100) Loop if q11ep = "" then q11ep = 0 q11epw = q11ep * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question12 FROM minipoll WHERE pollName='20080904convention' 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='20080904convention' 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='20080904convention' 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 Question12 FROM minipoll WHERE pollName='20080904convention' AND Question12='D'" rs.Open sql, conn q12d = 0 do while rs.EOF = False rs.MoveNext q12d = q12d + 1 q12dp = Round((q12d / total12)*100) Loop if q12dp = "" then q12dp = 0 q12dpw = q12dp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question13 FROM minipoll WHERE pollName='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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 Question13 FROM minipoll WHERE pollName='20080904convention' AND Question13='G'" rs.Open sql, conn q13g = 0 do while rs.EOF = False rs.MoveNext q13g = q13g + 1 q13gp = Round((q13g / total13)*100) Loop if q13gp = "" then q13gp = 0 q13gpw = q13gp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question13 FROM minipoll WHERE pollName='20080904convention' AND Question13='H'" rs.Open sql, conn q13h = 0 do while rs.EOF = False rs.MoveNext q13h = q13h + 1 q13hp = Round((q13h / total13)*100) Loop if q13hp = "" then q13hp = 0 q13hpw = q13hp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question13 FROM minipoll WHERE pollName='20080904convention' AND Question13='I'" rs.Open sql, conn q13i = 0 do while rs.EOF = False rs.MoveNext q13i = q13i + 1 q13ip = Round((q13i / total13)*100) Loop if q13ip = "" then q13ip = 0 q13ipw = q13ip * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question14 FROM minipoll WHERE pollName='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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 Question15 FROM minipoll WHERE pollName='20080904convention' AND Question15='E'" rs.Open sql, conn q15e = 0 do while rs.EOF = False rs.MoveNext q15e = q15e + 1 q15ep = Round((q15e / total15)*100) Loop if q15ep = "" then q15ep = 0 q15epw = q15ep * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question16 FROM minipoll WHERE pollName='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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='20080904convention' 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 %>

Did you attend one of the political party conventions this year?

Yes, as a delegate or alternate:
 <% Response.Write q1ap %>%
Yes, as a party official, candidate, or campaign staffer:
 <% Response.Write q1bp %>%
Yes, as a journalist or blogger:
 <% Response.Write q1cp %>%
Yes, as a guest or a spouse:
 <% Response.Write q1dp %>%
Yes, as a vendor:
 <% Response.Write q1ep %>%
No:
 <% Response.Write q1fp %>%

 

Which political party's convention would you have most liked to attend this year?

Constitution Party (Kansas City):
 <% Response.Write q2ap %>%
Democratic Party (Denver):
 <% Response.Write q2bp %>%
Green Party (Chicago):
 <% Response.Write q2cp %>%
Libertarian Party (Denver):
 <% Response.Write q2dp %>%
Republican Party (St. Paul):
 <% Response.Write q2ep %>%

 

Which political party do you think will get the biggest polling bounce for its candidates from its convention this year?

Constitution Party:
 <% Response.Write q3ap %>%
Democratic Party:
 <% Response.Write q3bp %>%
Green Party:
 <% Response.Write q3cp %>%
Libertarian Party:
 <% Response.Write q3dp %>%
Republican Party:
 <% Response.Write q3ep %>%
No polling bounces this year:
 <% Response.Write q3fp %>%

 

Do you think that the St. Louis region should put in a bid to land either the Democratic or Republican national convention in 2012?

Yes, the Democratic convention:
 <% Response.Write q4ap %>%
Yes, the Republican convention:
 <% Response.Write q4bp %>%
Yes, put in bids for both and see if we get one:
 <% Response.Write q4cp %>%
No:
 <% Response.Write q4dp %>%
No, but put in bids for one of the minor party conventions:
 <% Response.Write q4ep %>%

 

At which political convention, the Democrats or the Republicans, would you expect to find the best after-hours parties?

Democrats:
 <% Response.Write q5ap %>%
Republicans:
 <% Response.Write q5bp %>%

 

Do you believe that Sen. John McCain made the right decision to scale back the Republican convention and change its tone because of Hurricane Gustav?

Yes:
 <% Response.Write q6ap %>%
No:
 <% Response.Write q6bp %>%

 

In general, do you think that the Republican presidential ticket is hurt or helped by a scaled back national convention?

Helped:
 <% Response.Write q7ap %>%
Hurt:
 <% Response.Write q7bp %>%
No effect:
 <% Response.Write q7cp %>%

 

How would you describe Gov. Sarah Palin's convention speech?

Great speech:
 <% Response.Write q8ap %>%
Good, but better than I expected:
 <% Response.Write q8bp %>%
Good, but worse than I expected:
 <% Response.Write q8cp %>%
Bad speech:
 <% Response.Write q8dp %>%
Didn't see it:
 <% Response.Write q8ep %>%

 

Which of the following speakers not named Obama or Clinton do you think gave the best speech at the Democratic convention?

Biden:
 <% Response.Write q9ap %>%
Carter:
 <% Response.Write q9bp %>%
Gore:
 <% Response.Write q9cp %>%
Kennedy:
 <% Response.Write q9dp %>%
Kerry:
 <% Response.Write q9ep %>%
Pelosi:
 <% Response.Write q9fp %>%
Ritter:
 <% Response.Write q9gp %>%
Schweitzer:
 <% Response.Write q9hp %>%
Warner:
 <% Response.Write q9ip %>%
Someone else:
 <% Response.Write q9jp %>%
I don't know:
 <% Response.Write q9kp %>%

 

 

From everything you saw or heard, in a combined husband/wife ranking, which couple gave the better speeches at the Democratic convention?

Obamas:
 <% Response.Write q10ap %>%
Clintons:
 <% Response.Write q10bp %>%
Didn't see any of them:
 <% Response.Write q10cp %>%

 

Which statement comes closest to your personal feelings about the decision to site Senator Barack Obama's acceptance speech in front of 80,000 people at Invesco Field at Mile High Stadium?

Perfect:
 <% Response.Write q11ap %>%
Great:
 <% Response.Write q11bp %>%
Good try:
 <% Response.Write q11cp %>%
Sort of a let down:
 <% Response.Write q11dp %>%
Flop:
 <% Response.Write q11ep %>%

 

Which of the following statements best describes why you follow media coverage of political conventions?

For entertainment:
 <% Response.Write q12ap %>%
For information:
 <% Response.Write q12bp %>%
Because the media don't cover anything else those nights:
 <% Response.Write q12cp %>%
I don't follow political conventions:
 <% Response.Write q12dp %>%

 

Which TV news source have you most watched for convention coverage this year?

ABC:
 <% Response.Write q13ap %>%
CBS:
 <% Response.Write q13bp %>%
CNN:
 <% Response.Write q13cp %>%
C-Span:
 <% Response.Write q13dp %>%
Fox:
 <% Response.Write q13ep %>%
NBC:
 <% Response.Write q13fp %>%
PBS:
 <% Response.Write q13gp %>%
Something else:
 <% Response.Write q13hp %>%
I haven't watched any TV convention coverage at all:
 <% Response.Write q13ip %>%

 

In general, what letter grade would you give the St. Louis Post-Dispatch's overall coverage of this year's Democratic and Republican political conventions?

A:
 <% Response.Write q14ap %>%
B:
 <% Response.Write q14bp %>%
C:
 <% Response.Write q14cp %>%
D:
 <% Response.Write q14dp %>%
F:
 <% Response.Write q14ep %>%
Incomplete, because they gave one convention much better coverage than the other:
 <% Response.Write q14fp %>%
Incomplete, because I didn't follow any of their coverage at all:
 <% Response.Write q14gp %>%

 

Besides Mayor Francis Slay's own blog, did you read any blogs from the Democratic or Republican conventions?

Yes, a lot:
 <% Response.Write q15ap %>%
Yes, some:
 <% Response.Write q15bp %>%
No, not really:
 <% Response.Write q15cp %>%
No, and I didn't even read Mayor's Slay's blog:
 <% Response.Write q15dp %>%
Maybe - explain what a blog is:
 <% Response.Write q15ep %>%

 

 

BONUS DEMOGRAPHIC QUESTION:

For each of the following pairs of words you might hear at a political convention, pick the one that you personally find more powerful:

Experienced: <% Response.Write q16ap %>%
|
Competent: <% Response.Write q16bp %>%
Change: <% Response.Write q17ap %>%
|
Reform: <% Response.Write q17bp %>%
Democrat: <% Response.Write q18ap %>%
|
Not George W. Bush: <% Response.Write q18bp %>%
Not male: <% Response.Write q19ap %>%
|
Not white: <% Response.Write q19bp %>%
Fresh: <% Response.Write q20ap %>%
|
Different: <% Response.Write q20bp %>%
Maverick: <% Response.Write q21ap %>%
|
Outside the box: <% Response.Write q21bp %>%
<% RS.Close Conn.Close %>

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


<% Response.Write total %>