<% 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: Suburban Journals" %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/minipoll2.mdb")) %>

Current Totals:

<% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20080124suburban'" 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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 Question1 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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 Question1 FROM minipoll WHERE pollName='20080124suburban' AND Question1='G'" rs.Open sql, conn q1g = 0 do while rs.EOF = False rs.MoveNext q1g = q1g + 1 q1gp = Round((q1g / total1)*100) Loop if q1gp = "" then q1gp = 0 q1gpw = q1gp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM minipoll WHERE pollName='20080124suburban' AND Question1='H'" rs.Open sql, conn q1h = 0 do while rs.EOF = False rs.MoveNext q1h = q1h + 1 q1hp = Round((q1h / total1)*100) Loop if q1hp = "" then q1hp = 0 q1hpw = q1hp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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 Question2 FROM minipoll WHERE pollName='20080124suburban' AND Question2='F'" rs.Open sql, conn q2f = 0 do while rs.EOF = False rs.MoveNext q2f = q2f + 1 q2fp = Round((q2f / total2)*100) Loop if q2fp = "" then q2fp = 0 q2fpw = q2fp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM minipoll WHERE pollName='20080124suburban' AND Question2='G'" rs.Open sql, conn q2g = 0 do while rs.EOF = False rs.MoveNext q2g = q2g + 1 q2gp = Round((q2g / total2)*100) Loop if q2gp = "" then q2gp = 0 q2gpw = q2gp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM minipoll WHERE pollName='20080124suburban' AND Question2='H'" rs.Open sql, conn q2h = 0 do while rs.EOF = False rs.MoveNext q2h = q2h + 1 q2hp = Round((q2h / total2)*100) Loop if q2hp = "" then q2hp = 0 q2hpw = q2hp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM minipoll WHERE pollName='20080124suburban' AND Question2='I'" rs.Open sql, conn q2i = 0 do while rs.EOF = False rs.MoveNext q2i = q2i + 1 q2ip = Round((q2i / total2)*100) Loop if q2ip = "" then q2ip = 0 q2ipw = q2ip * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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 Question5 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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 Question8 FROM minipoll WHERE pollName='20080124suburban' AND Question8='F'" rs.Open sql, conn q8f = 0 do while rs.EOF = False rs.MoveNext q8f = q8f + 1 q8fp = Round((q8f / total8)*100) Loop if q8fp = "" then q8fp = 0 q8fpw = q8fp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question8 FROM minipoll WHERE pollName='20080124suburban' AND Question8='G'" rs.Open sql, conn q8g = 0 do while rs.EOF = False rs.MoveNext q8g = q8g + 1 q8gp = Round((q8g / total8)*100) Loop if q8gp = "" then q8gp = 0 q8gpw = q8gp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question8 FROM minipoll WHERE pollName='20080124suburban' AND Question8='H'" rs.Open sql, conn q8h = 0 do while rs.EOF = False rs.MoveNext q8h = q8h + 1 q8hp = Round((q8h / total8)*100) Loop if q8hp = "" then q8hp = 0 q8hpw = q8hp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question8 FROM minipoll WHERE pollName='20080124suburban' AND Question8='I'" rs.Open sql, conn q8i = 0 do while rs.EOF = False rs.MoveNext q8i = q8i + 1 q8ip = Round((q8i / total8)*100) Loop if q8ip = "" then q8ip = 0 q8ipw = q8ip * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question8 FROM minipoll WHERE pollName='20080124suburban' AND Question8='J'" rs.Open sql, conn q8j = 0 do while rs.EOF = False rs.MoveNext q8j = q8j + 1 q8jp = Round((q8j / total8)*100) Loop if q8jp = "" then q8jp = 0 q8jpw = q8jp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question8 FROM minipoll WHERE pollName='20080124suburban' AND Question8='K'" rs.Open sql, conn q8k = 0 do while rs.EOF = False rs.MoveNext q8k = q8k + 1 q8kp = Round((q8k / total8)*100) Loop if q8kp = "" then q8kp = 0 q8kpw = q8kp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question9 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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 Question12 FROM minipoll WHERE pollName='20080124suburban' AND Question12='E'" rs.Open sql, conn q12e = 0 do while rs.EOF = False rs.MoveNext q12e = q12e + 1 q12ep = Round((q12e / total12)*100) Loop if q12ep = "" then q12ep = 0 q12epw = q12ep * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question12 FROM minipoll WHERE pollName='20080124suburban' AND Question12='F'" rs.Open sql, conn q12f = 0 do while rs.EOF = False rs.MoveNext q12f = q12f + 1 q12fp = Round((q12f / total12)*100) Loop if q12fp = "" then q12fp = 0 q12fpw = q12fp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question13 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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 Question15 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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 Question16 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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 %>

From which of the following sources do you get most of your local news?

Coffee shop/grocery store chatter:
 <% Response.Write q1ap %>%
Internet sites, like MayorSlay.com:
 <% Response.Write q1bp %>%
Magazines:
 <% Response.Write q1cp %>%
Daily newspapers:
 <% Response.Write q1dp %>%
Weekly or monthly newspapers:
 <% Response.Write q1ep %>%
Radio:
 <% Response.Write q1fp %>%
Sermons at church:
 <% Response.Write q1gp %>%
Television:
 <% Response.Write q1hp %>%

 

Which of the following free local newspapers do you most regularly read?

Green Sheet:
 <% Response.Write q2ap %>%
Java Journal:
 <% Response.Write q2bp %>%
Riverfront Times:
 <% Response.Write q2cp %>%
Sauce:
 <% Response.Write q2dp %>%
St. Louis Argus:
 <% Response.Write q2ep %>%
St. Louis Review:
 <% Response.Write q2fp %>%
Suburban Journals:
 <% Response.Write q2gp %>%
Vital Voice:
 <% Response.Write q2hp %>%
West End Word:
 <% Response.Write q2ip %>%

 

Do you receive a copy of the Suburban Journal at your home regularly?

Yes:
 <% Response.Write q3ap %>%
No:
 <% Response.Write q3bp %>%

 

If you do not receive a Suburban Journal, do you wish you did?

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

 

If you do receive a Suburban Journal, do you wish you did not?

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

 

Which of the following actions best describes what you most often do with the Suburban Journal?

Read it to find out what's going on in my neighborhood:
 <% Response.Write q7ap %>%
Read it to find out how a school's sports teams are doing:
 <% Response.Write q7bp %>%
Read it to learn new recipes:
 <% Response.Write q7cp %>%
Read it to find out about bargains or sales:
 <% Response.Write q7dp %>%
Read it to see what lunches the schools are serving this week:
 <% Response.Write q7ep %>%
Steal or borrow a copy from someone who gets one:
 <% Response.Write q7fp %>%
Place it in the trash can or recycling bin without reading it:
 <% Response.Write q7gp %>%
Leave it in the yard until it mulches:
 <% Response.Write q7hp %>%

 

Which of the following features of the Suburban Journal do you most regularly read?

Education:
 <% Response.Write q8ap %>%
Prep Sports:
 <% Response.Write q8bp %>%
Guest Commentary:
 <% Response.Write q8cp %>%
Letters:
 <% Response.Write q8dp %>%
Opinion Shaper:
 <% Response.Write q8ep %>%
Page One stories:
 <% Response.Write q8fp %>%
Town Talk:
 <% Response.Write q8gp %>%
Entertainment:
 <% Response.Write q8hp %>%
Recipes:
 <% Response.Write q8ip %>%
Life Styles:
 <% Response.Write q8jp %>%
Classifieds:
 <% Response.Write q8kp %>%

 

Have you ever looked to find how much your neighbors' or friends' homes were worth in the "What Did it Sell For" feature?

Yes:
 <% Response.Write q9ap %>%
No:
 <% Response.Write q9bp %>%

 

Have you ever called Town Talk?

Yes:
 <% Response.Write q10ap %>%
No:
 <% Response.Write q10bp %>%

 

Which of the following is most likely the average age of a Town Talk caller?

60:
 <% Response.Write q11ap %>%
70:
 <% Response.Write q11bp %>%
80:
 <% Response.Write q11cp %>%
90:
 <% Response.Write q11dp %>%
100:
 <% Response.Write q11ep %>%

 

If you were going to submit something to the Suburban Journals, which of the following would it most likely be?

A guest commentary on a subject of great interest to the community:
 <% Response.Write q12ap %>%
A letter to the editor poking fun at an Opinion Shaper article:
 <% Response.Write q12bp %>%
A favorite recipe from my family:
 <% Response.Write q12cp %>%
A sports feat by someone in my family:
 <% Response.Write q12dp %>%
An ad for my garage sale:
 <% Response.Write q12ep %>%
An anonymous tape recorded Town Talk comment about something that outraged me:
 <% Response.Write q12fp %>%

 

Do you find the guest commentaries in the Suburban Journals generally interesting, or generally a waste of reader time?

Generally interesting:
 <% Response.Write q13ap %>%
A waste of reader time:
 <% Response.Write q13bp %>%

 

Do you think reporting in the Suburban Journals is better than reporting in other newspapers, worse than in other papers, or about the same?

Better:
 <% Response.Write q14ap %>%
Worse:
 <% Response.Write q14bp %>%
About the same:
 <% Response.Write q14cp %>%

 

Do you agree with the Suburban Journals' highly publicized decision not to use the surname of the adult associated with a cruel Internet hoax that may have led to the suicide of a despondent local teenager because naming them would have revealed the name of the hoaxer's minor child?

Yes:
 <% Response.Write q15ap %>%
No:
 <% Response.Write q15bp %>%

 

Which of the following statements best reflects your most strongly held opinion of the Suburban Journals?

The Suburban Journals are an important source of community news because they cover people, events, and issues often overlooked by the St. Louis Post-Dispatch:
 <% Response.Write q16ap %>%
The Suburban Journals should not be delivered free to households because some people don't want them and they litter neighborhoods; they should be distributed in kiosks so that only those who wish to read them take them:
 <% Response.Write q16bp %>%
The Suburban Journals cover mostly trivial events that I am not interested in reading:
 <% Response.Write q16cp %>%

 

Do you read the Suburban Journals online?

Yes, sometimes:
 <% Response.Write q17ap %>%
Yes, always:
 <% Response.Write q17bp %>%
No:
 <% Response.Write q17cp %>%

 

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


<% Response.Write total %>