<% 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" %>
[ Mini Polls Homepage ]
<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/minipoll4.mdb")) %>

Current Totals:

<% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM minipoll WHERE pollName='20080619stock'" rs.Open sql, conn total = 0 do while rs.EOF = False rs.MoveNext total = total + 1 Loop total = total + 1000 %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM minipoll WHERE pollName='20080619stock' AND Question1>''" rs.Open sql, conn total1 = 0 do while rs.EOF = False rs.MoveNext total1 = total1 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM minipoll WHERE pollName='20080619stock' AND Question2>''" rs.Open sql, conn total2 = 0 do while rs.EOF = False rs.MoveNext total2 = total2 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM minipoll WHERE pollName='20080619stock' AND Question2>'' AND Question1='A'" rs.Open sql, conn total2a = 0 do while rs.EOF = False rs.MoveNext total2a = total2a + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM minipoll WHERE pollName='20080619stock' AND Question2>'' AND Question1='B'" rs.Open sql, conn total2b = 0 do while rs.EOF = False rs.MoveNext total2b = total2b + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM minipoll WHERE pollName='20080619stock' AND Question3>''" rs.Open sql, conn total3 = 0 do while rs.EOF = False rs.MoveNext total3 = total3 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM minipoll WHERE pollName='20080619stock' AND Question3>'' AND Question1='A'" rs.Open sql, conn total3a = 0 do while rs.EOF = False rs.MoveNext total3a = total3a + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM minipoll WHERE pollName='20080619stock' AND Question3>'' AND Question1='B'" rs.Open sql, conn total3b = 0 do while rs.EOF = False rs.MoveNext total3b = total3b + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM minipoll WHERE pollName='20080619stock' AND Question4>''" rs.Open sql, conn total4 = 0 do while rs.EOF = False rs.MoveNext total4 = total4 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM minipoll WHERE pollName='20080619stock' AND Question4>'' AND Question1='A'" rs.Open sql, conn total4a = 0 do while rs.EOF = False rs.MoveNext total4a = total4a + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM minipoll WHERE pollName='20080619stock' AND Question4>'' AND Question1='B'" rs.Open sql, conn total4b = 0 do while rs.EOF = False rs.MoveNext total4b = total4b + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM minipoll WHERE pollName='20080619stock' AND Question5>''" rs.Open sql, conn total5 = 0 do while rs.EOF = False rs.MoveNext total5 = total5 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question6 FROM minipoll WHERE pollName='20080619stock' AND Question6>''" rs.Open sql, conn total6 = 0 do while rs.EOF = False rs.MoveNext total6 = total6 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question7 FROM minipoll WHERE pollName='20080619stock' AND Question7>''" rs.Open sql, conn total7 = 0 do while rs.EOF = False rs.MoveNext total7 = total7 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question8 FROM minipoll WHERE pollName='20080619stock' AND Question8>''" rs.Open sql, conn total8 = 0 do while rs.EOF = False rs.MoveNext total8 = total8 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question9 FROM minipoll WHERE pollName='20080619stock' AND Question9>''" rs.Open sql, conn total9 = 0 do while rs.EOF = False rs.MoveNext total9 = total9 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question10 FROM minipoll WHERE pollName='20080619stock' AND Question10>''" rs.Open sql, conn total10 = 0 do while rs.EOF = False rs.MoveNext total10 = total10 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question11 FROM minipoll WHERE pollName='20080619stock' AND Question11>''" rs.Open sql, conn total11 = 0 do while rs.EOF = False rs.MoveNext total11 = total11 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question12 FROM minipoll WHERE pollName='20080619stock' AND Question12>''" rs.Open sql, conn total12 = 0 do while rs.EOF = False rs.MoveNext total12 = total12 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question12 FROM minipoll WHERE pollName='20080619stock' AND Question12>'' AND Question1='A'" rs.Open sql, conn total12a = 0 do while rs.EOF = False rs.MoveNext total12a = total12a + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question12 FROM minipoll WHERE pollName='20080619stock' AND Question12>'' AND Question1='B'" rs.Open sql, conn total12b = 0 do while rs.EOF = False rs.MoveNext total12b = total12b + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question13 FROM minipoll WHERE pollName='20080619stock' AND Question13>''" rs.Open sql, conn total13 = 0 do while rs.EOF = False rs.MoveNext total13 = total13 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question14 FROM minipoll WHERE pollName='20080619stock' AND Question14>''" rs.Open sql, conn total14 = 0 do while rs.EOF = False rs.MoveNext total14 = total14 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question14 FROM minipoll WHERE pollName='20080619stock' AND Question14>'' AND Question13<>'D'" rs.Open sql, conn total14a = 0 do while rs.EOF = False rs.MoveNext total14a = total14a + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question14 FROM minipoll WHERE pollName='20080619stock' AND Question14>'' AND Question13='D'" rs.Open sql, conn total14b = 0 do while rs.EOF = False rs.MoveNext total14b = total14b + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question15 FROM minipoll WHERE pollName='20080619stock' AND Question15>''" rs.Open sql, conn total15 = 0 do while rs.EOF = False rs.MoveNext total15 = total15 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question16 FROM minipoll WHERE pollName='20080619stock' AND Question16>''" rs.Open sql, conn total16 = 0 do while rs.EOF = False rs.MoveNext total16 = total16 + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question16 FROM minipoll WHERE pollName='20080619stock' AND Question16>'' AND Question13<>'D'" rs.Open sql, conn total16a = 0 do while rs.EOF = False rs.MoveNext total16a = total16a + 1 Loop %> <% set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question16 FROM minipoll WHERE pollName='20080619stock' AND Question16>'' AND Question13='D'" rs.Open sql, conn total16b = 0 do while rs.EOF = False rs.MoveNext total16b = total16b + 1 Loop %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %> <% 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 %>

Are you a bull or a bear?

Bull:
 <% Response.Write q1ap %>%
Bear:
 <% Response.Write q1bp %>%

 

Do you think that 2008 will be an average year for the US stock market?

Above average:
 <% Response.Write q2ap %>%
Average:
 <% Response.Write q2bp %>%
Below average:
 <% Response.Write q2cp %>%

 

<% 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 %>

Bull

Bear

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?

Higher:
 <% Response.Write q3ap %>%
Lower:
 <% Response.Write q3bp %>%
About the same:
 <% Response.Write q3cp %>%

 

<% 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 %>

Bull

Bear

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?

Yes:
 <% Response.Write q4ap %>%
No:
 <% Response.Write q4bp %>%

 

<% 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 %>

Bull

Bear

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?

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?

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?

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?

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?

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?

Have confidence:
 <% Response.Write q10ap %>%
Do not have confidence:
 <% Response.Write q10bp %>%

 

Do you have a professional financial adviser?

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?

John McCain:
 <% Response.Write q12ap %>%
Barack Obama:
 <% Response.Write q12bp %>%

 

<% 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 %>

Bull

Bear

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?

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?

Yes:
 <% Response.Write q14ap %>%
Yes, if the price is right:
 <% Response.Write q14bp %>%
No:
 <% Response.Write q14cp %>%

 

<% 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 %>

Own A-B Stock

Do Not Own A-B Stock

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?

Yes:
 <% Response.Write q15ap %>%
No:
 <% Response.Write q15bp %>%

 

Do you think that Belgian-based InBev will end up owning St. Louis-based Anheuser-Busch?

Yes, and soon:
 <% Response.Write q16ap %>%
Yes, eventually:
 <% Response.Write q16bp %>%
No:
 <% Response.Write q16cp %>%

 

<% 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 %>

Own A-B Stock

Do Not Own A-B Stock

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 %>

Note: Due to rounding, results for some questions may not total 100%.


<% Response.Write total %>