% 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" %>
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
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
%>
|
Note: Due to rounding, results for some questions may not total 100%.