%
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: Taking Stock In St. Louis Stock"
%>
Are you a bull or a bear? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question1 FROM minipoll WHERE pollName='20080619stock' 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='20080619stock' 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
%>
Bull:
<% Response.Write q1ap %>%
Bear:
<% Response.Write q1bp %>%
|
|
Do you think that 2008 will be an average year for the US stock market?
|
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20080619stock' 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='20080619stock' 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='20080619stock' 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
%>
Above average:
<% Response.Write q2ap %>%
Average:
<% Response.Write q2bp %>%
Below average:
<% Response.Write q2cp %>%
|
|
Bull | Bear |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20080619stock' AND Question1='A' AND Question2='A'"
rs.Open sql, conn
q2aa = 0
do while rs.EOF = False
rs.MoveNext
q2aa = q2aa + 1
q2aap = Round((q2aa / total2a)*100)
Loop
if q2aap = "" then q2aap = 0
q2aapw = q2aap
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20080619stock' AND Question1='A' AND Question2='B'"
rs.Open sql, conn
q2ab = 0
do while rs.EOF = False
rs.MoveNext
q2ab = q2ab + 1
q2abp = Round((q2ab / total2a)*100)
Loop
if q2abp = "" then q2abp = 0
q2abpw = q2abp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20080619stock' AND Question1='A' AND Question2='C'"
rs.Open sql, conn
q2ac = 0
do while rs.EOF = False
rs.MoveNext
q2ac = q2ac + 1
q2acp = Round((q2ac / total2a)*100)
Loop
if q2acp = "" then q2acp = 0
q2acpw = q2acp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20080619stock' AND Question1='B' AND Question2='A'"
rs.Open sql, conn
q2ba = 0
do while rs.EOF = False
rs.MoveNext
q2ba = q2ba + 1
q2bap = Round((q2ba / total2b)*100)
Loop
if q2bap = "" then q2bap = 0
q2bapw = q2bap
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20080619stock' AND Question1='B' AND Question2='B'"
rs.Open sql, conn
q2bb = 0
do while rs.EOF = False
rs.MoveNext
q2bb = q2bb + 1
q2bbp = Round((q2bb / total2b)*100)
Loop
if q2bbp = "" then q2bbp = 0
q2bbpw = q2bbp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question2 FROM minipoll WHERE pollName='20080619stock' AND Question1='B' AND Question2='C'"
rs.Open sql, conn
q2bc = 0
do while rs.EOF = False
rs.MoveNext
q2bc = q2bc + 1
q2bcp = Round((q2bc / total2b)*100)
Loop
if q2bcp = "" then q2bcp = 0
q2bcpw = q2bcp
%>
Above average:
<% Response.Write q2aap %>%
Average:
<% Response.Write q2abp %>%
Below average:
<% Response.Write q2acp %>%
|
Above average:
<% Response.Write q2bap %>%
Average:
<% Response.Write q2bbp %>%
Below average:
<% Response.Write q2bcp %>%
|
|
|
Over the last ten years, the US stock market has risen an average of almost seven percent annually. Thinking ahead to the next ten years, do you expect the annual return of the stock market will be higher, lower, or about the same as it was over the last ten years? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080619stock' 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='20080619stock' 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='20080619stock' 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
%>
Higher:
<% Response.Write q3ap %>%
Lower:
<% Response.Write q3bp %>%
About the same:
<% Response.Write q3cp %>%
|
|
Bull | Bear |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080619stock' AND Question1='A' AND Question3='A'"
rs.Open sql, conn
q3aa = 0
do while rs.EOF = False
rs.MoveNext
q3aa = q3aa + 1
q3aap = Round((q3aa / total3a)*100)
Loop
if q3aap = "" then q3aap = 0
q3aapw = q3aap
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080619stock' AND Question1='A' AND Question3='B'"
rs.Open sql, conn
q3ab = 0
do while rs.EOF = False
rs.MoveNext
q3ab = q3ab + 1
q3abp = Round((q3ab / total3a)*100)
Loop
if q3abp = "" then q3abp = 0
q3abpw = q3abp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080619stock' AND Question1='A' AND Question3='C'"
rs.Open sql, conn
q3ac = 0
do while rs.EOF = False
rs.MoveNext
q3ac = q3ac + 1
q3acp = Round((q3ac / total3a)*100)
Loop
if q3acp = "" then q3acp = 0
q3acpw = q3acp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080619stock' AND Question1='B' AND Question3='A'"
rs.Open sql, conn
q3ba = 0
do while rs.EOF = False
rs.MoveNext
q3ba = q3ba + 1
q3bap = Round((q3ba / total3b)*100)
Loop
if q3bap = "" then q3bap = 0
q3bapw = q3bap
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080619stock' AND Question1='B' AND Question3='B'"
rs.Open sql, conn
q3bb = 0
do while rs.EOF = False
rs.MoveNext
q3bb = q3bb + 1
q3bbp = Round((q3bb / total3b)*100)
Loop
if q3bbp = "" then q3bbp = 0
q3bbpw = q3bbp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question3 FROM minipoll WHERE pollName='20080619stock' AND Question1='B' AND Question3='C'"
rs.Open sql, conn
q3bc = 0
do while rs.EOF = False
rs.MoveNext
q3bc = q3bc + 1
q3bcp = Round((q3bc / total3b)*100)
Loop
if q3bcp = "" then q3bcp = 0
q3bcpw = q3bcp
%>
Higher:
<% Response.Write q3aap %>%
Lower:
<% Response.Write q3abp %>%
About the same:
<% Response.Write q3acp %>%
|
Higher:
<% Response.Write q3bap %>%
Lower:
<% Response.Write q3bbp %>%
About the same:
<% Response.Write q3bcp %>%
|
|
|
Do you personally – or jointly with your spouse – have any money invested in the stock market, either in individual stock or in a mutual fund? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20080619stock' 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='20080619stock' 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
%>
Yes:
<% Response.Write q4ap %>%
No:
<% Response.Write q4bp %>%
|
|
Bull | Bear |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20080619stock' AND Question1='A' AND Question4='A'"
rs.Open sql, conn
q4aa = 0
do while rs.EOF = False
rs.MoveNext
q4aa = q4aa + 1
q4aap = Round((q4aa / total4a)*100)
Loop
if q4aap = "" then q4aap = 0
q4aapw = q4aap
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20080619stock' AND Question1='A' AND Question4='B'"
rs.Open sql, conn
q4ab = 0
do while rs.EOF = False
rs.MoveNext
q4ab = q4ab + 1
q4abp = Round((q4ab / total4a)*100)
Loop
if q4abp = "" then q4abp = 0
q4abpw = q4abp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20080619stock' AND Question1='B' AND Question4='A'"
rs.Open sql, conn
q4ba = 0
do while rs.EOF = False
rs.MoveNext
q4ba = q4ba + 1
q4bap = Round((q4ba / total4b)*100)
Loop
if q4bap = "" then q4bap = 0
q4bapw = q4bap
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question4 FROM minipoll WHERE pollName='20080619stock' AND Question1='B' AND Question4='B'"
rs.Open sql, conn
q4bb = 0
do while rs.EOF = False
rs.MoveNext
q4bb = q4bb + 1
q4bbp = Round((q4bb / total4b)*100)
Loop
if q4bbp = "" then q4bbp = 0
q4bbpw = q4bbp
%>
Yes:
<% Response.Write q4aap %>%
No:
<% Response.Write q4abp %>%
|
Yes:
<% Response.Write q4bap %>%
No:
<% Response.Write q4bbp %>%
|
|
|
Regardless of whether you own any stock yourself, do you think now is a good time to buy stock? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question5 FROM minipoll WHERE pollName='20080619stock' 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='20080619stock' 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='20080619stock' 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
%>
Good time:
<% Response.Write q5ap %>%
Bad time:
<% Response.Write q5bp %>%
Neither a good time nor a bad time:
<% Response.Write q5cp %>%
|
|
From what you know, which area of the world offers the best investment climate over the next twelve months? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM minipoll WHERE pollName='20080619stock' 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='20080619stock' 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='20080619stock' 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
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question6 FROM minipoll WHERE pollName='20080619stock' AND Question6='D'"
rs.Open sql, conn
q6d = 0
do while rs.EOF = False
rs.MoveNext
q6d = q6d + 1
q6dp = Round((q6d / total6)*100)
Loop
if q6dp = "" then q6dp = 0
q6dpw = q6dp * 2
%>
United States:
<% Response.Write q6ap %>%
Asia:
<% Response.Write q6bp %>%
Europe:
<% Response.Write q6cp %>%
Emerging markets, like Brazil and Thailand:
<% Response.Write q6dp %>%
|
|
Do you think that, in general, investing in the stock market is a sound financial decision or a risky one? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question7 FROM minipoll WHERE pollName='20080619stock' 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='20080619stock' 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
%>
Good financial decision:
<% Response.Write q7ap %>%
Risky financial decision:
<% Response.Write q7bp %>%
|
|
Which of the following products do you most wish you owned stock in right now? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question8 FROM minipoll WHERE pollName='20080619stock' 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='20080619stock' 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='20080619stock' 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='20080619stock' 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='20080619stock' 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='20080619stock' 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
%>
Beer:
<% Response.Write q8ap %>%
Bears:
<% Response.Write q8bp %>%
Building products:
<% Response.Write q8cp %>%
Broadband:
<% Response.Write q8dp %>%
Batteries:
<% Response.Write q8ep %>%
Barrels of oil:
<% Response.Write q8fp %>%
|
|
If you had a thousand dollars to spend, do you think investing it in the stock market would be a good idea right now? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question9 FROM minipoll WHERE pollName='20080619stock' 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='20080619stock' 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 %>%
|
|
When it comes to financial information that major stock brokerage firms and corporations provide to the public, do you have confidence that the information is straightforward and an honest analysis? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question10 FROM minipoll WHERE pollName='20080619stock' 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='20080619stock' 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
%>
Have confidence:
<% Response.Write q10ap %>%
Do not have confidence:
<% Response.Write q10bp %>%
|
|
Do you have a professional financial adviser? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question11 FROM minipoll WHERE pollName='20080619stock' 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='20080619stock' 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
%>
Yes, I have people:
<% Response.Write q11ap %>%
No, I rely solely on my own research:
<% Response.Write q11bp %>%
|
|
From which of the major presidential candidates do you think you would get better investment advice? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20080619stock' 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='20080619stock' 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
%>
John McCain:
<% Response.Write q12ap %>%
Barack Obama:
<% Response.Write q12bp %>%
|
|
Bull | Bear |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20080619stock' AND Question1='A' AND Question12='A'"
rs.Open sql, conn
q12aa = 0
do while rs.EOF = False
rs.MoveNext
q12aa = q12aa + 1
q12aap = Round((q12aa / total12a)*100)
Loop
if q12aap = "" then q12aap = 0
q12aapw = q12aap
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20080619stock' AND Question1='A' AND Question12='B'"
rs.Open sql, conn
q12ab = 0
do while rs.EOF = False
rs.MoveNext
q12ab = q12ab + 1
q12abp = Round((q12ab / total12a)*100)
Loop
if q12abp = "" then q12abp = 0
q12abpw = q12abp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20080619stock' AND Question1='B' AND Question12='A'"
rs.Open sql, conn
q12ba = 0
do while rs.EOF = False
rs.MoveNext
q12ba = q12ba + 1
q12bap = Round((q12ba / total12b)*100)
Loop
if q12bap = "" then q12bap = 0
q12bapw = q12bap
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question12 FROM minipoll WHERE pollName='20080619stock' AND Question1='B' AND Question12='B'"
rs.Open sql, conn
q12bb = 0
do while rs.EOF = False
rs.MoveNext
q12bb = q12bb + 1
q12bbp = Round((q12bb / total12b)*100)
Loop
if q12bbp = "" then q12bbp = 0
q12bbpw = q12bbp
%>
John McCain:
<% Response.Write q12aap %>%
Barack Obama:
<% Response.Write q12abp %>%
|
John McCain:
<% Response.Write q12bap %>%
Barack Obama:
<% Response.Write q12bbp %>%
|
|
|
Do you own any stock in Anheuser-Busch, either directly or in a mutual fund? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question13 FROM minipoll WHERE pollName='20080619stock' 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='20080619stock' 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='20080619stock' 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='20080619stock' 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
%>
Yes, directly:
<% Response.Write q13ap %>%
Yes, through a mutual fund:
<% Response.Write q13bp %>%
Yes, both directly and through a mutual fund:
<% Response.Write q13cp %>%
No:
<% Response.Write q13dp %>%
|
Should Anheuser-Busch agree to a buy-out offer from a foreign company? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20080619stock' 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='20080619stock' 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='20080619stock' 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 %>%
Yes, if the price is right:
<% Response.Write q14bp %>%
No:
<% Response.Write q14cp %>%
|
|
Own A-B Stock | Do Not Own A-B Stock |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20080619stock' AND Question13<>'D' AND Question14='A'"
rs.Open sql, conn
q14aa = 0
do while rs.EOF = False
rs.MoveNext
q14aa = q14aa + 1
q14aap = Round((q14aa / total14a)*100)
Loop
if q14aap = "" then q14aap = 0
q14aapw = q14aap
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20080619stock' AND Question13<>'D' AND Question14='B'"
rs.Open sql, conn
q14ab = 0
do while rs.EOF = False
rs.MoveNext
q14ab = q14ab + 1
q14abp = Round((q14ab / total14a)*100)
Loop
if q14abp = "" then q14abp = 0
q14abpw = q14abp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20080619stock' AND Question13<>'D' AND Question14='C'"
rs.Open sql, conn
q14ac = 0
do while rs.EOF = False
rs.MoveNext
q14ac = q14ac + 1
q14acp = Round((q14ac / total14a)*100)
Loop
if q14acp = "" then q14acp = 0
q14acpw = q14acp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20080619stock' AND Question13='D' AND Question14='A'"
rs.Open sql, conn
q14ba = 0
do while rs.EOF = False
rs.MoveNext
q14ba = q14ba + 1
q14bap = Round((q14ba / total14b)*100)
Loop
if q14bap = "" then q14bap = 0
q14bapw = q14bap
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20080619stock' AND Question13='D' AND Question14='B'"
rs.Open sql, conn
q14bb = 0
do while rs.EOF = False
rs.MoveNext
q14bb = q14bb + 1
q14bbp = Round((q14bb / total14b)*100)
Loop
if q14bbp = "" then q14bbp = 0
q14bbpw = q14bbp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question14 FROM minipoll WHERE pollName='20080619stock' AND Question13='D' AND Question14='C'"
rs.Open sql, conn
q14bc = 0
do while rs.EOF = False
rs.MoveNext
q14bc = q14bc + 1
q14bcp = Round((q14bc / total14b)*100)
Loop
if q14bcp = "" then q14bcp = 0
q14bcpw = q14bcp
%>
Yes:
<% Response.Write q14aap %>%
Yes, if the price is right:
<% Response.Write q14abp %>%
No:
<% Response.Write q14acp %>%
|
Yes:
<% Response.Write q14bap %>%
Yes, if the price is right:
<% Response.Write q14bbp %>%
No:
<% Response.Write q14bcp %>%
|
| |
Do you plan to sign one of the petitions, like SaveAB.com, urging Anheuser-Busch board members to reject the current InBev offer? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question15 FROM minipoll WHERE pollName='20080619stock' 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='20080619stock' 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 think that Belgian-based InBev will end up owning St. Louis-based Anheuser-Busch? |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20080619stock' 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='20080619stock' 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='20080619stock' 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
%>
Yes, and soon:
<% Response.Write q16ap %>%
Yes, eventually:
<% Response.Write q16bp %>%
No:
<% Response.Write q16cp %>%
|
|
Own A-B Stock | Do Not Own A-B Stock |
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20080619stock' AND Question13<>'D' AND Question16='A'"
rs.Open sql, conn
q16aa = 0
do while rs.EOF = False
rs.MoveNext
q16aa = q16aa + 1
q16aap = Round((q16aa / total16a)*100)
Loop
if q16aap = "" then q16aap = 0
q16aapw = q16aap
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20080619stock' AND Question13<>'D' AND Question16='B'"
rs.Open sql, conn
q16ab = 0
do while rs.EOF = False
rs.MoveNext
q16ab = q16ab + 1
q16abp = Round((q16ab / total16a)*100)
Loop
if q16abp = "" then q16abp = 0
q16abpw = q16abp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20080619stock' AND Question13<>'D' AND Question16='C'"
rs.Open sql, conn
q16ac = 0
do while rs.EOF = False
rs.MoveNext
q16ac = q16ac + 1
q16acp = Round((q16ac / total16a)*100)
Loop
if q16acp = "" then q16acp = 0
q16acpw = q16acp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20080619stock' AND Question13='D' AND Question16='A'"
rs.Open sql, conn
q16ba = 0
do while rs.EOF = False
rs.MoveNext
q16ba = q16ba + 1
q16bap = Round((q16ba / total16b)*100)
Loop
if q16bap = "" then q16bap = 0
q16bapw = q16bap
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20080619stock' AND Question13='D' AND Question16='B'"
rs.Open sql, conn
q16bb = 0
do while rs.EOF = False
rs.MoveNext
q16bb = q16bb + 1
q16bbp = Round((q16bb / total16b)*100)
Loop
if q16bbp = "" then q16bbp = 0
q16bbpw = q16bbp
%>
<%
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Question16 FROM minipoll WHERE pollName='20080619stock' AND Question13='D' AND Question16='C'"
rs.Open sql, conn
q16bc = 0
do while rs.EOF = False
rs.MoveNext
q16bc = q16bc + 1
q16bcp = Round((q16bc / total16b)*100)
Loop
if q16bcp = "" then q16bcp = 0
q16bcpw = q16bcp
%>
Yes, and soon:
<% Response.Write q16aap %>%
Yes, eventually:
<% Response.Write q16abp %>%
No:
<% Response.Write q16acp %>%
|
Yes, and soon:
<% Response.Write q16bap %>%
Yes, eventually:
<% Response.Write q16bbp %>%
No:
<% Response.Write q16bcp %>%
|
| |
| | |
<% RS.Close
Conn.Close %>