OnTheIssues.org VoteMatch quiz
<% Dim DBConn, rs, temprs, CurrThreadLevel, SQLText '' Intialize the Database connection Set DBConn=Server.CreateObject("ADODB.Connection") DBConn.Open "vm_dsn" Set rs=Server.CreateObject("ADODB.Recordset") SQLText = "SELECT QuestionID, LookupID, QuestionText FROM VoteMatch2006 ORDER BY QuestionID " rs.Open SQLText, DBConn dim the_QuestionText, the_LookupID, the_QuestionID dim sec0, sec1, sec2, sec3, sec4 sec0 = "_a" '' Which button to light up? %>

VoteMatch Quiz

Select the set of candidates, then answer the 20 questions,
and you'll get compared to those candidates.
For the Senate, click the circle on the left then pick a state.

name="quiz" type="radio" value="Poli">Political Philosophy

<% While Not(rs.EOF) the_QuestionText = rs("QuestionText") '' Kludge tax question until all are fixed! -- JKAG 12/21/2007 if the_QuestionText = "Decrease overall taxation of the wealthy" then the_QuestionText = "Make taxes more progressive" end if '' Kludge tax question until all are fixed! -- JKAG 12/21/2007 the_LookupID = rs("LookupID") the_QuestionID = rs("QuestionID") if the_QuestionID = 1 then sec1 = "_a" %>

Individual rights

Where do you stand on these questions of individual rights?

Click on the question for more information!

<% elseif the_QuestionID = 5 then sec2 = "_a" %>

Domestic Issues

Where do you stand on these questions of domestic issues? <% elseif the_QuestionID = 14 then sec3 = "_a" %>

Economic Issues

Where do you stand on these questions of economic issues? <% elseif the_QuestionID = 17 then sec4 = "_a" %>

Defense / International Issues

Where do you stand on these questions of defense and international issues? <% end if %> <%=the_QuestionText%> <% dim one_answer, chk1, chk2, chk3, chk4, chk5 one_answer = Request.Querystring("q"&the_QuestionID) chk1 = "" chk2 = "" chk3 = "" chk4 = "" chk5 = "" if one_answer = "1" then chk1 = "CHECKED" elseif one_answer = "2" then chk2 = "CHECKED" elseif one_answer = "3" then chk3 = "CHECKED" elseif one_answer = "4" then chk4 = "CHECKED" elseif one_answer = "5" then chk5 = "CHECKED" else chk3 = "CHECKED" end if %> name="q<%=the_QuestionID%>" type="radio" value="1" id="<%=the_QuestionID%>_1"> name="q<%=the_QuestionID%>" type="radio" value="2" id="<%=the_QuestionID%>_2"> name="q<%=the_QuestionID%>" type="radio" value="3" id="<%=the_QuestionID%>_3"> name="q<%=the_QuestionID%>" type="radio" value="4" id="<%=the_QuestionID%>_4"> name="q<%=the_QuestionID%>" type="radio" value="5" id="<%=the_QuestionID%>_5"> <% rs.MoveNext Wend %>
   

<% ''Close Database Connections rs.Close DBConn.Close Set rs = Nothing Set DBConn = Nothing %>

Home  |  Candidates  |  Issues  |  News  |  Other Quizzes  |  The Forum

About Us  |  Advertise  |  Contact Us 

This is the "private" version of the VoteMatch quiz. It uses no cookies, does not track your input. does not store your input, and uses no JavaScript. However, you cannot save your answers for later use, and we cannot guarantee that the "Back" button works nor that you can successfully switch between quizzes. You can do those safely on the regular version of the VoteMatch quiz.

All contents copyright © 2000-2008 Speakout, OnTheIssues.org and GoVote.com, Inc. All rights reserved.
Please review the Terms of Use before using this site. 
Your use of the site indicates your agreement to be bound by the Terms of Use.
Concerned about privacy? Please review our privacy policy.