<% 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" dim section section = "Mini Poll Results" %>
[ Mini Polls Homepage ]

Current Totals:

<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM smoking" rs.Open sql, conn total = 0 do while rs.EOF = False rs.MoveNext total = total + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM smoking WHERE Question1>''" rs.Open sql, conn total1 = 0 do while rs.EOF = False rs.MoveNext total1 = total1 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM smoking WHERE Question2>''" rs.Open sql, conn total2 = 0 do while rs.EOF = False rs.MoveNext total2 = total2 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM smoking WHERE Question3>''" rs.Open sql, conn total3 = 0 do while rs.EOF = False rs.MoveNext total3 = total3 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM smoking WHERE Question4>''" rs.Open sql, conn total4 = 0 do while rs.EOF = False rs.MoveNext total4 = total4 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM smoking WHERE Question5>''" rs.Open sql, conn total5 = 0 do while rs.EOF = False rs.MoveNext total5 = total5 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question6 FROM smoking WHERE Question6>''" rs.Open sql, conn total6 = 0 do while rs.EOF = False rs.MoveNext total6 = total6 + 1 Loop %>

In your own home, you ...


Do not allow any smoking:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM smoking WHERE Question1='NoSmoking'" 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 %>

 <% Response.Write q1ap & "%" %>

Limit smoking to a designated area outside:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM smoking WHERE Question1='Outside'" 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 %>

 <% Response.Write q1bp & "%" %>

Limit smoking to a designated area inside:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM smoking WHERE Question1='Inside'" 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 %>

 <% Response.Write q1cp & "%" %>

Have no restriction on smoking:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM smoking WHERE Question1='NoRestrict'" 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 %>

 <% Response.Write q1dp & "%" %>

 

If you to go out to eat, you prefer the restaurant ...


Not allow smoking:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM smoking WHERE Question2='NotAllow'" 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 %>

 <% Response.Write q2ap & "%" %>

Limit smoking to a designated area outside:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM smoking WHERE Question2='Outside'" 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 %>

 <% Response.Write q2bp & "%" %>

Limit smoking to a designated area inside:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM smoking WHERE Question2='Inside'" 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 %>

 <% Response.Write q2cp & "%" %>

Have no restriction on smoking:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM smoking WHERE Question2='NoRestrict'" 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 %>

 <% Response.Write q2dp & "%" %>

 

If you to go to a tavern or bar, you prefer the establishment ...


Not allow smoking:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM smoking WHERE Question3='NotAllow'" 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 %>

 <% Response.Write q3ap & "%" %>

Limit smoking to a designated area outside:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM smoking WHERE Question3='Outside'" 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 %>

 <% Response.Write q3bp & "%" %>

Limit smoking to a designated area inside:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM smoking WHERE Question3='Inside'" 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 %>

 <% Response.Write q3cp & "%" %>

Have no restriction on smoking:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM smoking WHERE Question3='NoRestrict'" 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 %>

 <% Response.Write q3dp & "%" %>

 

Who do you think is the most qualified to implement smoking restrictions? Would you prefer smoking restrictions be implemented by ...


City ordinance, but not a higher level of government like the state government:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM smoking WHERE Question4='City'" 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 %>

 <% Response.Write q4ap & "%" %>

State legislation, but not a higher level of government like the federal government:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM smoking WHERE Question4='State'" 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 %>

 <% Response.Write q4bp & "%" %>

Federal legislation:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM smoking WHERE Question4='Federal'" 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 %>

 <% Response.Write q4cp & "%" %>

Individual business owners on a voluntary basis:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM smoking WHERE Question4='Business'" 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 %>

 <% Response.Write q4dp & "%" %>

No one should be able to restrict individual activities like smoking:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM smoking WHERE Question4='NoRestrict'" 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 %>

 <% Response.Write q4ep & "%" %>

 

If your own city or county implements smoking restrictions, it should do so ...


Only if other cities and counties in the region also do so:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM smoking WHERE Question5='OnlyIf'" 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 %>

 <% Response.Write q5ap & "%" %>

Regardless of what other cities and counties in the region do:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM smoking WHERE Question5='Regardless'" 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 %>

 <% Response.Write q5bp & "%" %>

 

If a restaurant is smoke-free, would you be more likely or less likely to go to that restaurant?


More likely to go:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question6 FROM smoking WHERE Question6='More'" rs.Open sql, conn q6a = 0 do while rs.EOF = False rs.MoveNext q6a = q6a + 1 q6ap = Round((q6a / total6)*100) Loop if q5ap = "" then q6ap = 0 q6apw = q6ap * 2 %>

 <% Response.Write q6ap & "%" %>

Less likely to go:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question6 FROM smoking WHERE Question6='Less'" 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 %>

 <% Response.Write q6bp & "%" %>

It would make no difference if the food was great:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/050305smokingpoll.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question6 FROM smoking WHERE Question6='NoDiff'" 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 %>

 <% Response.Write q6cp & "%" %>

 


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


<% If InStr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") <> 0 Then Browser = "Internet Explorer" Version = Mid(Request.ServerVariables("HTTP_USER_AGENT"),31,3) Else Browser = "Navigator" Version = Mid(Request.ServerVariables("HTTP_USER_AGENT"),9,4) End If Response.Write("Your browser is " & Browser & " " & Version & ".") if Browser="Navigator" and Version<"5" then Response.Write "You need a new browser." %> <% Response.Write total %>