%
dim cn, rs, rs2, rs3, sql
set cn = server.CreateObject("adodb.connection")
set rs = server.CreateObject("adodb.recordset")
set rs2 = server.CreateObject("adodb.recordset")
set rs3 = server.CreateObject("adodb.recordset")
cn.Open Application.Contents("ConnectionString")
if len(trim(Request.Form("PollID")) & "") > 0 then
for each item in request.Form
if left(item, 10) = "PollAnswer" then
sql = "insert into PollResults (PollID, QuestionID, AnswerID) values (" & Request.Form("PollID") & "," & right(item, len(item) - 10) & "," & Request.Form(item) & ")"
cn.Execute sql
end if
next
Session("PollComplete") = "Yes"
end if
%>
Diverse Arthur Ashe Sports Scholars: Men's Volleyball 2007