%
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: Palaces of Purchase"
%>
Do you think shopping in Downtown St. Louis has improved in the past five years, declined, or stayed about the same? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question1 FROM minipoll WHERE pollName='20080306shopping' 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='20080306shopping' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question1 FROM minipoll WHERE pollName='20080306shopping' AND Question1='C'"
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
%>
Improved:
<% Response.Write q1ap %>%
Declined:
<% Response.Write q1bp %>%
Stayed the same:
<% Response.Write q1cp %>%
|
|
Do you thinking shopping in your own neighborhood has improved in the past five years, declined, or stayed about the same? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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
%>
Improved:
<% Response.Write q2ap %>%
Declined:
<% Response.Write q2bp %>%
Stayed the same:
<% Response.Write q2cp %>%
|
|
Which of the following things would you most like to see built in your own neighborhood this year? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080306shopping' AND Question3='A'"
rs.Open sql, conn
q3a = 0
do while rs.EOF = False
rs.MoveNext
q3a = q3a + 1
q3ap = Round((q3a / total1)*100)
Loop
if q3ap = "" then q3ap = 0
q3apw = q3ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080306shopping' AND Question3='B'"
rs.Open sql, conn
q3b = 0
do while rs.EOF = False
rs.MoveNext
q3b = q3b + 1
q3bp = Round((q3b / total1)*100)
Loop
if q3bp = "" then q3bp = 0
q3bpw = q3bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080306shopping' AND Question3='C'"
rs.Open sql, conn
q3c = 0
do while rs.EOF = False
rs.MoveNext
q3c = q3c + 1
q3cp = Round((q3c / total1)*100)
Loop
if q3cp = "" then q3cp = 0
q3cpw = q3cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080306shopping' AND Question3='D'"
rs.Open sql, conn
q3d = 0
do while rs.EOF = False
rs.MoveNext
q3d = q3d + 1
q3dp = Round((q3d / total1)*100)
Loop
if q3dp = "" then q3dp = 0
q3dpw = q3dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080306shopping' AND Question3='E'"
rs.Open sql, conn
q3e = 0
do while rs.EOF = False
rs.MoveNext
q3e = q3e + 1
q3ep = Round((q3e / total1)*100)
Loop
if q3ep = "" then q3ep = 0
q3epw = q3ep * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080306shopping' AND Question3='F'"
rs.Open sql, conn
q3f = 0
do while rs.EOF = False
rs.MoveNext
q3f = q3f + 1
q3fp = Round((q3f / total1)*100)
Loop
if q3fp = "" then q3fp = 0
q3fpw = q3fp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080306shopping' AND Question3='G'"
rs.Open sql, conn
q3g = 0
do while rs.EOF = False
rs.MoveNext
q3g = q3g + 1
q3gp = Round((q3g / total1)*100)
Loop
if q3gp = "" then q3gp = 0
q3gpw = q3gp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080306shopping' AND Question3='H'"
rs.Open sql, conn
q3h = 0
do while rs.EOF = False
rs.MoveNext
q3h = q3h + 1
q3hp = Round((q3h / total1)*100)
Loop
if q3hp = "" then q3hp = 0
q3hpw = q3hp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080306shopping' AND Question3='I'"
rs.Open sql, conn
q3i = 0
do while rs.EOF = False
rs.MoveNext
q3i = q3i + 1
q3ip = Round((q3i / total1)*100)
Loop
if q3ip = "" then q3ip = 0
q3ipw = q3ip * 2
%>
A great restaurant:
<% Response.Write q3ap %>%
A great coffee shop:
<% Response.Write q3bp %>%
A great florist:
<% Response.Write q3cp %>%
A great ice cream place:
<% Response.Write q3dp %>%
A great bakery:
<% Response.Write q3ep %>%
A great bar:
<% Response.Write q3fp %>%
A great boutique:
<% Response.Write q3gp %>%
A great salon:
<% Response.Write q3hp %>%
A great bookstore:
<% Response.Write q3ip %>%
|
|
At which of the following times do you do the most shopping for things other than groceries? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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
%>
Before work:
<% Response.Write q4ap %>%
After work:
<% Response.Write q4bp %>%
During weekday working hours:
<% Response.Write q4cp %>%
During my lunch hour:
<% Response.Write q4dp %>%
On the weekends:
<% Response.Write q4ep %>%
At midnight, on the Internet:
<% Response.Write q4fp %>%
|
|
Which of the following choices would best finish the sentence "If more stores with things I wanted to buy were located close to where I work . . . ": |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question5 FROM minipoll WHERE pollName='20080306shopping' 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='20080306shopping' 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='20080306shopping' AND Question5='C'"
rs.Open sql, conn
q6c = 0
do while rs.EOF = False
rs.MoveNext
q5c = q6c + 1
q5cp = Round((q5c / total5)*100)
Loop
if q5cp = "" then q5cp = 0
q5cpw = q5cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question5 FROM minipoll WHERE pollName='20080306shopping' AND Question5='D'"
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
%>
I would shop more during my lunch hour:
<% Response.Write q5ap %>%
I would shop more after work:
<% Response.Write q5bp %>%
I would work more on the weekends and shop on weekend afternoons:
<% Response.Write q5cp %>%
It wouldn't make much of a difference:
<% Response.Write q5dp %>%
|
|
Which of the following pieces of advice would you be most likely to give to developers looking for tenants for Downtown's great new retail spaces? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM minipoll WHERE pollName='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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
%>
Concentrate on retail that takes advantage of Downtown's 90,000 daytime workers and offer things these workers want to buy:
<% Response.Write q6ap %>%
Concentrate on Downtown's 10,000 new middle and upper income residents:
<% Response.Write q6bp %>%
Concentrate on Downtown's 3 million+ visitors each year:
<% Response.Write q6cp %>%
|
|
In which of the following categories is shopping in the City of St. Louis most clearly better than county shopping? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question7='A'"
rs.Open sql, conn
q7a = 0
do while rs.EOF = False
rs.MoveNext
q7a = q7a + 1
q7ap = Round((q7a / total1)*100)
Loop
if q7ap = "" then q7ap = 0
q7apw = q7ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question7='B'"
rs.Open sql, conn
q7b = 0
do while rs.EOF = False
rs.MoveNext
q7b = q7b + 1
q7bp = Round((q7b / total1)*100)
Loop
if q7bp = "" then q7bp = 0
q7bpw = q7bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question7='C'"
rs.Open sql, conn
q7c = 0
do while rs.EOF = False
rs.MoveNext
q7c = q7c + 1
q7cp = Round((q7c / total1)*100)
Loop
if q7cp = "" then q7cp = 0
q7cpw = q7cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question7='D'"
rs.Open sql, conn
q7d = 0
do while rs.EOF = False
rs.MoveNext
q7d = q7d + 1
q7dp = Round((q7d / total1)*100)
Loop
if q7dp = "" then q7dp = 0
q7dpw = q7dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question7='E'"
rs.Open sql, conn
q7e = 0
do while rs.EOF = False
rs.MoveNext
q7e = q7e + 1
q7ep = Round((q7e / total1)*100)
Loop
if q7ep = "" then q7ep = 0
q7epw = q7ep * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question7='F'"
rs.Open sql, conn
q7f = 0
do while rs.EOF = False
rs.MoveNext
q7f = q7f + 1
q7fp = Round((q7f / total1)*100)
Loop
if q7fp = "" then q7fp = 0
q7fpw = q7fp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question7='G'"
rs.Open sql, conn
q7g = 0
do while rs.EOF = False
rs.MoveNext
q7g = q7g + 1
q7gp = Round((q7g / total1)*100)
Loop
if q7gp = "" then q7gp = 0
q7gpw = q7gp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question7='H'"
rs.Open sql, conn
q7h = 0
do while rs.EOF = False
rs.MoveNext
q7h = q7h + 1
q7hp = Round((q7h / total1)*100)
Loop
if q7hp = "" then q7hp = 0
q7hpw = q7hp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question7='I'"
rs.Open sql, conn
q7i = 0
do while rs.EOF = False
rs.MoveNext
q7i = q7i + 1
q7ip = Round((q7i / total1)*100)
Loop
if q7ip = "" then q7ip = 0
q7ipw = q7ip * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question7='J'"
rs.Open sql, conn
q7j = 0
do while rs.EOF = False
rs.MoveNext
q7j = q7j + 1
q7jp = Round((q7j / total1)*100)
Loop
if q7jp = "" then q7jp = 0
q7jpw = q7jp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question7='K'"
rs.Open sql, conn
q7k = 0
do while rs.EOF = False
rs.MoveNext
q7k = q7k + 1
q7kp = Round((q7k / total1)*100)
Loop
if q7kp = "" then q7kp = 0
q7kpw = q7kp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question7='L'"
rs.Open sql, conn
q7l = 0
do while rs.EOF = False
rs.MoveNext
q7l = q7l + 1
q7lp = Round((q7l / total1)*100)
Loop
if q7lp = "" then q7lp = 0
q7lpw = q7lp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question7='M'"
rs.Open sql, conn
q7m = 0
do while rs.EOF = False
rs.MoveNext
q7m = q7m + 1
q7mp = Round((q7m / total1)*100)
Loop
if q7mp = "" then q7mp = 0
q7mpw = q7mp * 2
%>
Fashionable clothes:
<% Response.Write q7ap %>%
Vintage clothes:
<% Response.Write q7bp %>%
Shoes:
<% Response.Write q7cp %>%
Jewelry:
<% Response.Write q7dp %>%
Religious supplies:
<% Response.Write q7ep %>%
Coins and stamps:
<% Response.Write q7fp %>%
Art:
<% Response.Write q7gp %>%
Antiques:
<% Response.Write q7hp %>%
Ethnic foodstuffs:
<% Response.Write q7ip %>%
Hobbyist supplies:
<% Response.Write q7jp %>%
Furniture:
<% Response.Write q7kp %>%
Used books:
<% Response.Write q7lp %>%
Pretzels:
<% Response.Write q7mp %>%
|
|
City Residents Only | Non-City Residents |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question7='A'"
rs.Open sql, conn
q7aa = 0
do while rs.EOF = False
rs.MoveNext
q7aa = q7aa + 1
q7aap = Round((q7aa / total7a)*100)
Loop
if q7aap = "" then q7aap = 0
q7aapw = q7aap
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question7='B'"
rs.Open sql, conn
q7ab = 0
do while rs.EOF = False
rs.MoveNext
q7ab = q7ab + 1
q7abp = Round((q7ab / total7a)*100)
Loop
if q7abp = "" then q7abp = 0
q7abpw = q7abp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question7='C'"
rs.Open sql, conn
q7ac = 0
do while rs.EOF = False
rs.MoveNext
q7ac = q7ac + 1
q7acp = Round((q7ac / total7a)*100)
Loop
if q7acp = "" then q7acp = 0
q7acpw = q7acp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question7='D'"
rs.Open sql, conn
q7ad = 0
do while rs.EOF = False
rs.MoveNext
q7ad = q7ad + 1
q7adp = Round((q7ad / total7a)*100)
Loop
if q7adp = "" then q7adp = 0
q7adpw = q7adp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question7='E'"
rs.Open sql, conn
q7ae = 0
do while rs.EOF = False
rs.MoveNext
q7ae = q7ae + 1
q7aep = Round((q7ae / total7a)*100)
Loop
if q7aep = "" then q7aep = 0
q7aepw = q7aep
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question7='F'"
rs.Open sql, conn
q7af = 0
do while rs.EOF = False
rs.MoveNext
q7af = q7af + 1
q7afp = Round((q7af / total7a)*100)
Loop
if q7afp = "" then q7afp = 0
q7afpw = q7afp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question7='G'"
rs.Open sql, conn
q7ag = 0
do while rs.EOF = False
rs.MoveNext
q7ag = q7ag + 1
q7agp = Round((q7ag / total7a)*100)
Loop
if q7agp = "" then q7agp = 0
q7agpw = q7agp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question7='H'"
rs.Open sql, conn
q7ah = 0
do while rs.EOF = False
rs.MoveNext
q7ah = q7ah + 1
q7ahp = Round((q7ah / total7a)*100)
Loop
if q7ahp = "" then q7ahp = 0
q7ahpw = q7ahp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question7='I'"
rs.Open sql, conn
q7ai = 0
do while rs.EOF = False
rs.MoveNext
q7ai = q7ai + 1
q7aip = Round((q7ai / total7a)*100)
Loop
if q7aip = "" then q7aip = 0
q7aipw = q7aip
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question7='J'"
rs.Open sql, conn
q7aj = 0
do while rs.EOF = False
rs.MoveNext
q7aj = q7aj + 1
q7ajp = Round((q7aj / total7a)*100)
Loop
if q7ajp = "" then q7ajp = 0
q7ajpw = q7ajp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question7='K'"
rs.Open sql, conn
q7ak = 0
do while rs.EOF = False
rs.MoveNext
q7ak = q7ak + 1
q7akp = Round((q7ak / total7a)*100)
Loop
if q7akp = "" then q7akp = 0
q7akpw = q7akp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question7='L'"
rs.Open sql, conn
q7al = 0
do while rs.EOF = False
rs.MoveNext
q7al = q7al + 1
q7alp = Round((q7al / total7a)*100)
Loop
if q7alp = "" then q7alp = 0
q7alpw = q7alp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question7='M'"
rs.Open sql, conn
q7am = 0
do while rs.EOF = False
rs.MoveNext
q7am = q7am + 1
q7amp = Round((q7am / total7a)*100)
Loop
if q7amp = "" then q7amp = 0
q7ampw = q7amp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question7='A'"
rs.Open sql, conn
q7ba = 0
do while rs.EOF = False
rs.MoveNext
q7ba = q7ba + 1
q7bap = Round((q7ba / total7b)*100)
Loop
if q7bap = "" then q7bap = 0
q7bapw = q7bap
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question7='B'"
rs.Open sql, conn
q7bb = 0
do while rs.EOF = False
rs.MoveNext
q7bb = q7bb + 1
q7bbp = Round((q7bb / total7b)*100)
Loop
if q7bbp = "" then q7bbp = 0
q7bbpw = q7bbp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question7='C'"
rs.Open sql, conn
q7bc = 0
do while rs.EOF = False
rs.MoveNext
q7bc = q7bc + 1
q7bcp = Round((q7bc / total7b)*100)
Loop
if q7bcp = "" then q7bcp = 0
q7bcpw = q7bcp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question7='D'"
rs.Open sql, conn
q7bd = 0
do while rs.EOF = False
rs.MoveNext
q7bd = q7bd + 1
q7bdp = Round((q7bd / total7b)*100)
Loop
if q7bdp = "" then q7bdp = 0
q7bdpw = q7bdp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question7='E'"
rs.Open sql, conn
q7be = 0
do while rs.EOF = False
rs.MoveNext
q7be = q7be + 1
q7bep = Round((q7be / total7b)*100)
Loop
if q7bep = "" then q7bep = 0
q7bepw = q7bep
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question7='F'"
rs.Open sql, conn
q7bf = 0
do while rs.EOF = False
rs.MoveNext
q7bf = q7bf + 1
q7bfp = Round((q7bf / total7b)*100)
Loop
if q7bfp = "" then q7bfp = 0
q7bfpw = q7bfp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question7='G'"
rs.Open sql, conn
q7bg = 0
do while rs.EOF = False
rs.MoveNext
q7bg = q7bg + 1
q7bgp = Round((q7bg / total7b)*100)
Loop
if q7bgp = "" then q7bgp = 0
q7bgpw = q7bgp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question7='H'"
rs.Open sql, conn
q7bh = 0
do while rs.EOF = False
rs.MoveNext
q7bh = q7bh + 1
q7bhp = Round((q7bh / total7b)*100)
Loop
if q7bhp = "" then q7bhp = 0
q7bhpw = q7bhp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question7='I'"
rs.Open sql, conn
q7bi = 0
do while rs.EOF = False
rs.MoveNext
q7bi = q7bi + 1
q7bip = Round((q7bi / total7b)*100)
Loop
if q7bip = "" then q7bip = 0
q7bipw = q7bip
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question7='J'"
rs.Open sql, conn
q7bj = 0
do while rs.EOF = False
rs.MoveNext
q7bj = q7bj + 1
q7bjp = Round((q7bj / total7b)*100)
Loop
if q7bjp = "" then q7bjp = 0
q7bjpw = q7bjp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question7='K'"
rs.Open sql, conn
q7bk = 0
do while rs.EOF = False
rs.MoveNext
q7bk = q7bk + 1
q7bkp = Round((q7bk / total7b)*100)
Loop
if q7bkp = "" then q7bkp = 0
q7bkpw = q7bkp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question7='L'"
rs.Open sql, conn
q7bl = 0
do while rs.EOF = False
rs.MoveNext
q7bl = q7bl + 1
q7blp = Round((q7bl / total7b)*100)
Loop
if q7blp = "" then q7blp = 0
q7blpw = q7blp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question7='M'"
rs.Open sql, conn
q7bm = 0
do while rs.EOF = False
rs.MoveNext
q7bm = q7bm + 1
q7bmp = Round((q7bm / total7b)*100)
Loop
if q7bmp = "" then q7bmp = 0
q7bmpw = q7bmp
%>
Fashionable clothes:
<% Response.Write q7aap %>%
Vintage clothes:
<% Response.Write q7abp %>%
Shoes:
<% Response.Write q7acp %>%
Jewelry:
<% Response.Write q7adp %>%
Religious supplies:
<% Response.Write q7aep %>%
Coins and stamps:
<% Response.Write q7afp %>%
Art:
<% Response.Write q7agp %>%
Antiques:
<% Response.Write q7ahp %>%
Ethnic foodstuffs:
<% Response.Write q7aip %>%
Hobbyist supplies:
<% Response.Write q7ajp %>%
Furniture:
<% Response.Write q7akp %>%
Used books:
<% Response.Write q7alp %>%
Pretzels:
<% Response.Write q7amp %>%
|
Fashionable clothes:
<% Response.Write q7bap %>%
Vintage clothes:
<% Response.Write q7bbp %>%
Shoes:
<% Response.Write q7bcp %>%
Jewelry:
<% Response.Write q7bdp %>%
Religious supplies:
<% Response.Write q7bep %>%
Coins and stamps:
<% Response.Write q7bfp %>%
Art:
<% Response.Write q7bgp %>%
Antiques:
<% Response.Write q7bhp %>%
Ethnic foodstuffs:
<% Response.Write q7bip %>%
Hobbyist supplies:
<% Response.Write q7bjp %>%
Furniture:
<% Response.Write q7bkp %>%
Used books:
<% Response.Write q7blp %>%
Pretzels:
<% Response.Write q7bmp %>%
|
|
|
Which of the following is the City's premier shopping district? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080306shopping' AND Question8='A'"
rs.Open sql, conn
q8a = 0
do while rs.EOF = False
rs.MoveNext
q8a = q8a + 1
q8ap = Round((q8a / total1)*100)
Loop
if q8ap = "" then q8ap = 0
q8apw = q8ap * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080306shopping' AND Question8='B'"
rs.Open sql, conn
q8b = 0
do while rs.EOF = False
rs.MoveNext
q8b = q8b + 1
q8bp = Round((q8b / total1)*100)
Loop
if q8bp = "" then q8bp = 0
q8bpw = q8bp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080306shopping' AND Question8='C'"
rs.Open sql, conn
q8c = 0
do while rs.EOF = False
rs.MoveNext
q8c = q8c + 1
q8cp = Round((q8c / total1)*100)
Loop
if q8cp = "" then q8cp = 0
q8cpw = q8cp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080306shopping' AND Question8='D'"
rs.Open sql, conn
q8d = 0
do while rs.EOF = False
rs.MoveNext
q8d = q8d + 1
q8dp = Round((q8d / total1)*100)
Loop
if q8dp = "" then q8dp = 0
q8dpw = q8dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080306shopping' AND Question8='E'"
rs.Open sql, conn
q8e = 0
do while rs.EOF = False
rs.MoveNext
q8e = q8e + 1
q8ep = Round((q8e / total1)*100)
Loop
if q8ep = "" then q8ep = 0
q8epw = q8ep * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080306shopping' AND Question8='F'"
rs.Open sql, conn
q8f = 0
do while rs.EOF = False
rs.MoveNext
q8f = q8f + 1
q8fp = Round((q8f / total1)*100)
Loop
if q8fp = "" then q8fp = 0
q8fpw = q8fp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080306shopping' AND Question8='G'"
rs.Open sql, conn
q8g = 0
do while rs.EOF = False
rs.MoveNext
q8g = q8g + 1
q8gp = Round((q8g / total1)*100)
Loop
if q8gp = "" then q8gp = 0
q8gpw = q8gp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080306shopping' AND Question8='H'"
rs.Open sql, conn
q8h = 0
do while rs.EOF = False
rs.MoveNext
q8h = q8h + 1
q8hp = Round((q8h / total1)*100)
Loop
if q8hp = "" then q8hp = 0
q8hpw = q8hp * 2
%>
Central West End:
<% Response.Write q8ap %>%
Delmar Loop:
<% Response.Write q8bp %>%
Downtown's Central Business District:
<% Response.Write q8cp %>%
Cherokee Street:
<% Response.Write q8dp %>%
The Hill:
<% Response.Write q8ep %>%
Washington Avenue Loft District:
<% Response.Write q8fp %>%
Southhampton:
<% Response.Write q8gp %>%
South Grand:
<% Response.Write q8hp %>%
|
|
For which of the following items are you most likely to have to shop in the county, rather than in the City? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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
%>
Electronics:
<% Response.Write q9ap %>%
Bulk groceries:
<% Response.Write q9bp %>%
Books:
<% Response.Write q9cp %>%
Fitness equipment:
<% Response.Write q9dp %>%
Cars:
<% Response.Write q9ep %>%
|
|
City Residents Only | Non-City Residents |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question9='A'"
rs.Open sql, conn
q9aa = 0
do while rs.EOF = False
rs.MoveNext
q9aa = q9aa + 1
q9aap = Round((q9aa / total9a)*100)
Loop
if q9aap = "" then q9aap = 0
q9aapw = q9aap
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question9='B'"
rs.Open sql, conn
q9ab = 0
do while rs.EOF = False
rs.MoveNext
q9ab = q9ab + 1
q9abp = Round((q9ab / total9a)*100)
Loop
if q9abp = "" then q9abp = 0
q9abpw = q9abp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question9='C'"
rs.Open sql, conn
q9ac = 0
do while rs.EOF = False
rs.MoveNext
q9ac = q9ac + 1
q9acp = Round((q9ac / total9a)*100)
Loop
if q9acp = "" then q9acp = 0
q9acpw = q9acp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question9='D'"
rs.Open sql, conn
q9ad = 0
do while rs.EOF = False
rs.MoveNext
q9ad = q9ad + 1
q9adp = Round((q9ad / total9a)*100)
Loop
if q9adp = "" then q9adp = 0
q9adpw = q9adp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20080306shopping' AND Question18='A' AND Question9='E'"
rs.Open sql, conn
q9ae = 0
do while rs.EOF = False
rs.MoveNext
q9ae = q9ae + 1
q9aep = Round((q9ae / total9a)*100)
Loop
if q9aep = "" then q9aep = 0
q9aepw = q9aep
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question9='A'"
rs.Open sql, conn
q9ba = 0
do while rs.EOF = False
rs.MoveNext
q9ba = q9ba + 1
q9bap = Round((q9ba / total9b)*100)
Loop
if q9bap = "" then q9bap = 0
q9bapw = q9bap
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question9='B'"
rs.Open sql, conn
q9bb = 0
do while rs.EOF = False
rs.MoveNext
q9bb = q9bb + 1
q9bbp = Round((q9bb / total9b)*100)
Loop
if q9bbp = "" then q9bbp = 0
q9bbpw = q9bbp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question9='C'"
rs.Open sql, conn
q9bc = 0
do while rs.EOF = False
rs.MoveNext
q9bc = q9bc + 1
q9bcp = Round((q9bc / total9b)*100)
Loop
if q9bcp = "" then q9bcp = 0
q9bcpw = q9bcp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question9='D'"
rs.Open sql, conn
q9bd = 0
do while rs.EOF = False
rs.MoveNext
q9bd = q9bd + 1
q9bdp = Round((q9bd / total9b)*100)
Loop
if q9bdp = "" then q9bdp = 0
q9bdpw = q9bdp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20080306shopping' AND Question18='B' AND Question9='E'"
rs.Open sql, conn
q9be = 0
do while rs.EOF = False
rs.MoveNext
q9be = q9be + 1
q9bep = Round((q9be / total9b)*100)
Loop
if q9bep = "" then q9bep = 0
q9bepw = q9bep
%>
Electronics:
<% Response.Write q9aap %>%
Bulk groceries:
<% Response.Write q9abp %>%
Books:
<% Response.Write q9acp %>%
Fitness equipment:
<% Response.Write q9adp %>%
Cars:
<% Response.Write q9aep %>%
|
Electronics:
<% Response.Write q9bap %>%
Bulk groceries:
<% Response.Write q9bbp %>%
Books:
<% Response.Write q9bcp %>%
Fitness equipment:
<% Response.Write q9bdp %>%
Cars:
<% Response.Write q9bep %>%
|
|
|
Which of the following best describes your style for making major purchases? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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
%>
I decide what I want and purchase it at the closest store:
<% Response.Write q10ap %>%
I decide what I want, visit several stores to find the best value and style, and then make my purchase:
<% Response.Write q10bp %>%
I research my purchase on the Internet and buy it on the Internet:
<% Response.Write q10cp %>%
|
|
How likely are you to use a medical clinic located inside a retail store or pharmacy? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question11 FROM minipoll WHERE pollName='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question11 FROM minipoll WHERE pollName='20080306shopping' AND Question11='E'"
rs.Open sql, conn
q11e = 0
do while rs.EOF = False
rs.MoveNext
q11e = q11e + 1
q11ep = Round((q11e / total11)*100)
Loop
if q11ep = "" then q11ep = 0
q11epw = q11ep * 2
%>
Very likely:
<% Response.Write q11ap %>%
Somewhat likely:
<% Response.Write q11bp %>%
Somewhat unlikely:
<% Response.Write q11cp %>%
Very unlikely:
<% Response.Write q11dp %>%
Depends primarily on price:
<% Response.Write q11ep %>%
|
|
How likely are you to shop at a grocery store that sells a lot of locally grown or produced food? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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
%>
Very likely:
<% Response.Write q12ap %>%
Somewhat likely:
<% Response.Write q12bp %>%
Somewhat unlikely:
<% Response.Write q12cp %>%
Very unlikely:
<% Response.Write q12dp %>%
Depends primarily on price:
<% Response.Write q12ep %>%
|
|
How likely are you to shop at a store that offers environmentally friendly services, products, or brands? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question13 FROM minipoll WHERE pollName='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question13 FROM minipoll WHERE pollName='20080306shopping' AND Question13='D'"
rs.Open sql, conn
q13d = 0
do while rs.EOF = False
rs.MoveNext
q13d = q13d + 1
q13dp = Round((q13d / total13)*100)
Loop
if q13dp = "" then q13dp = 0
q13dpw = q13dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question13 FROM minipoll WHERE pollName='20080306shopping' AND Question13='E'"
rs.Open sql, conn
q13e = 0
do while rs.EOF = False
rs.MoveNext
q13e = q13e + 1
q13ep = Round((q13e / total13)*100)
Loop
if q13ep = "" then q13ep = 0
q13epw = q13ep * 2
%>
Very likely:
<% Response.Write q13ap %>%
Somewhat likely:
<% Response.Write q13bp %>%
Somewhat unlikely:
<% Response.Write q13cp %>%
Very unlikely:
<% Response.Write q13dp %>%
Depends primarily on price:
<% Response.Write q13ep %>%
|
|
Which of the following retail stores would you most like to see somewhere in the City? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20080306shopping' AND Question14='E'"
rs.Open sql, conn
q14e = 0
do while rs.EOF = False
rs.MoveNext
q14e = q14e + 1
q14ep = Round((q14e / total14)*100)
Loop
if q14ep = "" then q14ep = 0
q14epw = q14ep * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20080306shopping' AND Question14='F'"
rs.Open sql, conn
q14f = 0
do while rs.EOF = False
rs.MoveNext
q14f = q14f + 1
q14fp = Round((q14f / total14)*100)
Loop
if q14fp = "" then q14fp = 0
q14fpw = q14fp * 2
%>
Cabela's:
<% Response.Write q14ap %>%
Wal-Mart:
<% Response.Write q14bp %>%
Bass Pro:
<% Response.Write q14cp %>%
Costco:
<% Response.Write q14dp %>%
Kohl's:
<% Response.Write q14ep %>%
Aaccck! Can't breathe.:
<% Response.Write q14fp %>%
|
|
Which of the following retail stores would you most like to see somewhere in the City? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question15 FROM minipoll WHERE pollName='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question15 FROM minipoll WHERE pollName='20080306shopping' AND Question15='D'"
rs.Open sql, conn
q15d = 0
do while rs.EOF = False
rs.MoveNext
q15d = q15d + 1
q15dp = Round((q15d / total15)*100)
Loop
if q15dp = "" then q15dp = 0
q15dpw = q15dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question15 FROM minipoll WHERE pollName='20080306shopping' AND Question15='E'"
rs.Open sql, conn
q15e = 0
do while rs.EOF = False
rs.MoveNext
q15e = q15e + 1
q15ep = Round((q15e / total15)*100)
Loop
if q15ep = "" then q15ep = 0
q15epw = q15ep * 2
%>
IKEA:
<% Response.Write q15ap %>%
Trader Joe's:
<% Response.Write q15bp %>%
Apple Store:
<% Response.Write q15cp %>%
Niketown:
<% Response.Write q15dp %>%
You are evil poll-people. I refuse to choose.:
<% Response.Write q15ep %>%
|
|
Which of the following retail stores would you most like to see somewhere in the City? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20080306shopping' AND Question16='D'"
rs.Open sql, conn
q16d = 0
do while rs.EOF = False
rs.MoveNext
q16d = q16d + 1
q16dp = Round((q16d / total16)*100)
Loop
if q16dp = "" then q16dp = 0
q16dpw = q16dp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20080306shopping' AND Question16='E'"
rs.Open sql, conn
q16e = 0
do while rs.EOF = False
rs.MoveNext
q16e = q16e + 1
q16ep = Round((q16e / total16)*100)
Loop
if q16ep = "" then q16ep = 0
q16epw = q16ep * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20080306shopping' AND Question16='F'"
rs.Open sql, conn
q16f = 0
do while rs.EOF = False
rs.MoveNext
q16f = q16f + 1
q16fp = Round((q16f / total16)*100)
Loop
if q16fp = "" then q16fp = 0
q16fpw = q16fp * 2
%>
Brooks Brothers:
<% Response.Write q16ap %>%
J. Crew:
<% Response.Write q16bp %>%
Banana Republic:
<% Response.Write q16cp %>%
Victoria's Secret:
<% Response.Write q16dp %>%
H&M:
<% Response.Write q16ep %>%
Whichever of them that sells Carhartt:
<% Response.Write q16fp %>%
|
|
If both mega-stores were five minutes from your house, at which would you most likely shop more often? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question17 FROM minipoll WHERE pollName='20080306shopping' 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='20080306shopping' 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='20080306shopping' 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
%>
Barnes & Noble:
<% Response.Write q17ap %>%
Borders:
<% Response.Write q17bp %>%
I would drive or walk an extra half hour to shop at Left Bank Books:
<% Response.Write q17cp %>%
|
|
Do you live in the City of St. Louis? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question18 FROM minipoll WHERE pollName='20080306shopping' 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='20080306shopping' 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
%>
Yes:
<% Response.Write q18ap %>%
No:
<% Response.Write q18bp %>%
|
|
<% RS.Close
Conn.Close %>