<% If request.querystring("entered")="error" Then %>
<% Response.write("
You have already voted in this poll. Thank You.
") %>
<% Else %>
<%
recaptcha_challenge_field = Request("recaptcha_challenge_field")
recaptcha_response_field = Request("recaptcha_response_field")
recaptcha_public_key = "6LezehsTAAAAAJNIw2hiARukMGu3IEHEvBALG7VT"
recaptcha_private_key = "6LezehsTAAAAAJcSGGBvy4Kpp5vdZuSSV2G1J7qO"
' returns the HTML for the widget
function recaptcha_challenge_writer()
recaptcha_challenge_writer = _
"" & _
"" & _
""
end function
' returns "" if correct, otherwise it returns the error response
function recaptcha_confirm(rechallenge,reresponse)
Dim VarString
VarString = _
"privatekey=" & recaptcha_private_key & _
"&remoteip=" & Request.ServerVariables("REMOTE_ADDR") & _
"&challenge=" & rechallenge & _
"&response=" & reresponse
Dim objXmlHttp
Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
objXmlHttp.open "POST", "http://www.google.com/recaptcha/api/verify", False
objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXmlHttp.send VarString
Dim ResponseString
ResponseString = split(objXmlHttp.responseText, vblf)
Set objXmlHttp = Nothing
if ResponseString(0) = "true" then
'They answered correctly
recaptcha_confirm = ""
else
'They answered incorrectly
recaptcha_confirm = ResponseString(1)
end if
end function
server_response = ""
newCaptcha = True
if (recaptcha_challenge_field <> "" or recaptcha_response_field <> "") then
server_response = recaptcha_confirm(recaptcha_challenge_field, recaptcha_response_field)
newCaptcha = False
end if
%>
<% if server_response <> "" or newCaptcha then %>
<% if newCaptcha = False then %>
There was a problem with the code you entered below. Please try again.
<% end if %>
Participate in the Democracy and Me online Presidential Election Poll. Fill out the registration form below and we'll send you everything needed for your students to vote in our online poll. You'll receive results both for your school and the all the students participating. Thank you!