% 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: Counting Blessings" %>
How would you rate economic conditions in the country today as excellent, good, only fair, or poor? | |
Excellent: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question1 FROM economy WHERE Question1='Excellent'"
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
%>
|
Good: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question1 FROM economy WHERE Question1='Good'"
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
%>
|
Fair: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question1 FROM economy WHERE Question1='Fair'"
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
%>
|
Poor: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question1 FROM economy WHERE Question1='Poor'"
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
%>
|
Would you say most Americans are better off financially than they were five years ago, not as well off, or in about the same shape as then financially? | |
Better off: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM economy WHERE Question2='Better'"
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
%>
|
Not as well off: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM economy WHERE Question2='Not'"
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
%>
|
About the same: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM economy WHERE Question2='About'"
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
%>
|
What about you and your own family would you say your own family was better financially than it was five years ago, not as well off, or in about the same as then financially? | |
Better off: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM economy WHERE Question3='Better'"
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
%>
|
Not as well off: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM economy WHERE Question3='Not'"
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
%>
|
About the same: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM economy WHERE Question3='About'"
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
%>
|
Which specific economic condition is currently worrying you the most the price of gasoline, the cost of housing, the number of available jobs, the cost of health care, or something else? | |
Gas prices: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM economy WHERE Question4='Gas'"
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
%>
|
Housing costs: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM economy WHERE Question4='Housing'"
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
%>
|
Jobs: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM economy WHERE Question4='Jobs'"
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
%>
|
Health care costs: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM economy WHERE Question4='Health'"
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
%>
|
Something else: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM economy WHERE Question4='Something'"
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
%>
|
Which federal government policy direction is a greater risk to the country's well-being increased government spending or greater cuts in government services? | |
Increased spending: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question5 FROM economy WHERE Question5='Spending'"
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
%>
|
Greater cuts in services: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question5 FROM economy WHERE Question5='Cuts'"
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
%>
|
Which statement comes closer to your feelings about your own economic condition: I will be better off in five years than I am today; or, I am better off today than I will be in five years. | |
Better off in the future: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM economy WHERE Question6='Future'"
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
%>
|
Better off today: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM economy WHERE Question6='Today'"
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
%>
|
Which government legislature makes the decisions that have the most to do with your own economic situation the Congress, the state legislature, or your city or county council? | |
US Congress: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM economy WHERE Question7='US'"
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
%>
|
State legislature: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM economy WHERE Question7='State'"
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
%>
|
City or county council: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM economy WHERE Question7='City'"
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
%>
|
Next year (like most years), City budget makers will have to close a budget gap. Which course of action would you be most likely to support? | |
Identify new sources of revenue. Everything is on the table: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM economy WHERE Question9='NewEverything'"
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
%>
|
Identify new sources of revenue, but don't raise any taxes: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM economy WHERE Question9='NewTaxes'"
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
%>
|
Identify City services to cut. Everything is on the table: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM economy WHERE Question9='CityEverything'"
rs.Open sql, conn
q9c = 0
do while rs.EOF = False
rs.MoveNext
q9c = q9c + 1
q9cp = Round((q9c / total9)*100)
Loop
if q9cp = "" then q9cp = 0
q9cpw = q9cp * 2
%>
|
Identify City services to cut, but don't cut the police or fire departments: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM economy WHERE Question9='CityCops'"
rs.Open sql, conn
q9d = 0
do while rs.EOF = False
rs.MoveNext
q9d = q9d + 1
q9dp = Round((q9d / total9)*100)
Loop
if q9dp = "" then q9dp = 0
q9dpw = q9dp * 2
%>
|
Which phrase best fills in the blank: A dollar saved is ? | |
A dollar that won't keep pace with inflation: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM economy WHERE Question8='Inflation'"
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
%>
|
A dollar that I can't use to pay the bills that are due right now: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM economy WHERE Question8='Bills'"
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
%>
|
A dollar that I will spend long before I ever retire: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM economy WHERE Question8='Spend'"
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
%>
|
Just perfect: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM economy WHERE Question8='Perfect'"
rs.Open sql, conn
q8d = 0
do while rs.EOF = False
rs.MoveNext
q8d = q8d + 1
q8dp = Round((q8d / total8)*100)
Loop
if q8dp = "" then q8dp = 0
q8dpw = q8dp * 2
%>
|
Not enough. I need to save more: |
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/112305economy.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM economy WHERE Question8='Not'"
rs.Open sql, conn
q8e = 0
do while rs.EOF = False
rs.MoveNext
q8e = q8e + 1
q8ep = Round((q8e / total8)*100)
Loop
if q8ep = "" then q8ep = 0
q8epw = q8ep * 2
%>
|
Note: Due to rounding, results for some questions may not total 100%.