<% 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, evolution, monkeys, intelligent design, scopes monkey trial, creationism, bananas" dim section section = "Mini Poll: Monkey's Uncle" %>
[ Mini Polls Homepage ]

Current Totals:

<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/092205monkeys.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM uncle" 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/092205monkeys.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM uncle WHERE Question1>''" rs.Open sql, conn total1 = 0 do while rs.EOF = False rs.MoveNext total1 = total1 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/092205monkeys.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM uncle WHERE Question2>''" rs.Open sql, conn total2 = 0 do while rs.EOF = False rs.MoveNext total2 = total2 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/092205monkeys.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM uncle WHERE Question3>''" rs.Open sql, conn total3 = 0 do while rs.EOF = False rs.MoveNext total3 = total3 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/092205monkeys.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM uncle WHERE Question4>''" rs.Open sql, conn total4 = 0 do while rs.EOF = False rs.MoveNext total4 = total4 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/092205monkeys.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM uncle WHERE Question5>''" rs.Open sql, conn total5 = 0 do while rs.EOF = False rs.MoveNext total5 = total5 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/092205monkeys.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question6 FROM uncle WHERE Question6>''" rs.Open sql, conn total6 = 0 do while rs.EOF = False rs.MoveNext total6 = total6 + 1 Loop %>

Some people think that humans and other living things have evolved over time, either due to natural processes or guided by design for the purpose of creating humans and other life in the form that it exists today. Others think that human and other living things have existed in their present form since the beginning of time. Which of these comes closest to your view?


Humans and other living things have evolved due to natural processes:


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

An intelligent design guided the evolution of living things for a purpose:


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

Humans and other living things existed in their present form since the beginning of time:


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

 

How certain are you about this?


Very certain:


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

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

Fairly certain:


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

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

Not too certain:


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

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

Not at all certain:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/092205monkeys.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM uncle WHERE Question2='NotAtAll'" rs.Open sql, conn q2d = 0 do while rs.EOF = False rs.MoveNext q2d = q2d + 1 q2dp = Round((q2d / total2)*100) Loop if q2dp = "" then q2dp = 0 q2dpw = q2dp * 2 %>

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

 

From what you've heard or read is there general agreement among scientists that humans evolved over time, or not?


Yes, there is agreement among scientists on this subject:


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

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

No, there is not agreement among scientists on this subject:


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

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

 

Would you generally favor or oppose teaching creationism, including intelligent design, instead of evolution in public schools?


Favor:


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

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

Oppose:


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

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

 

Would you generally favor or oppose teaching creationism, including intelligent design, along with evolution in public schools?


Favor:


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

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

Oppose:


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

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

 

Who should have the primary responsibility for deciding how evolution is taught in Missouri's public schools ­ scientists and science teachers; parents; state or local school boards; or the Missouri General Assembly?


Scientists and science teachers:


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

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

Parents:


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

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

State school board:


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

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

Local school boards:


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

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

The Missouri General Assembly:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/092205monkeys.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question6 FROM uncle WHERE Question6='General'" rs.Open sql, conn q6e = 0 do while rs.EOF = False rs.MoveNext q6e = q6e + 1 q6ep = Round((q6e / total6)*100) Loop if q6ep = "" then q6ep = 0 q6epw = q6ep * 2 %>

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

 

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


<% Response.Write total %>