Yes:
<% Response.Write q6ap %>%
No:
<% Response.Write q6bp %>%
|
Which of the following actions best describes what you most often do with the Suburban Journal? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080124suburban' AND Question7='E'"
rs.Open sql, conn
q7e = 0
do while rs.EOF = False
rs.MoveNext
q7e = q7e + 1
q7ep = Round((q7e / total7)*100)
Loop
if q7ep = "" then q7ep = 0
q7epw = q7ep * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080124suburban' AND Question7='F'"
rs.Open sql, conn
q7f = 0
do while rs.EOF = False
rs.MoveNext
q7f = q7f + 1
q7fp = Round((q7f / total7)*100)
Loop
if q7fp = "" then q7fp = 0
q7fpw = q7fp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080124suburban' AND Question7='G'"
rs.Open sql, conn
q7g = 0
do while rs.EOF = False
rs.MoveNext
q7g = q7g + 1
q7gp = Round((q7g / total7)*100)
Loop
if q7gp = "" then q7gp = 0
q7gpw = q7gp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080124suburban' AND Question7='H'"
rs.Open sql, conn
q7h = 0
do while rs.EOF = False
rs.MoveNext
q7h = q7h + 1
q7hp = Round((q7h / total7)*100)
Loop
if q7hp = "" then q7hp = 0
q7hpw = q7hp * 2
%>
Read it to find out what's going on in my neighborhood:
<% Response.Write q7ap %>%
Read it to find out how a school's sports teams are doing:
<% Response.Write q7bp %>%
Read it to learn new recipes:
<% Response.Write q7cp %>%
Read it to find out about bargains or sales:
<% Response.Write q7dp %>%
Read it to see what lunches the schools are serving this week:
<% Response.Write q7ep %>%
Steal or borrow a copy from someone who gets one:
<% Response.Write q7fp %>%
Place it in the trash can or recycling bin without reading it:
<% Response.Write q7gp %>%
Leave it in the yard until it mulches:
<% Response.Write q7hp %>%
|
|
Which of the following features of the Suburban Journal do you most regularly read? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080124suburban' AND Question8='F'"
rs.Open sql, conn
q8f = 0
do while rs.EOF = False
rs.MoveNext
q8f = q8f + 1
q8fp = Round((q8f / total8)*100)
Loop
if q8fp = "" then q8fp = 0
q8fpw = q8fp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080124suburban' AND Question8='G'"
rs.Open sql, conn
q8g = 0
do while rs.EOF = False
rs.MoveNext
q8g = q8g + 1
q8gp = Round((q8g / total8)*100)
Loop
if q8gp = "" then q8gp = 0
q8gpw = q8gp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080124suburban' AND Question8='H'"
rs.Open sql, conn
q8h = 0
do while rs.EOF = False
rs.MoveNext
q8h = q8h + 1
q8hp = Round((q8h / total8)*100)
Loop
if q8hp = "" then q8hp = 0
q8hpw = q8hp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080124suburban' AND Question8='I'"
rs.Open sql, conn
q8i = 0
do while rs.EOF = False
rs.MoveNext
q8i = q8i + 1
q8ip = Round((q8i / total8)*100)
Loop
if q8ip = "" then q8ip = 0
q8ipw = q8ip * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080124suburban' AND Question8='J'"
rs.Open sql, conn
q8j = 0
do while rs.EOF = False
rs.MoveNext
q8j = q8j + 1
q8jp = Round((q8j / total8)*100)
Loop
if q8jp = "" then q8jp = 0
q8jpw = q8jp * 2
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080124suburban' AND Question8='K'"
rs.Open sql, conn
q8k = 0
do while rs.EOF = False
rs.MoveNext
q8k = q8k + 1
q8kp = Round((q8k / total8)*100)
Loop
if q8kp = "" then q8kp = 0
q8kpw = q8kp * 2
%>
Education:
<% Response.Write q8ap %>%
Prep Sports:
<% Response.Write q8bp %>%
Guest Commentary:
<% Response.Write q8cp %>%
Letters:
<% Response.Write q8dp %>%
Opinion Shaper:
<% Response.Write q8ep %>%
Page One stories:
<% Response.Write q8fp %>%
Town Talk:
<% Response.Write q8gp %>%
Entertainment:
<% Response.Write q8hp %>%
Recipes:
<% Response.Write q8ip %>%
Life Styles:
<% Response.Write q8jp %>%
Classifieds:
<% Response.Write q8kp %>%
|
|
Have you ever looked to find how much your neighbors' or friends' homes were worth in the "What Did it Sell For" feature? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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 %>%
|
|
Have you ever called Town Talk? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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 %>%
|
|
Which of the following is most likely the average age of a Town Talk caller? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question11 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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
%>
60:
<% Response.Write q11ap %>%
70:
<% Response.Write q11bp %>%
80:
<% Response.Write q11cp %>%
90:
<% Response.Write q11dp %>%
100:
<% Response.Write q11ep %>%
|
|
If you were going to submit something to the Suburban Journals, which of the following would it most likely be? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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
%>
A guest commentary on a subject of great interest to the community:
<% Response.Write q12ap %>%
A letter to the editor poking fun at an Opinion Shaper article:
<% Response.Write q12bp %>%
A favorite recipe from my family:
<% Response.Write q12cp %>%
A sports feat by someone in my family:
<% Response.Write q12dp %>%
An ad for my garage sale:
<% Response.Write q12ep %>%
An anonymous tape recorded Town Talk comment about something that outraged me:
<% Response.Write q12fp %>%
|
|
Do you find the guest commentaries in the Suburban Journals generally interesting, or generally a waste of reader time? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question13 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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
%>
Generally interesting:
<% Response.Write q13ap %>%
A waste of reader time:
<% Response.Write q13bp %>%
|
|
Do you think reporting in the Suburban Journals is better than reporting in other newspapers, worse than in other papers, or about the same? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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
%>
Better:
<% Response.Write q14ap %>%
Worse:
<% Response.Write q14bp %>%
About the same:
<% Response.Write q14cp %>%
|
|
Do you agree with the Suburban Journals' highly publicized decision not to use the surname of the adult associated with a cruel Internet hoax that may have led to the suicide of a despondent local teenager because naming them would have revealed the name of the hoaxer's minor child? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question15 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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 %>%
|
|
Which of the following statements best reflects your most strongly held opinion of the Suburban Journals? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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
%>
The Suburban Journals are an important source of community news because they cover people, events, and issues often overlooked by the St. Louis Post-Dispatch:
<% Response.Write q16ap %>%
The Suburban Journals should not be delivered free to households because some people don't want them and they litter neighborhoods; they should be distributed in kiosks so that only those who wish to read them take them:
<% Response.Write q16bp %>%
The Suburban Journals cover mostly trivial events that I am not interested in reading:
<% Response.Write q16cp %>%
|
|
Do you read the Suburban Journals online? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question17 FROM minipoll WHERE pollName='20080124suburban' 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='20080124suburban' 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='20080124suburban' 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
%>
Yes, sometimes:
<% Response.Write q17ap %>%
Yes, always:
<% Response.Write q17bp %>%
No:
<% Response.Write q17cp %>%
|
|