High Quality Paper Poster: Size: 18" w x 24" h
Price: $35.00
Mounted/Laminated Poster
Size: 18" w x 24" h
Sturdy Plaque with 3/4 inch
sides and beveled edges.
Ready to hang. Price: $150.00
Poster Name:
Big Red - Rockport
Cozy Harbor - Rockport
Heave Ho - Rockport
Morning Catch - Rockport
Prelude to Summer - Rockport
Rockport Blues
Rockport Harbor
New England Harbor
Running with the Wind - Rockport
Island Hoppers - Portland
My Contact Information:
First Name:
Last Name:
Mailing Address:
City:
State:
Zip Code:
Phone Number:
Email Address:
Comments or Questions:
Preferred Method of Payment:
Credit Card - We will contact you by phone to procees order.
Check - We will email you an invoice and payment address.
<%
' returns string the can be written where you would like the reCAPTCHA
challenged placed on your page
function recaptcha_challenge_writer(publickey)
recaptcha_challenge_writer = "" & _
"" & _
""
end function
function recaptcha_confirm(privkey,rechallenge,reresponse)
' Test the captcha field
Dim VarString
VarString = _
"privatekey=" & privkey & _
"&remoteip=" & Request.ServerVariables("REMOTE_ADDR") & _
"&challenge=" & rechallenge & _
"&response=" & reresponse
Dim objXmlHttp
Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
objXmlHttp.open "POST", "http://api-verify.recaptcha.net/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
%>
