<% 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: Summer In The City" %> <% 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='20080605summer'" 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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 Question1 FROM minipoll WHERE pollName='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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 Question3 FROM minipoll WHERE pollName='20080605summer' 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='20080605summer' 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='20080605summer' 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 Question4 FROM minipoll WHERE pollName='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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 Question4 FROM minipoll WHERE pollName='20080605summer' AND Question4='F'" rs.Open sql, conn q4f = 0 do while rs.EOF = False rs.MoveNext q4f = q4f + 1 q4fp = Round((q4f / total4)*100) Loop if q4fp = "" then q4fp = 0 q4fpw = q4fp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM minipoll WHERE pollName='20080605summer' AND Question4='G'" rs.Open sql, conn q4g = 0 do while rs.EOF = False rs.MoveNext q4g = q4g + 1 q4gp = Round((q4g / total4)*100) Loop if q4gp = "" then q4gp = 0 q4gpw = q4gp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM minipoll WHERE pollName='20080605summer' 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='20080605summer' 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 Question5 FROM minipoll WHERE pollName='20080605summer' AND Question5='C'" rs.Open sql, conn q5c = 0 do while rs.EOF = False rs.MoveNext q5c = q5c + 1 q5cp = Round((q5c / total5)*100) Loop if q5cp = "" then q5cp = 0 q5cpw = q5cp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question6 FROM minipoll WHERE pollName='20080605summer' 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='20080605summer' AND Question6='B'" rs.Open sql, conn q6b = 0 do while rs.EOF = False rs.MoveNext q6b = q6b + 1 q6bp = Round((q6b / total6)*100) Loop if q6bp = "" then q6bp = 0 q6bpw = q6bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question6 FROM minipoll WHERE pollName='20080605summer' AND Question6='C'" rs.Open sql, conn q6c = 0 do while rs.EOF = False rs.MoveNext q6c = q6c + 1 q6cp = Round((q6c / total6)*100) Loop if q6cp = "" then q6cp = 0 q6cpw = q6cp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question6 FROM minipoll WHERE pollName='20080605summer' AND Question6='D'" rs.Open sql, conn q6d = 0 do while rs.EOF = False rs.MoveNext q6d = q6d + 1 q6dp = Round((q6d / total6)*100) Loop if q6dp = "" then q6dp = 0 q6dpw = q6dp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question6 FROM minipoll WHERE pollName='20080605summer' AND Question6='E'" rs.Open sql, conn q6e = 0 do while rs.EOF = False rs.MoveNext q6e = q6e + 1 q6ep = Round((q6e / total6)*100) Loop if q6ep = "" then q6ep = 0 q6epw = q6ep * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question7 FROM minipoll WHERE pollName='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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 Question8 FROM minipoll WHERE pollName='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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 Question10 FROM minipoll WHERE pollName='20080605summer' 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='20080605summer' 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='20080605summer' AND Question10='C'" rs.Open sql, conn q10c = 0 do while rs.EOF = False rs.MoveNext q10c = q10c + 1 q10cp = Round((q10c / total10)*100) Loop if q10cp = "" then q10cp = 0 q10cpw = q10cp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question10 FROM minipoll WHERE pollName='20080605summer' AND Question10='D'" rs.Open sql, conn q10d = 0 do while rs.EOF = False rs.MoveNext q10d = q10d + 1 q10dp = Round((q10d / total10)*100) Loop if q10dp = "" then q10dp = 0 q10dpw = q10dp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question10 FROM minipoll WHERE pollName='20080605summer' AND Question10='E'" rs.Open sql, conn q10e = 0 do while rs.EOF = False rs.MoveNext q10e = q10e + 1 q10ep = Round((q10e / total10)*100) Loop if q10ep = "" then q10ep = 0 q10epw = q10ep * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question10 FROM minipoll WHERE pollName='20080605summer' AND Question10='F'" rs.Open sql, conn q10f = 0 do while rs.EOF = False rs.MoveNext q10f = q10f + 1 q10fp = Round((q10f / total10)*100) Loop if q10fp = "" then q10fp = 0 q10fpw = q10fp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question11 FROM minipoll WHERE pollName='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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 Question11 FROM minipoll WHERE pollName='20080605summer' AND Question11='F'" rs.Open sql, conn q11f = 0 do while rs.EOF = False rs.MoveNext q11f = q11f + 1 q11fp = Round((q11f / total11)*100) Loop if q11fp = "" then q11fp = 0 q11fpw = q11fp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question11 FROM minipoll WHERE pollName='20080605summer' AND Question11='G'" rs.Open sql, conn q11g = 0 do while rs.EOF = False rs.MoveNext q11g = q11g + 1 q11gp = Round((q11g / total11)*100) Loop if q11gp = "" then q11gp = 0 q11gpw = q11gp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question11 FROM minipoll WHERE pollName='20080605summer' AND Question11='H'" rs.Open sql, conn q11h = 0 do while rs.EOF = False rs.MoveNext q11h = q11h + 1 q11hp = Round((q11h / total11)*100) Loop if q11hp = "" then q11hp = 0 q11hpw = q11hp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question11 FROM minipoll WHERE pollName='20080605summer' AND Question11='I'" rs.Open sql, conn q11i = 0 do while rs.EOF = False rs.MoveNext q11i = q11i + 1 q11ip = Round((q11i / total11)*100) Loop if q11ip = "" then q11ip = 0 q11ipw = q11ip * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question12 FROM minipoll WHERE pollName='20080605summer' 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='20080605summer' 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='20080605summer' AND Question12='C'" rs.Open sql, conn q12c = 0 do while rs.EOF = False rs.MoveNext q12c = q12c + 1 q12cp = Round((q12c / total12)*100) Loop if q12cp = "" then q12cp = 0 q12cpw = q12cp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question13 FROM minipoll WHERE pollName='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' 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 Question15 FROM minipoll WHERE pollName='20080605summer' 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='20080605summer' 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='20080605summer' 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='20080605summer' AND Question15='D'" rs.Open sql, conn q15d = 0 do while rs.EOF = False rs.MoveNext q15d = q15d + 1 q15dp = Round((q15d / total15)*100) Loop if q15dp = "" then q15dp = 0 q15dpw = q15dp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question16 FROM minipoll WHERE pollName='20080605summer' 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='20080605summer' 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='20080605summer' 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 %>

To which of the following do you most look forward during a St. Louis summer?

A summer of neighborhood fairs and fireworks:
 <% Response.Write q1ap %>%
A summer of patio dining and drinking:
 <% Response.Write q1bp %>%
A summer of getting ahead or catching up in school:
 <% Response.Write q1cp %>%
A summer of free outdoor concerts:
 <% Response.Write q1dp %>%
A summer that includes a vacation somewhere else:
 <% Response.Write q1ep %>%
I hate summer in St. Louis:
 <% Response.Write q1fp %>%

 

To which of the following do you least look forward to during a St. Louis summer?

The heat:
 <% Response.Write q2ap %>%
The humidity:
 <% Response.Write q2bp %>%
Unflattering fashions worn in public places:
 <% Response.Write q2cp %>%
Fair Saint Louis and other causes of traffic jams:
 <% Response.Write q2dp %>%
All the kids underfoot:
 <% Response.Write q2ep %>%
I love everything about summer in St. Louis:
 <% Response.Write q2fp %>%

 

Do you plan to take a vacation somewhere else this summer?

Yes:
 <% Response.Write q3ap %>%
No, I will take a vacation but stay in St. Louis:
 <% Response.Write q3bp %>%
No vacation for me this summer:
 <% Response.Write q3cp %>%

 

How do you plan to travel to your vacation destination this summer?

Car:
 <% Response.Write q4ap %>%
Bus:
 <% Response.Write q4bp %>%
Train:
 <% Response.Write q4cp %>%
Airplane:
 <% Response.Write q4dp %>%
Bicycle:
 <% Response.Write q4ep %>%
Some other way:
 <% Response.Write q4fp %>%
Only in my dreams:
 <% Response.Write q4gp %>%

 

Compared to your last summer vacation, do you plan to spend more money or less money on this year's vacation?

More money:
 <% Response.Write q5ap %>%
Less money:
 <% Response.Write q5bp %>%
About the same:
 <% Response.Write q5cp %>%

 

If you are going to take a vacation out of town, how long do you expect to be gone?

A day or two:
 <% Response.Write q6ap %>%
A week or two:
 <% Response.Write q6bp %>%
A month or two:
 <% Response.Write q6cp %>%
The whole summer:
 <% Response.Write q6dp %>%
I'm not taking a vacation:
 <% Response.Write q6ep %>%

 

Which purely theoretical change would most improve a summer vacation for you?

No children:
 <% Response.Write q7ap %>%
No spouse:
 <% Response.Write q7bp %>%
No in-laws:
 <% Response.Write q7cp %>%
No cell phone:
 <% Response.Write q7dp %>%
No diet:
 <% Response.Write q7ep %>%

 

When you are traveling on vacation, are you the one more likely to ask strangers where they are from or are the strangers?

I'm more likely to ask first:
 <% Response.Write q8ap %>%
They're more likely to ask first:
 <% Response.Write q8bp %>%

 

When someone asks you where you are from while you are traveling on vacation, are you most likely to say "St. Louis," "Missouri," "Illinois," or something else?

St. Louis:
 <% Response.Write q9ap %>%
Missouri:
 <% Response.Write q9bp %>%
Illinois:
 <% Response.Write q9cp %>%
Something else:
 <% Response.Write q9dp %>%

 

In which of the following movies would you most like to vacation?

Weekend at Bernie's:
 <% Response.Write q10ap %>%
Dirty Dancing:
 <% Response.Write q10bp %>%
National Lampoon's Vacation:
 <% Response.Write q10cp %>%
Little Miss Sunshine:
 <% Response.Write q10dp %>%
High School Musical 2:
 <% Response.Write q10ep %>%
Indiana Jones and the Kingdom of the Crystal Skull:
 <% Response.Write q10fp %>%

 

Which of the following quintessential youth summer jobs is the best job description for the adult job you eventually got?

Lifeguard:
 <% Response.Write q11ap %>%
Caddy:
 <% Response.Write q11bp %>%
Camp counselor:
 <% Response.Write q11cp %>%
Tutor:
 <% Response.Write q11dp %>%
Office intern:
 <% Response.Write q11ep %>%
Construction crew:
 <% Response.Write q11fp %>%
Burger flipper:
 <% Response.Write q11gp %>%
Nanny:
 <% Response.Write q11hp %>%
I still have one of those real summer jobs:
 <% Response.Write q11ip %>%

 

Are you ready for swimsuit season?

Yes:
 <% Response.Write q12ap %>%
No:
 <% Response.Write q12bp %>%
I never wear swimsuits:
 <% Response.Write q12cp %>%

 

Do you agree with a new City ordinance that requires most multi-family buildings to have lifeguards on duty at their swimming pools?

Yes:
 <% Response.Write q13ap %>%
No:
 <% Response.Write q13bp %>%

 

How often do you plan to use the outdoor swimming pools at the City's recreation centers this summer?

Almost every day:
 <% Response.Write q14ap %>%
Once a week or so:
 <% Response.Write q14bp %>%
Hardly ever:
 <% Response.Write q14cp %>%
Never:
 <% Response.Write q14dp %>%

 

Have you heard much about the City's plans to build two new recreation centers?

I've heard a lot:
 <% Response.Write q15ap %>%
I've heard something, but I don't know a lot:
 <% Response.Write q15bp %>%
I've heard almost nothing:
 <% Response.Write q15cp %>%
I've heard nothing at all:
 <% Response.Write q15dp %>%

 

With which of the following candidates for Missouri governor would you most like to take a long summer road trip?

Kenny Hulshof:
 <% Response.Write q16ap %>%
Jay Nixon:
 <% Response.Write q16bp %>%
Sarah Steelman:
 <% Response.Write q16cp %>%

 

<% RS.Close Conn.Close %>

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


<% Response.Write total %>