Skip to content

Instantly share code, notes, and snippets.

@ryanpitts
Created August 22, 2011 22:04
Show Gist options
  • Save ryanpitts/1163742 to your computer and use it in GitHub Desktop.
Save ryanpitts/1163742 to your computer and use it in GitHub Desktop.
<%
dim a(6)
a(0) = "<p><input type='checkbox' name='c'>&nbsp;When everything goes right, America's talented workers and entrepreneurs create millions and millions of jobs each year. While working families worry about job security and the unemployed struggle to find work, President Bush rewards wealthy campaign contributors with tax breaks that hurt the middle class and do nothing to create jobs.</p><br />"
a(1) = "<p><input type='checkbox' name='d'>&nbsp;The American middle class was built on the promises of good wages, fair benefits, job security and sound pension plans. A strong economy is built on a foundation of honest business practices.</p><br />"
a(2) = "<p><input type='checkbox' name='e'>&nbsp;My plan is to create jobs with a 10 percent tax credit for companies that keep jobs in America, a venture capital fund to bring jobs to those areas hardest hit in the economy, new tax credits for working Americans to buy their first home, save for retirement, or save for child's education.</p><br />"
a(3) = "<p><input type='checkbox' name='k'>&nbsp;My priority will be middle-class families who are working hard to cover the mortgage, pay the high cost of health care, child care and tuition, or just trying to get ahead.</p><br />"
a(4) = "<p><input type='checkbox' name='u'>&nbsp;Our plan will put Americans back to work. Two million Americans would find jobs in such enterprises as rebuilding schools, designing roads, refurbishing environmental projects and manufacturing steel for water systems.</p><br />"
'a(5) = "<p><input type='checkbox' name='l'>&nbsp;My jobs plan would help transform today's producers into the factories of the future, make worker training more affordable and accessible, and level the global playing field by cracking down on unfair trade practices while continuing to open new markets.</p><br />"
a(5) = "<p><input type='checkbox' name='s'>&nbsp;You can't talk about recovery without talking to those who needed to be recovered. The people that are unemployed, the people that have an insecure place in the economy, have not recovered at all. And I think that we must create jobs.</p><br />"
%>
<%
q1 = request.form("q1")
q2 = request.form("q2")
q3 = request.form("q3")
q4 = request.form("q4")
q5 = request.form("q5")
q6 = request.form("q6")
q7 = request.form("q7")
q8 = request.form("q8")
q9 = request.form("q9")
q10 = request.form("q10")
c = request.form("c")
d = request.form("d")
e = request.form("e")
k = request.form("k")
u = request.form("u")
'l = request.form("l")
s = request.form("s")
myval = ""
If c = "on" Then myval = myval & "c"
If d = "on" Then myval = myval & "d"
If e = "on" Then myval = myval & "e"
If k = "on" Then myval = myval & "k"
If u = "on" Then myval = myval & "u"
'If l = "on" Then myval = myval & "l"
If s = "on" Then myval = myval & "s"
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en">
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=windows-1252">
<title>Campaign 2004 candidate matcher :: spokesmanreview.com</title>
<link rel="stylesheet" type="text/css" href="/design/blogs/control/layout.css" />
</head>
<body>
<div id="header">
<div class="pagelabel">
<a href="/"><img src="/design/forums/media/srlogo.gif" width="200" align="right" border="0" alt="spokesmanreview.com"></a>
<a href="/" title="spokesmanreview.com">spokesmanreview.com</a>
</div>
<div class="doublerule"></div>
<div class="blogtitle" valign="middle"><a href="/quiz" title="survey results cover">Campaign 2004 Democratic issues quiz</a></div>
</div>
<table width=750 cellpadding=1 cellspacing=0 align="center">
<tr>
<form action="issue4.asp" method="post" name="demquiz">
<input type="hidden" name="q1" value="<% = q1 %>">
<input type="hidden" name="q2" value="<% = myval %>">
<td valign="top"><br />
<h1>Issue 3 of 10: Economy/jobs</h1>
<p>Checkmark all the quotes/position statements you agree with.</p><br />
<%
alist = ""
nlist = "|"
randomize()
For x = 0 to 5
n = Int(Rnd * 6)
Do Until Instr(Cstr(nlist),Cstr("|" & n & "|")) = 0
n = Int(Rnd * 6)
Loop
nlist = nlist & n & "|"
alist = alist & a(n) & "|"
Next
fArray = split(alist,"|")
for x = 0 to ubound(fArray, 1)
response.write fArray(x)
next
%>
<br /><br />
<p align="center"><input type="submit" value="Next Issue" style="width: 150px;"></p>
</td>
</form>
</tr>
</table>
</div>
</body>
</html>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment