<% 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, MLK bridge, colors, Mississippi River, bridges" dim section section = "Mini Poll: See Span" %>
[ Mini Polls Homepage ]

Current Totals:

<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/082505bridge.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM bridge" rs.Open sql, conn total = 0 do while rs.EOF = False rs.MoveNext total = total + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/082505bridge.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM bridge WHERE Question1>''" rs.Open sql, conn total1 = 0 do while rs.EOF = False rs.MoveNext total1 = total1 + 1 Loop %>

What color should the MLK Bridge have been painted?


MLK Bridge in Original Color

Original:

 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/082505bridge.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM bridge WHERE Question1='Original'" 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 %>

 <% Response.Write q1ap & "%" %>

MLK Bridge in Blue

Blue:

 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/082505bridge.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM bridge WHERE Question1='Blue'" 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 %>

 <% Response.Write q1bp & "%" %>

MLK Bridge in Red

Red:

 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/082505bridge.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM bridge WHERE Question1='red'" 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 %>

 <% Response.Write q1cp & "%" %>

MLK Bridge in Yellow

Yellow:

 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/082505bridge.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM bridge WHERE Question1='Yellow'" rs.Open sql, conn q1d = 0 do while rs.EOF = False rs.MoveNext q1d = q1d + 1 q1dp = Round((q1d / total1)*100) Loop if q1dp = "" then q1dp = 0 q1dpw = q1dp * 2 %>

 <% Response.Write q1dp & "%" %>

 

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


<% Response.Write total %>