%
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, suburban journals"
dim section
section = "Mini Poll: Regional Homelessness Is A City Issue"
%>
Do you see homeless people on a daily basis?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question1 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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 %>%
|
|
Do you speak with homeless people on a daily basis?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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='20090702homeless' 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
%>
Yes:
<% Response.Write q2ap %>%
No:
<% Response.Write q2bp %>%
Only if a homeless person speaks to me first:
<% Response.Write q2cp %>%
|
|
Do you know the full name (first and last) of any person who is currently homeless?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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
%>
Yes:
<% Response.Write q3ap %>%
No:
<% Response.Write q3bp %>%
|
|
Which of the following do you believe is the most important cause of long-term homelessness?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20090702homeless' AND Question4='C'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20090702homeless' AND Question4='D'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20090702homeless' AND Question4='E'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20090702homeless' AND Question4='F'"
rs.Open sql, conn
q4f = 0
do while rs.EOF = False
rs.MoveNext
q4f = q4f + 1
q4fp = Round((q4f / total4)*100)
Loop
if q4fp = "" then q4fp = 0
q4fpw = q4fp * 2
%>
Laziness or personal choice:
<% Response.Write q4ap %>%
Misfortune, karma, or unavoidable bad luck:
<% Response.Write q4bp %>%
Lack of affordable housing:
<% Response.Write q4cp %>%
Lack of jobs that pay a living wage:
<% Response.Write q4dp %>%
Mental health issues:
<% Response.Write q4ep %>%
Drug or other substance addiction problems:
<% Response.Write q4fp %>%
|
|
Do you believe that the problem of chronic homelessness in the St. Louis region has gotten better in the last couple of years, gotten worse, or stayed about the same?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question5 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question5 FROM minipoll WHERE pollName='20090702homeless' AND Question5='C'"
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
%>
It's gotten better:
<% Response.Write q5ap %>%
It's gotten worse:
<% Response.Write q5bp %>%
It's stayed about the same:
<% Response.Write q5cp %>%
|
|
Do you think that St. Louis County and the suburbs are doing enough to address homelessness in their jurisdictions?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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
%>
Yes:
<% Response.Write q6ap %>%
No:
<% Response.Write q6bp %>%
|
|
Do you think that local curfew laws restricting people from sleeping in parks or other public places should be more stringently enforced?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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
%>
Yes:
<% Response.Write q7ap %>%
No:
<% Response.Write q7bp %>%
|
|
How close to your own home is the nearest homeless shelter?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20090702homeless' AND Question8='C'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20090702homeless' AND Question8='D'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20090702homeless' AND Question8='E'"
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
%>
A few blocks, or less:
<% Response.Write q8ap %>%
Not that close, but within a mile or two:
<% Response.Write q8bp %>%
Within several miles:
<% Response.Write q8cp %>%
Further than ten miles away:
<% Response.Write q8dp %>%
I really don't know:
<% Response.Write q8ep %>%
|
|
Do you think that St. Louis should follow the lead of some Sun Belt cities and begin to crack down on suburban charities that feed homeless people in public places like City parks?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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
%>
Yes:
<% Response.Write q9ap %>%
No:
<% Response.Write q9bp %>%
|
|
Do you support the idea of bringing voting machines to homeless shelters to encourage eligible voters there to participate in elections?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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
%>
Yes:
<% Response.Write q10ap %>%
No:
<% Response.Write q10bp %>%
|
|
Do you believe that it is more important to protect the right of individuals' free speech to panhandle, or to protect property values by banning panhandling?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question11 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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
%>
Free speech issues trump property values in this case:
<% Response.Write q11ap %>%
Property values outweigh free speech issues in this case:
<% Response.Write q11bp %>%
|
|
If an apparently homeless person asks you for money, what are you most likely to do?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20090702homeless' AND Question12='C'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20090702homeless' AND Question12='D'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20090702homeless' AND Question12='E'"
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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20090702homeless' AND Question12='F'"
rs.Open sql, conn
q12f = 0
do while rs.EOF = False
rs.MoveNext
q12f = q12f + 1
q12fp = Round((q12f / total12)*100)
Loop
if q12fp = "" then q12fp = 0
q12fpw = q12fp * 2
%>
Give him or her some money:
<% Response.Write q12ap %>%
Offer to purchase him a meal:
<% Response.Write q12bp %>%
Say no and walk away:
<% Response.Write q12cp %>%
Say no, and later donate to one of St. Louis' homeless services agencies:
<% Response.Write q12dp %>%
Say no, and put money in the Homeless Meter (if you're in the CWE):
<% Response.Write q12ep %>%
Ignore them:
<% Response.Write q12fp %>%
|
|
What percentage of the people you see panhandling for money on the streets do you believe are really homeless?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question13 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question13 FROM minipoll WHERE pollName='20090702homeless' AND Question13='C'"
rs.Open sql, conn
q13c = 0
do while rs.EOF = False
rs.MoveNext
q13c = q13c + 1
q13cp = Round((q13c / total13)*100)
Loop
if q13cp = "" then q13cp = 0
q13cpw = q13cp * 2
%>
All or most of them:
<% Response.Write q13ap %>%
Some of them, but not most of them:
<% Response.Write q13bp %>%
Hardly any of them or none:
<% Response.Write q13cp %>%
|
|
Are you more likely to donate to homeless services organizations in the summer or in the winter?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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='20090702homeless' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20090702homeless' AND Question14='D'"
rs.Open sql, conn
q14d = 0
do while rs.EOF = False
rs.MoveNext
q14d = q14d + 1
q14dp = Round((q14d / total14)*100)
Loop
if q14dp = "" then q14dp = 0
q14dpw = q14dp * 2
%>
In the summer because the heat is dangerous:
<% Response.Write q14ap %>%
In the winter because the low temperatures are dangerous:
<% Response.Write q14bp %>%
The season doesn't matter:
<% Response.Write q14cp %>%
Never:
<% Response.Write q14dp %>%
|
|
Do you avoid visiting cities like Los Angeles, New York, Chicago, and San Francisco that have large populations of homeless people or panhandlers?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question15 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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
%>
Yes:
<% Response.Write q15ap %>%
No:
<% Response.Write q15bp %>%
|
|
Do you generally avoid certain areas of St. Louis where homeless people congregate?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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
%>
Yes:
<% Response.Write q16ap %>%
No:
<% Response.Write q16bp %>%
|
|
Have you ever been homeless?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question17 FROM minipoll WHERE pollName='20090702homeless' 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='20090702homeless' 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
%>
Yes:
<% Response.Write q17ap %>%
No:
<% Response.Write q17bp %>%
|
|
<% RS.Close
Conn.Close %>