<% 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: Grandpa's Cough Syrup" %> <% 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='20080821drink'" 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' AND Question18>''" rs.Open sql, conn total18 = 0 do while rs.EOF = False rs.MoveNext total18 = total18 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM minipoll WHERE pollName='20080821drink' 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='20080821drink' 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='20080821drink' AND Question1='C'" rs.Open sql, conn q1c = 0 do while rs.EOF = False rs.MoveNext q1c = q1c + 1 q1cp = Round((q1c / total1)*100) Loop if q1cp = "" then q1cp = 0 q1cpw = q1cp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM minipoll WHERE pollName='20080821drink' 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='20080821drink' 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='20080821drink' AND Question2='C'" rs.Open sql, conn q2c = 0 do while rs.EOF = False rs.MoveNext q2c = q2c + 1 q2cp = Round((q2c / total2)*100) Loop if q2cp = "" then q2cp = 0 q2cpw = q2cp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM minipoll WHERE pollName='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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 Question4 FROM minipoll WHERE pollName='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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 Question5 FROM minipoll WHERE pollName='20080821drink' 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='20080821drink' 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='20080821drink' 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 q5bp = 0 q5cpw = q5cp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM minipoll WHERE pollName='20080821drink' AND Question5='D'" rs.Open sql, conn q5d = 0 do while rs.EOF = False rs.MoveNext q5d = q5d + 1 q5dp = Round((q5d / total5)*100) Loop if q5dp = "" then q5dp = 0 q5dpw = q5dp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM minipoll WHERE pollName='20080821drink' AND Question5='E'" rs.Open sql, conn q5e = 0 do while rs.EOF = False rs.MoveNext q5e = q5e + 1 q5ep = Round((q5e / total5)*100) Loop if q5ep = "" then q5ep = 0 q5epw = q5ep * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM minipoll WHERE pollName='20080821drink' AND Question5='F'" rs.Open sql, conn q5f = 0 do while rs.EOF = False rs.MoveNext q5f = q5f + 1 q5fp = Round((q5f / total5)*100) Loop if q5fp = "" then q5fp = 0 q5fpw = q5fp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question6 FROM minipoll WHERE pollName='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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 Question9 FROM minipoll WHERE pollName='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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 Question11 FROM minipoll WHERE pollName='20080821drink' 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='20080821drink' 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='20080821drink' 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 Question12 FROM minipoll WHERE pollName='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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 Question14 FROM minipoll WHERE pollName='20080821drink' 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='20080821drink' AND Question14='B'" rs.Open sql, conn q14b = 0 do while rs.EOF = False rs.MoveNext q14b = q14b + 1 q14bp = Round((q14b / total14)*100) Loop if q14bp = "" then q14bp = 0 q14bpw = q14bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question15 FROM minipoll WHERE pollName='20080821drink' 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='20080821drink' 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='20080821drink' 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 Question16 FROM minipoll WHERE pollName='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' 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='20080821drink' AND Question18='B'" rs.Open sql, conn q18b = 0 do while rs.EOF = False rs.MoveNext q18b = q18b + 1 q18bp = Round((q18b / total18)*100) Loop if q18bp = "" then q18bp = 0 q18bpw = q18bp * 2 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question18 FROM minipoll WHERE pollName='20080821drink' AND Question18='C'" rs.Open sql, conn q18c = 0 do while rs.EOF = False rs.MoveNext q18c = q18c + 1 q18cp = Round((q18c / total18)*100) Loop if q18cp = "" then q18cp = 0 q18cpw = q18cp * 2 %>

Do you think St. Louis has more bars and taverns than other cities its size?

Yes:
 <% Response.Write q1ap %>%
St. Louis is about the same:
 <% Response.Write q1bp %>%
No:
 <% Response.Write q1cp %>%

 

In which of the following places are you more likely to have an alcoholic beverage?

When I'm out:
 <% Response.Write q2ap %>%
When I'm at home:
 <% Response.Write q2bp %>%
I don't drink:
 <% Response.Write q2cp %>%

 

On average, how many days a week do you consume an alcoholic beverage?

One or two days:
 <% Response.Write q3ap %>%
Three or four days:
 <% Response.Write q3bp %>%
Five to seven days:
 <% Response.Write q3cp %>%
Never:
 <% Response.Write q3dp %>%

 

How many drinks are you most likely to consume in single day?

One:
 <% Response.Write q4ap %>%
Two to three:
 <% Response.Write q4bp %>%
Three to four:
 <% Response.Write q4cp %>%
Four to five:
 <% Response.Write q4dp %>%
More than five:
 <% Response.Write q4ep %>%
I don't drink:
 <% Response.Write q4fp %>%

 

How often do you think your blood alcohol level exceeds the legal limit, .08, when you finish drinking?

Every time:
 <% Response.Write q5ap %>%
Most of the time:
 <% Response.Write q5bp %>%
Some of the time:
 <% Response.Write q5cp %>%
Hardly ever:
 <% Response.Write q5dp %>%
Never:
 <% Response.Write q5ep %>%
I don't drink:
 <% Response.Write q5fp %>%

 

Do you think that the St. Louis police department does enough to enforce laws against driving while drunk?

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

 

Do you drink more now than you did 10 years ago?

Yes, more
 <% Response.Write q7ap %>%
Yes, more because I could not legally drink 10 years ago:
 <% Response.Write q7bp %>%
No, less:
 <% Response.Write q7cp %>%
About the same now as then:
 <% Response.Write q7dp %>%
I don't drink:
 <% Response.Write q7ep %>%

 

When you do choose to drink, which of the following is most often your beverage of choice?

Wine:
 <% Response.Write q8ap %>%
Beer:
 <% Response.Write q8bp %>%
Cocktails/mixed drinks:
 <% Response.Write q8cp %>%
Shots:
 <% Response.Write q8dp %>%
Straight alcohol:
 <% Response.Write q8ep %>%
I don't drink:
 <% Response.Write q8fp %>%

 

Are you loyal to one particular brand of beer?

Yes, fiercely:
 <% Response.Write q9ap %>%
Yes, mostly:
 <% Response.Write q9bp %>%
No, not particularly:
 <% Response.Write q9cp %>%
I don't drink/I don't drink beer:
 <% Response.Write q9dp %>%

 

Do you think that the impending purchase of Anheuser Busch by InBev will make A-B products less popular in St. Louis?

Yes:
 <% Response.Write q10ap %>%
Yes, at first:
 <% Response.Write q10bp %>%
Yes, eventually:
 <% Response.Write q10cp %>%
No, it will not have any effect:
 <% Response.Write q10dp %>%

 

Are you more likely to smoke when you drink?

Yes:
 <% Response.Write q11ap %>%
No:
 <% Response.Write q11bp %>%
I never smoke:
 <% Response.Write q11cp %>%

 

Would you favor a citywide ban on smoking in bars and restaurants?

Yes:
 <% Response.Write q12ap %>%
No:
 <% Response.Write q12bp %>%
No, not unless St. Louis county does the same:
 <% Response.Write q12cp %>%
No, not unless Missouri does the same:
 <% Response.Write q12dp %>%

 

Which of the following songs would be your personal drinking anthem, if you had one?

"Whiskey River" by Willie Nelson:
 <% Response.Write q13ap %>%
"Beer Run" by Garth Brooks:
 <% Response.Write q13bp %>%
"Tequila" by The Champs:
 <% Response.Write q13cp %>%
"Gin and Juice" by Snoop Dogg:
 <% Response.Write q13dp %>%
"Margaritaville" by Jimmy Buffet:
 <% Response.Write q13ep %>%
"Canned Heat Blues" by Tommy Johnson:
 <% Response.Write q13fp %>%
"Alcohol" by The Kinks:
 <% Response.Write q13gp %>%
I don't drink:
 <% Response.Write q13hp %>%

 

Have you ever thought your drinking might be a problem?

Yes:
 <% Response.Write q14ap %>%
No:
 <% Response.Write q14bp %>%

 

Do you think that, in general, St. Louis has more of a drinking problem than other cities?

Yes:
 <% Response.Write q15ap %>%
St. Louis is about the same:
 <% Response.Write q15bp %>%
No:
 <% Response.Write q15cp %>%

 

Do you think teenage drinking is a bigger problem today than it was 10 years ago?

Yes, alcohol is more available to teens today:
 <% Response.Write q16ap %>%
No, teenagers today are more conscientious than 10 years ago:
 <% Response.Write q16bp %>%

 

Do you agree with a proposal by a group of university presidents to lower the legal drinking age from 21 to 18 in order to address "a culture of dangerous, clandestine binge-drinking"?

Yes:
 <% Response.Write q17ap %>%
No:
 <% Response.Write q17bp %>%

 

Do you support ordinances in place in several St. Louis neighborhoods placing a temporary moratorium on the issuance of any new liquor licenses in those neighborhoods?

Yes:
 <% Response.Write q18ap %>%
Yes, but it ought to be a citywide moratorium:
 <% Response.Write q18bp %>%
No:
 <% Response.Write q18cp %>%

 

<% RS.Close Conn.Close %>

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


<% Response.Write total %>