Have you parked at a meter in the City of St. Louis in the past year?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question1 FROM minipoll WHERE pollName='20090806park' AND Question1='A'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question1 FROM minipoll WHERE pollName='20090806park' AND Question1='B'"
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
%>
Yes:
<% Response.Write q1ap %>%
No:
<% Response.Write q1bp %>%
|
|
Did you put money in a City of St. Louis parking meter in the past year?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20090806park' AND Question2='A'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20090806park' AND Question2='B'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20090806park' AND Question2='C'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20090806park' AND Question2='D'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20090806park' AND Question2='E'"
rs.Open sql, conn
q2e = 0
do while rs.EOF = False
rs.MoveNext
q2e = q2e + 1
q2ep = Round((q2e / total2)*100)
Loop
if q2ep = "" then q2ep = 0
q2epw = q2ep * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20090806park' AND Question2='F'"
rs.Open sql, conn
q2f = 0
do while rs.EOF = False
rs.MoveNext
q2f = q2f + 1
q2fp = Round((q2f / total2)*100)
Loop
if q2fp = "" then q2fp = 0
q2fpw = q2fp * 2
%>
Yes:
<% Response.Write q2ap %>%
No, I didn't have any change:
<% Response.Write q2bp %>%
No, it was after hours:
<% Response.Write q2cp %>%
No, the meter was broken:
<% Response.Write q2dp %>%
No, there was some time left on the meter:
<% Response.Write q2ep %>%
I have not parked at a City meter in the past year:
<% Response.Write q2fp %>%
|
|
Which of the following best describes the condition of the meter at which you parked?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20090806park' AND Question3='A'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20090806park' AND Question3='B'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20090806park' AND Question3='C'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20090806park' AND Question3='D'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20090806park' AND Question3='E'"
rs.Open sql, conn
q3e = 0
do while rs.EOF = False
rs.MoveNext
q3e = q3e + 1
q3ep = Round((q3e / total3)*100)
Loop
if q3ep = "" then q3ep = 0
q3epw = q3ep * 2
%>
Seemed new, worked fine:
<% Response.Write q3ap %>%
Seemed new, broken:
<% Response.Write q3bp %>%
Seemed old, worked fine:
<% Response.Write q3cp %>%
Seemed old, broken:
<% Response.Write q3dp %>%
I have not parked at a City meter in the past year:
<% Response.Write q3ep %>%
|
|
While shopping or dining in Downtown St. Louis, would you rather park off-street in a garage or on-street in a meter?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20090806park' AND Question4='A'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20090806park' AND Question4='B'"
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
%>
Garage:
<% Response.Write q4ap %>%
Meter:
<% Response.Write q4bp %>%
|
|
While shopping or dining in the Central West End, would you rather park off-street in a garage or on-street in a meter?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question5 FROM minipoll WHERE pollName='20090806park' AND Question5='A'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question5 FROM minipoll WHERE pollName='20090806park' AND Question5='B'"
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
%>
Garage:
<% Response.Write q5ap %>%
Meter:
<% Response.Write q5bp %>%
|
|
Have you received more than one parking ticket in the City of St. Louis in the past year?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM minipoll WHERE pollName='20090806park' AND Question6='A'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM minipoll WHERE pollName='20090806park' AND Question6='B'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM minipoll WHERE pollName='20090806park' AND Question6='C'"
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
%>
Yes:
<% Response.Write q6ap %>%
No, just one:
<% Response.Write q6bp %>%
No tickets at all:
<% Response.Write q6cp %>%
|
|
Do you currently have an unpaid parking ticket in the City of St. Louis?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20090806park' AND Question7='A'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20090806park' AND Question7='B'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20090806park' AND Question7='C'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20090806park' AND Question7='D'"
rs.Open sql, conn
q7d = 0
do while rs.EOF = False
rs.MoveNext
q7d = q7d + 1
q7dp = Round((q7d / total7)*100)
Loop
if q7dp = "" then q7dp = 0
q7dpw = q7dp * 2
%>
Yes:
<% Response.Write q7ap %>%
Probably:
<% Response.Write q7bp %>%
Probably not:
<% Response.Write q7cp %>%
No:
<% Response.Write q7dp %>%
|
|
Have you ever used the administrative adjudication process devised by St. Louis City Treasurer Larry Williams to appeal or protest a parking ticket?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20090806park' AND Question8='A'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20090806park' AND Question8='B'"
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
%>
Yes:
<% Response.Write q8ap %>%
No:
<% Response.Write q8bp %>%
|
|
Have you ever paid a City of St. Louis parking ticket on-line?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question18 FROM minipoll WHERE pollName='20090806park' AND Question18='A'"
rs.Open sql, conn
q18a = 0
do while rs.EOF = False
rs.MoveNext
q18a = q18a + 1
q18ap = Round((q18a / total18)*100)
Loop
if q18ap = "" then q18ap = 0
q18apw = q18ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question18 FROM minipoll WHERE pollName='20090806park' AND Question18='B'"
rs.Open sql, conn
q18b = 0
do while rs.EOF = False
rs.MoveNext
q18b = q18b + 1
q18bp = Round((q18b / total18)*100)
Loop
if q18bp = "" then q18bp = 0
q18bpw = q18bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question18 FROM minipoll WHERE pollName='20090806park' AND Question18='C'"
rs.Open sql, conn
q18c = 0
do while rs.EOF = False
rs.MoveNext
q18c = q18c + 1
q18cp = Round((q18c / total18)*100)
Loop
if q18cp = "" then q18cp = 0
q18cpw = q18cp * 2
%>
Yes:
<% Response.Write q18ap %>%
No:
<% Response.Write q18bp %>%
No, I didn’t even know that you could:
<% Response.Write q18cp %>%
|
|
What is the longest you have ever parked your car at a meter?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20090806park' AND Question9='A'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20090806park' AND Question9='B'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20090806park' AND Question9='C'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20090806park' AND Question9='D'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20090806park' AND Question9='E'"
rs.Open sql, conn
q9e = 0
do while rs.EOF = False
rs.MoveNext
q9e = q9e + 1
q9ep = Round((q9e / total9)*100)
Loop
if q9ep = "" then q9ep = 0
q9epw = q9ep * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20090806park' AND Question9='F'"
rs.Open sql, conn
q9f = 0
do while rs.EOF = False
rs.MoveNext
q9f = q9f + 1
q9fp = Round((q9f / total9)*100)
Loop
if q9fp = "" then q9fp = 0
q9fpw = q9fp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20090806park' AND Question9='G'"
rs.Open sql, conn
q9g = 0
do while rs.EOF = False
rs.MoveNext
q9g = q9g + 1
q9gp = Round((q9g / total9)*100)
Loop
if q9gp = "" then q9gp = 0
q9gpw = q9gp * 2
%>
An hour or less:
<% Response.Write q9ap %>%
Between 1 and 2 hours:
<% Response.Write q9bp %>%
Between 3 and 5 hours:
<% Response.Write q9cp %>%
Between 6 and 12 hours:
<% Response.Write q9dp %>%
More than 12 hours, but less than 24 hours:
<% Response.Write q9ep %>%
For more than 24 hours:
<% Response.Write q9fp %>%
I have never parked at a meter:
<% Response.Write q9gp %>%
|
|
Who do you think has the greatest interest in keeping parking meters?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20090806park' AND Question10='A'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20090806park' AND Question10='B'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20090806park' AND Question10='C'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20090806park' AND Question10='D'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20090806park' AND Question10='E'"
rs.Open sql, conn
q10e = 0
do while rs.EOF = False
rs.MoveNext
q10e = q10e + 1
q10ep = Round((q10e / total10)*100)
Loop
if q10ep = "" then q10ep = 0
q10epw = q10ep * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20090806park' AND Question10='F'"
rs.Open sql, conn
q10f = 0
do while rs.EOF = False
rs.MoveNext
q10f = q10f + 1
q10fp = Round((q10f / total10)*100)
Loop
if q10fp = "" then q10fp = 0
q10fpw = q10fp * 2
%>
Merchants who want there to be parking available around their stores, restaurants, and shops:
<% Response.Write q10ap %>%
Municipalities that collect parking revenue:
<% Response.Write q10bp %>%
Parking enforcement officers:
<% Response.Write q10cp %>%
The companies that manufacture meters:
<% Response.Write q10dp %>%
The people who install and service meters:
<% Response.Write q10ep %>%
Auto repair shops:
<% Response.Write q10fp %>%
|
|
Whose parking enforcement officers are more diligent, Clayton's or the City's?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question11 FROM minipoll WHERE pollName='20090806park' AND Question11='A'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question11 FROM minipoll WHERE pollName='20090806park' AND Question11='B'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question11 FROM minipoll WHERE pollName='20090806park' AND Question11='C'"
rs.Open sql, conn
q11c = 0
do while rs.EOF = False
rs.MoveNext
q11c = q11c + 1
q11cp = Round((q11c / total11)*100)
Loop
if q11cp = "" then q11cp = 0
q11cpw = q11cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question11 FROM minipoll WHERE pollName='20090806park' AND Question11='D'"
rs.Open sql, conn
q11d = 0
do while rs.EOF = False
rs.MoveNext
q11d = q11d + 1
q11dp = Round((q11d / total11)*100)
Loop
if q11dp = "" then q11dp = 0
q11dpw = q11dp * 2
%>
Clayton:
<% Response.Write q11ap %>%
City of St. Louis:
<% Response.Write q11bp %>%
They are about the same, diligent:
<% Response.Write q11cp %>%
There are about the same, not diligent:
<% Response.Write q11dp %>%
|
|
Which of the following statements comes closer to your view?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20090806park' AND Question12='A'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20090806park' AND Question12='B'"
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
%>
Municipal parking garages should be constructed and operated out of parking fines and fees generated by the garages themselves:
<% Response.Write q12ap %>%
Municipal parking garages should be constructed and operated using tax dollars:
<% Response.Write q12bp %>%
|
|
Would you be willing to payer higher sales taxes, rents, or prices to subsidize free parking in the City's business districts the way shoppers in suburban malls and shopping areas do?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question13 FROM minipoll WHERE pollName='20090806park' AND Question13='A'"
rs.Open sql, conn
q13a = 0
do while rs.EOF = False
rs.MoveNext
q13a = q13a + 1
q13ap = Round((q13a / total13)*100)
Loop
if q13ap = "" then q13ap = 0
q13apw = q13ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question13 FROM minipoll WHERE pollName='20090806park' AND Question13='B'"
rs.Open sql, conn
q13b = 0
do while rs.EOF = False
rs.MoveNext
q13b = q13b + 1
q13bp = Round((q13b / total13)*100)
Loop
if q13bp = "" then q13bp = 0
q13bpw = q13bp * 2
%>
Yes:
<% Response.Write q13ap %>%
No:
<% Response.Write q13bp %>%
|
|
Do you think other business districts – like Euclid and S. Grand – should have free parking on Saturdays the way parts of the downtown central business district does?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20090806park' AND Question14='A'"
rs.Open sql, conn
q14a = 0
do while rs.EOF = False
rs.MoveNext
q14a = q14a + 1
q14ap = Round((q14a / total14)*100)
Loop
if q14ap = "" then q14ap = 0
q14apw = q14ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20090806park' AND Question14='B'"
rs.Open sql, conn
q14b = 0
do while rs.EOF = False
rs.MoveNext
q14b = q14b + 1
q14bp = Round((q14b / total14)*100)
Loop
if q14bp = "" then q14bp = 0
q14bpw = q14bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20090806park' AND Question14='C'"
rs.Open sql, conn
q14c = 0
do while rs.EOF = False
rs.MoveNext
q14c = q14c + 1
q14cp = Round((q14c / total14)*100)
Loop
if q14cp = "" then q14cp = 0
q14cpw = q14cp * 2
%>
Yes:
<% Response.Write q14ap %>%
No:
<% Response.Write q14bp %>%
Maybe:
<% Response.Write q14cp %>%
|
|
Have you ever confronted a parking enforcement officer while your car was being ticketed?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question15 FROM minipoll WHERE pollName='20090806park' AND Question15='A'"
rs.Open sql, conn
q15a = 0
do while rs.EOF = False
rs.MoveNext
q15a = q15a + 1
q15ap = Round((q15a / total15)*100)
Loop
if q15ap = "" then q15ap = 0
q15apw = q15ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question15 FROM minipoll WHERE pollName='20090806park' AND Question15='B'"
rs.Open sql, conn
q15b = 0
do while rs.EOF = False
rs.MoveNext
q15b = q15b + 1
q15bp = Round((q15b / total15)*100)
Loop
if q15bp = "" then q15bp = 0
q15bpw = q15bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question15 FROM minipoll WHERE pollName='20090806park' AND Question15='C'"
rs.Open sql, conn
q15c = 0
do while rs.EOF = False
rs.MoveNext
q15c = q15c + 1
q15cp = Round((q15c / total15)*100)
Loop
if q15cp = "" then q15cp = 0
q15cpw = q15cp * 2
%>
Yes, and I got out of the ticket:
<% Response.Write q15ap %>%
Yes, but I did not get out of the ticket:
<% Response.Write q15bp %>%
No:
<% Response.Write q15cp %>%
|
|
How do you think the meter parking rates in the City of St. Louis compare to meter parking rates in other big cities?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20090806park' AND Question16='A'"
rs.Open sql, conn
q16a = 0
do while rs.EOF = False
rs.MoveNext
q16a = q16a + 1
q16ap = Round((q16a / total16)*100)
Loop
if q16ap = "" then q16ap = 0
q16apw = q16ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20090806park' AND Question16='B'"
rs.Open sql, conn
q16b = 0
do while rs.EOF = False
rs.MoveNext
q16b = q16b + 1
q16bp = Round((q16b / total16)*100)
Loop
if q16bp = "" then q16bp = 0
q16bpw = q16bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20090806park' AND Question16='C'"
rs.Open sql, conn
q16c = 0
do while rs.EOF = False
rs.MoveNext
q16c = q16c + 1
q16cp = Round((q16c / total16)*100)
Loop
if q16cp = "" then q16cp = 0
q16cpw = q16cp * 2
%>
St. Louis is higher:
<% Response.Write q16ap %>%
St. Louis is lower:
<% Response.Write q16bp %>%
St. Louis is about the same as most other cities:
<% Response.Write q16cp %>%
|
|
Do you think bicycles, motorcycles, and scooters should have to pay for on-street parking like cars do?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question17 FROM minipoll WHERE pollName='20090806park' AND Question17='A'"
rs.Open sql, conn
q17a = 0
do while rs.EOF = False
rs.MoveNext
q17a = q17a + 1
q17ap = Round((q17a / total17)*100)
Loop
if q17ap = "" then q17ap = 0
q17apw = q17ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question17 FROM minipoll WHERE pollName='20090806park' AND Question17='B'"
rs.Open sql, conn
q17b = 0
do while rs.EOF = False
rs.MoveNext
q17b = q17b + 1
q17bp = Round((q17b / total17)*100)
Loop
if q17bp = "" then q17bp = 0
q17bpw = q17bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question17 FROM minipoll WHERE pollName='20090806park' AND Question17='C'"
rs.Open sql, conn
q17c = 0
do while rs.EOF = False
rs.MoveNext
q17c = q17c + 1
q17cp = Round((q17c / total17)*100)
Loop
if q17cp = "" then q17cp = 0
q17cpw = q17cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question17 FROM minipoll WHERE pollName='20090806park' AND Question17='D'"
rs.Open sql, conn
q17d = 0
do while rs.EOF = False
rs.MoveNext
q17d = q17d + 1
q17dp = Round((q17d / total17)*100)
Loop
if q17dp = "" then q17dp = 0
q17dpw = q17dp * 2
%>
Yes, all of them:
<% Response.Write q17ap %>%
Yes, scooters and motorcycles only:
<% Response.Write q17bp %>%
Yes, motorcycles only:
<% Response.Write q17cp %>%
No, none of them:
<% Response.Write q17dp %>%
|
|
<% RS.Close
Conn.Close %>