Are you a smoker? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question1 FROM minipoll WHERE pollName='20080221smoker' 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='20080221smoker' 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='20080221smoker' 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
%>
Yes:
<% Response.Write q1ap %>%
No:
<% Response.Write q1bp %>%
No, but I used to be:
<% Response.Write q1cp %>%
|
|
Do believe that smoking is bad for one's health? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20080221smoker' 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='20080221smoker' 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='20080221smoker' 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
%>
Yes:
<% Response.Write q2ap %>%
Yes, but the claims are exaggerated:
<% Response.Write q2bp %>%
No:
<% Response.Write q2cp %>%
|
|
Would you support a ban of smoking in public places throughout Missouri? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080221smoker' 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='20080221smoker' 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
%>
Yes:
<% Response.Write q3ap %>%
No:
<% Response.Write q3bp %>%
|
|
Would you support a ban of smoking in public places throughout St. Louis County and St. Louis City, even if smoking remained legal in St. Charles County and Jefferson County? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question5 FROM minipoll WHERE pollName='20080221smoker' 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='20080221smoker' 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
%>
Yes:
<% Response.Write q5ap %>%
No:
<% Response.Write q5bp %>%
|
|
Would you support a ban of smoking in public places in St. Louis City, even if smoking remained legal in St. Louis County, St. Charles County, and Jefferson County? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM minipoll WHERE pollName='20080221smoker' 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='20080221smoker' 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
%>
Yes:
<% Response.Write q6ap %>%
No:
<% Response.Write q6bp %>%
|
|
For which of the following places would you be most willing to grant an exception to a ban of smoking in public places? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080221smoker' 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='20080221smoker' 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='20080221smoker' 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='20080221smoker' 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='20080221smoker' 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='20080221smoker' 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='20080221smoker' 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='20080221smoker' 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
%>
Casinos:
<% Response.Write q7ap %>%
Neighborhood bars:
<% Response.Write q7bp %>%
Mom and pop restaurants:
<% Response.Write q7cp %>%
Airports:
<% Response.Write q7dp %>%
Jails:
<% Response.Write q7ep %>%
Hospitals:
<% Response.Write q7fp %>%
Courts:
<% Response.Write q7gp %>%
Sorry, no exceptions:
<% Response.Write q7hp %>%
|
|
Have you ever sneaked a cigarette in a place in which you shouldn't have smoked? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080221smoker' 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='20080221smoker' 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
%>
Yes:
<% Response.Write q8ap %>%
No:
<% Response.Write q8bp %>%
|
|
Do you think that Sen. Barack Obama has sneaked a cigarette since he quit? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20080221smoker' 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='20080221smoker' 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
%>
Yes:
<% Response.Write q9ap %>%
No:
<% Response.Write q9bp %>%
|
|
Do you think that seeing actors smoke on television or in the movies increases smoking in the general population? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20080221smoker' 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='20080221smoker' 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
%>
Yes:
<% Response.Write q10ap %>%
No:
<% Response.Write q10bp %>%
|
|
Do you think that television shows and movies should be banned from showing images of smoking? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question11 FROM minipoll WHERE pollName='20080221smoker' 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='20080221smoker' 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
%>
Yes:
<% Response.Write q11ap %>%
No:
<% Response.Write q11bp %>%
|
|
Have you ever asked a stranger to refrain from smoking? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20080221smoker' 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='20080221smoker' 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='20080221smoker' 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
%>
Yes, I do it all the time:
<% Response.Write q12ap %>%
Yes, I do it once in a while:
<% Response.Write q12bp %>%
No:
<% Response.Write q12cp %>%
|
|
Have you ever based a dating decision on whether or not someone smoked? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question13 FROM minipoll WHERE pollName='20080221smoker' 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='20080221smoker' 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
%>
Yes:
<% Response.Write q13ap %>%
No:
<% Response.Write q13bp %>%
|
|
Do you decide which restaurants to frequent based on whether or not smoking is allowed? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20080221smoker' 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='20080221smoker' 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='20080221smoker' 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
%>
I will not frequent a restaurant that bans all smoking:
<% Response.Write q14ap %>%
I will not frequent a restaurant that allows any smoking:
<% Response.Write q14bp %>%
Smoking policy is not the determinative factor when deciding where to eat:
<% Response.Write q14cp %>%
|
|
What should be the legal minimum age to buy cigarettes in the City of St. Louis? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question15 FROM minipoll WHERE pollName='20080221smoker' 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='20080221smoker' 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='20080221smoker' 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='20080221smoker' AND Question15='D'"
rs.Open sql, conn
q15d = 0
do while rs.EOF = False
rs.MoveNext
q15d = q15d + 1
q15dp = Round((q15d / total15)*100)
Loop
if q15dp = "" then q15dp = 0
q15dpw = q15dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question15 FROM minipoll WHERE pollName='20080221smoker' AND Question15='E'"
rs.Open sql, conn
q15e = 0
do while rs.EOF = False
rs.MoveNext
q15e = q15e + 1
q15ep = Round((q15e / total15)*100)
Loop
if q15ep = "" then q15ep = 0
q15epw = q15ep * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question15 FROM minipoll WHERE pollName='20080221smoker' AND Question15='F'"
rs.Open sql, conn
q15f = 0
do while rs.EOF = False
rs.MoveNext
q15f = q15f + 1
q15fp = Round((q15f / total15)*100)
Loop
if q15fp = "" then q15fp = 0
q15fpw = q15fp * 2
%>
18:
<% Response.Write q15ap %>%
21:
<% Response.Write q15bp %>%
30:
<% Response.Write q15cp %>%
40:
<% Response.Write q15dp %>%
55:
<% Response.Write q15ep %>%
70:
<% Response.Write q15fp %>%
|
|
Which of the following is the most likely target of regulators after smoking is banned in public places? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20080221smoker' 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='20080221smoker' 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='20080221smoker' 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 Question16 FROM minipoll WHERE pollName='20080221smoker' AND Question16='D'"
rs.Open sql, conn
q16d = 0
do while rs.EOF = False
rs.MoveNext
q16d = q16d + 1
q16dp = Round((q16d / total16)*100)
Loop
if q16dp = "" then q16dp = 0
q16dpw = q16dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20080221smoker' AND Question16='E'"
rs.Open sql, conn
q16e = 0
do while rs.EOF = False
rs.MoveNext
q16e = q16e + 1
q16ep = Round((q16e / total16)*100)
Loop
if q16ep = "" then q16ep = 0
q16epw = q16ep * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20080221smoker' AND Question16='F'"
rs.Open sql, conn
q16f = 0
do while rs.EOF = False
rs.MoveNext
q16f = q16f + 1
q16fp = Round((q16f / total16)*100)
Loop
if q16fp = "" then q16fp = 0
q16fpw = q16fp * 2
%>
Alcohol:
<% Response.Write q16ap %>%
Talking too loudly:
<% Response.Write q16bp %>%
Age inappropriate cell phone rings:
<% Response.Write q16cp %>%
Fatty foods on the menu:
<% Response.Write q16dp %>%
Dancing on tables in places other than St. Charles:
<% Response.Write q16ep %>%
Public Displays of Affection (PDA):
<% Response.Write q16fp %>%
|
|
<% RS.Close
Conn.Close %>