<% 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, fast food, french fries, burgers" dim section section = "Mini Poll: Fast Food" %>
[ Mini Polls Homepage ]

Current Totals:

<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/081105fastfood.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM food" 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/081105fastfood.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM food 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/081105fastfood.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM food 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/081105fastfood.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM food 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/081105fastfood.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM food WHERE Question4>''" rs.Open sql, conn total4 = 0 do while rs.EOF = False rs.MoveNext total4 = total4 + 1 Loop %>

Do you think that most of the food served in fast food restaurants is good for you or not good for you?


It's good for me:


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

It's not good for me:


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

I just eat the salads:


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

 

How often do you eat at a fast food restaurant?


Regularly:


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

Occasionally:


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

Never:


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

 

Would you favor or oppose holding the fast food industry legally responsible for the diet-related health problems of people who eat fast food on a regular basis?


Favor:


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

Oppose:


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

 

Would you favor or oppose an additional 2 percent municipal sales tax levied on sales at fast-food restaurants?


Favor:


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

Oppose:


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

 

Information on healthy eating at fast food restaurants:
http://diningservices.wustl.edu/fast_food.shtml


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


<% Response.Write total %>