<% 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, first car, automobiles, cars, matt blunt" dim section section = "Mini Poll: My First Car" %>
[ Mini Polls Homepage ]

Current Totals:

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

How old were you when you got your first car — just old enough to drive, just old enough to be away from home, or some other time?


I got my first car around the time I got my license:


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

I got my first car around the time I moved away from home:


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

I got my first car around the time I got my first job:


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

I'm still hoping to get my first car:


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

 

How did you pay for your first car?


My parents or grandparents paid for all of it:


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

My parents or grandparents paid for most of it:


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

I paid for all of it:


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

It was an heirloom: another family member had it first:


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

 

Which best describes your first car?


It was beat up, but all mine:


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

It was brand new, but all mine:


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

It was slightly used, but all mine:


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

 

What was the best thing about getting that first car?


I could go anyplace I wanted to go:


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

I had more privacy:


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

I had a machine I could work on:


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

Most of my friends already had cars:


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

 

What was your favorite accessory in that first car?


The cup holder:


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

The ash tray:


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

The music system:


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

The cruise control:


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

You'll never guess:


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

 

What predominant color was your first car?


A primary color like red, yellow or blue:


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

A basic color like black, gray, or white:


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

A wild color like purple, green, or orange:


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

A mercantile color like gold, copper, or silver:


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

It was pink.  Shut up.:


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

 

How long did you have your first car — if you still have it, how long have you had it?


Less than a year:


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

Between one and five years:


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

Between six and ten years:


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

More than ten years:


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

 

What happened to your first car?


I wrecked it:


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

It was stolen:


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

It disintegrated:


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

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

I sold or traded it:


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

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

I still have it:


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

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

 

How many cars have you owned in your driving life?


Just one:


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

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

2-5:


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

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

6-10:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/111705firstcar.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question9 FROM firstcar WHERE Question9='Ten'" rs.Open sql, conn q9c = 0 do while rs.EOF = False rs.MoveNext q9c = q9c + 1 q9cp = Round((q9c / total9)*100) Loop if q9cp = "" then q9cp = 0 q9cpw = q9cp * 2 %>

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

More than 10:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/111705firstcar.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question9 FROM firstcar WHERE Question9='More'" rs.Open sql, conn q9d = 0 do while rs.EOF = False rs.MoveNext q9d = q9d + 1 q9dp = Round((q9d / total9)*100) Loop if q9dp = "" then q9dp = 0 q9dpw = q9dp * 2 %>

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

I have never owned a car, and I have been making the rest of the answers up:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/111705firstcar.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question9 FROM firstcar WHERE Question9='Never'" rs.Open sql, conn q9e = 0 do while rs.EOF = False rs.MoveNext q9e = q9e + 1 q9ep = Round((q9e / total9)*100) Loop if q9ep = "" then q9ep = 0 q9epw = q9ep * 2 %>

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

 

Bonus Question

If Missouri Gov. Matt Blunt were a car, he'd be:


A Ford F-150 SVT Lightning pickup with a gun rack:


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

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

An SUV with a Bush/Cheney bumper sticker:


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

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

A reliable family sedan with a car seat:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/111705firstcar.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question10 FROM firstcar WHERE Question10='Sedan'" rs.Open sql, conn q10c = 0 do while rs.EOF = False rs.MoveNext q10c = q10c + 1 q10cp = Round((q10c / total10)*100) Loop if q10cp = "" then q10cp = 0 q10cpw = q10cp * 2 %>

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

An ethanol-burning hybrid:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/111705firstcar.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question10 FROM firstcar WHERE Question10='Hybrid'" rs.Open sql, conn q10d = 0 do while rs.EOF = False rs.MoveNext q10d = q10d + 1 q10dp = Round((q10d / total10)*100) Loop if q10dp = "" then q10dp = 0 q10dpw = q10dp * 2 %>

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

A concept car, with great promise for the future:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/111705firstcar.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question10 FROM firstcar WHERE Question10='Concept'" rs.Open sql, conn q10e = 0 do while rs.EOF = False rs.MoveNext q10e = q10e + 1 q10ep = Round((q10e / total10)*100) Loop if q10ep = "" then q10ep = 0 q10epw = q10ep * 2 %>

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

A stretch limo:


 <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/111705firstcar.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Question10 FROM firstcar WHERE Question10='Limo'" rs.Open sql, conn q10f = 0 do while rs.EOF = False rs.MoveNext q10f = q10f + 1 q10fp = Round((q10f / total10)*100) Loop if q10fp = "" then q10fp = 0 q10fpw = q10fp * 2 %>

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

 

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


<% Response.Write total %>