<% 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, economy, budget" dim section section = "Mini Poll: Food Fight" %>
[ Mini Polls Homepage ]

Current Totals:

<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/20061214northpole.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM northpole" 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/20061214northpole.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM northpole WHERE Question1='Yes' or Question1='No'" 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/20061214northpole.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM northpole WHERE Question2='Immediately' or Question2='Gradually' or Question2='No' or Question2='Dead'" 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/20061214northpole.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM northpole WHERE Question3='Yes' or Question3='No'" 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/20061214northpole.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM northpole WHERE Question4='Yes' or Question4='Fed' or Question4='No'" 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/20061214northpole.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM northpole WHERE Question5='Second' or Question5='Trans' or Question5='Food' or Question5='Hygiene'" 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/20061214northpole.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question6 FROM northpole WHERE Question6='Always' or Question6='Never' or Question6='Between' or Question6='Only'" rs.Open sql, conn total6 = 0 do while rs.EOF = False rs.MoveNext total6 = total6 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/20061214northpole.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question7 FROM northpole WHERE Question7='Yes' or Question7='No' or Question7='Sometimes'" rs.Open sql, conn total7 = 0 do while rs.EOF = False rs.MoveNext total7 = total7 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/20061214northpole.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question8 FROM northpole WHERE Question8='Yes' or Question8='Twice' or Question8='No'" rs.Open sql, conn total8 = 0 do while rs.EOF = False rs.MoveNext total8 = total8 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/20061214northpole.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question9 FROM northpole WHERE Question9='Yes' or Question9='No'" rs.Open sql, conn total9 = 0 do while rs.EOF = False rs.MoveNext total9 = total9 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/20061214northpole.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question10 FROM northpole WHERE Question10='Yes' or Question10='Kids' or Question10='Go' or Question10='Eat'" rs.Open sql, conn total10 = 0 do while rs.EOF = False rs.MoveNext total10 = total10 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/20061214northpole.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question11 FROM northpole WHERE Question11='Yes' or Question11='No'" rs.Open sql, conn total11 = 0 do while rs.EOF = False rs.MoveNext total11 = total11 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/20061214northpole.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question12 FROM northpole WHERE Question12='Grains' or Question12='Carbs' or Question12='Fats' or Question12='Fiber' or Question12='Badly'" rs.Open sql, conn total12 = 0 do while rs.EOF = False rs.MoveNext total12 = total12 + 1 Loop %>

Do you agree with New York's decision to ban high levels of artificial trans fats in restaurant foods?


Yes, the health risks of heart disease and obesity demand restrictions of the levels of artificial trans fats:


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

No, consumer preference, not government action, should determine trans fats' future:


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

 

Do you think that St. Louis-area local governments should follow New York's lead in banning artificial trans fats in local restaurant foods?


Yes, immediately:


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

Yes, but only gradually or at larger restaurants:


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

No:


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

No, you'll have to pry my trans-fats fried donut from my cold, dead fingers:


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

 

Do you think that St. Louis-area school districts should ban artificial trans fats from school cafeteria lunches and vending machines?


Yes:


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

No:


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

 

Do you think it appropriate that local governments (like cities, states, and school districts) act to restrict certain food ingredients?


Yes:


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

No, that should be a federal power:


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

No, no government should do that:


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

 

Which challenge to good health to do you think should most concern St. Louis-area restaurants?


Second-hand smoke in the dining room:


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

Trans-fats in the fried foods, pastries, breads, and processed foods:


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

The overall safety of the food supply, including lettuce and spinach:


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

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

The hygiene habits of kitchen employees:


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

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

 

How often do you check the nutrition labels in the foods you buy at the grocery store?


Almost always:


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

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

Almost never:


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

Somewhere between the first two choices:


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

I only check prices:


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

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

 

Do you try to avoid artificial trans fats in foods when you shop at the grocery store?


Yes:


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

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

No:


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

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

Sometimes:


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

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

 

Are you willing to pay more for foods that are trans fats-free?


Yes, a little more:


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

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

Yes, up to twice as much:


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

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

No:


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

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

 

Should foods with high amounts of artificial trans fats be required to carry a special warning label?


Yes:


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

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

No:


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

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

 

Would you support a federal ban on fast food and/or junk food advertisements on television?


Yes:


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

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

Yes, but only during children's programming:


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

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

Yes, but only if the infomercials go, too:


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

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

No, the commercials help me decide what to eat next:


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

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

 

Do you think that a ban on the use of trans fats by restaurants is unfair to restaurant owners?


Yes:


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

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

No:


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

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

 

Which of the following New Year's resolutions would you be most willing to adopt?


I'll eat more whole grains in 2007:


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

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

I'll eat fewer carbs in 2007:


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

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

I'll eat less food with artificial trans fats in 2007:


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

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

I'll eat more fiber in 2007:


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

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

I'll eat as badly in 2007 as I did in 2006:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/20061214northpole.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question12 FROM northpole WHERE Question12='Badly'" rs.Open sql, conn q12e = 0 do while rs.EOF = False rs.MoveNext q12e = q12e + 1 q12ep = Round((q12e / total12)*100) Loop if q12ep = "" then q12ep = 0 q12epw = q12ep * 2 %>

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

 

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


<% Response.Write total1 %>