<% 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, manners, polite, rude" dim section section = "Mini Poll: Miss(ing) Manners?" %>
[ Mini Polls Homepage ]

Current Totals:

<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT * FROM manners" 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/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question1 FROM manners 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/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM manners 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/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM manners 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/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM manners 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/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM manners 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/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question6 FROM manners WHERE Question6>''" rs.Open sql, conn total6 = 0 do while rs.EOF = False rs.MoveNext total6 = total6 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question7 FROM manners WHERE Question7>''" rs.Open sql, conn total7 = 0 do while rs.EOF = False rs.MoveNext total7 = total7 + 1 Loop %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question8 FROM manners WHERE Question8>''" rs.Open sql, conn total8 = 0 do while rs.EOF = False rs.MoveNext total8 = total8 + 1 Loop %>

Do you think that Americans are, as a group, more rude or less rude than people from other countries?


More rude:


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

Less rude:


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

About the same:


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

 

Do you believe that St. Louisans are, as a group, more rude or less rude than people from other cities?


A lot more rude:


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

Somewhat more rude:


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

Somewhat less rude:


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

Much less rude:


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

About the same as people from other cities:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question2 FROM manners WHERE Question2='Same'" rs.Open sql, conn q2e = 0 do while rs.EOF = False rs.MoveNext q2e = q2e + 1 q2ep = Round((q2e / total2)*100) Loop if q2ep = "" then q2ep = 0 q2epw = q2ep * 2 %>

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

 

If you could send one group of people off to an etiquette boot camp to improve their manners, who would you most likely send?


My own children or grandchildren:


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

Other people's children or grandchildren:


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

Telemarketers:


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

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

Waiters and waitresses:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM manners WHERE Question3='Waitri'" rs.Open sql, conn q3d = 0 do while rs.EOF = False rs.MoveNext q3d = q3d + 1 q3dp = Round((q3d / total3)*100) Loop if q3dp = "" then q3dp = 0 q3dpw = q3dp * 2 %>

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

Taxi drivers:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM manners WHERE Question3='Bickle'" rs.Open sql, conn q3e = 0 do while rs.EOF = False rs.MoveNext q3e = q3e + 1 q3ep = Round((q3e / total3)*100) Loop if q3ep = "" then q3ep = 0 q3epw = q3ep * 2 %>

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

Clerks in stores:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM manners WHERE Question3='Clerks'" rs.Open sql, conn q3f = 0 do while rs.EOF = False rs.MoveNext q3f = q3f + 1 q3fp = Round((q3f / total3)*100) Loop if q3fp = "" then q3fp = 0 q3fpw = q3fp * 2 %>

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

Radio talk show hosts:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM manners WHERE Question3='Radio'" rs.Open sql, conn q3g = 0 do while rs.EOF = False rs.MoveNext q3g = q3g + 1 q3gp = Round((q3g / total3)*100) Loop if q3gp = "" then q3gp = 0 q3gpw = q3gp * 2 %>

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

People with cell phones:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM manners WHERE Question3='Cell'" rs.Open sql, conn q3h = 0 do while rs.EOF = False rs.MoveNext q3h = q3h + 1 q3hp = Round((q3h / total3)*100) Loop if q3hp = "" then q3hp = 0 q3hpw = q3hp * 2 %>

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

Someone else:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question3 FROM manners WHERE Question3='Else'" rs.Open sql, conn q3i = 0 do while rs.EOF = False rs.MoveNext q3i = q3i + 1 q3ip = Round((q3i / total3)*100) Loop if q3ip = "" then q3ip = 0 q3ipw = q3ip * 2 %>

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

 

Which invention has caused the greatest amount of rudeness, intentional or otherwise?


Telephones:


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

Cell phones:


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

Earphones:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM manners WHERE Question4='Earphones'" rs.Open sql, conn q4c = 0 do while rs.EOF = False rs.MoveNext q4c = q4c + 1 q4cp = Round((q4c / total4)*100) Loop if q4cp = "" then q4cp = 0 q4cpw = q4cp * 2 %>

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

Car horns:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM manners WHERE Question4='Horns'" rs.Open sql, conn q4d = 0 do while rs.EOF = False rs.MoveNext q4d = q4d + 1 q4dp = Round((q4d / total4)*100) Loop if q4dp = "" then q4dp = 0 q4dpw = q4dp * 2 %>

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

Car alarms:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM manners WHERE Question4='Alarms'" rs.Open sql, conn q4e = 0 do while rs.EOF = False rs.MoveNext q4e = q4e + 1 q4ep = Round((q4e / total4)*100) Loop if q4ep = "" then q4ep = 0 q4epw = q4ep * 2 %>

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

Boom boxes:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM manners WHERE Question4='Boom'" rs.Open sql, conn q4f = 0 do while rs.EOF = False rs.MoveNext q4f = q4f + 1 q4fp = Round((q4f / total4)*100) Loop if q4fp = "" then q4fp = 0 q4fpw = q4fp * 2 %>

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

Bart Simpson, Beavis, and those Aqua Teens:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question4 FROM manners WHERE Question4='Bart'" rs.Open sql, conn q4g = 0 do while rs.EOF = False rs.MoveNext q4g = q4g + 1 q4gp = Round((q4g / total4)*100) Loop if q4gp = "" then q4gp = 0 q4gpw = q4gp * 2 %>

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

 

Where did you learn your manners?


At home from my parents or grandparents:


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

At school from my teachers:


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

From a book:


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

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

From TV and movies:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM manners WHERE Question5='TV'" rs.Open sql, conn q5d = 0 do while rs.EOF = False rs.MoveNext q5d = q5d + 1 q5dp = Round((q5d / total5)*100) Loop if q5dp = "" then q5dp = 0 q5dpw = q5dp * 2 %>

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

In the military:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM manners WHERE Question5='Military'" rs.Open sql, conn q5e = 0 do while rs.EOF = False rs.MoveNext q5e = q5e + 1 q5ep = Round((q5e / total5)*100) Loop if q5ep = "" then q5ep = 0 q5epw = q5ep * 2 %>

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

At work:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM manners WHERE Question5='Work'" rs.Open sql, conn q5f = 0 do while rs.EOF = False rs.MoveNext q5f = q5f + 1 q5fp = Round((q5f / total5)*100) Loop if q5fp = "" then q5fp = 0 q5fpw = q5fp * 2 %>

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

Somewhere else:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/121505manners.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question5 FROM manners WHERE Question5='Else'" rs.Open sql, conn q5g = 0 do while rs.EOF = False rs.MoveNext q5g = q5g + 1 q5gp = Round((q5g / total5)*100) Loop if q5gp = "" then q5gp = 0 q5gpw = q5gp * 2 %>

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

 

Which is the most annoying rude gesture?


The eye roll:


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

The Jerry Springer hand-in-your-face:


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

The middle finger:


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

The spoken phrase "whatever":


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

Something else:


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

 

Which word/s would you most like to see more of?


"Please":


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

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

"Thanks":


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

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

"Sir/Ma'am":


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

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

"Sorry":


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

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

"Excuse me":


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

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

"Shut up":


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

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

 

Bonus Question:

Do you think that Missouri's new law allowing some citizens to carry concealed weapons has improved manners in the state?


Yes:


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

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

No:


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

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

 

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


<% Response.Write total %>