I would like to purchase a poster and pay by personal check. I will order by sending this email form to you and then mail a check to the gallery. (Use back button to purchase by credit card.)
Anderson Gallery
11 Main Street
Rockport, MA 01966:
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:
A New England Harbor
Big Red - Rockport
Cozy Harbor - Rockport
Running with the Wind - Rockport
Prelude to Summer - Rockport
Rockport Water Colors
Heave-Ho
Rockport Blues
Portland Island Hoppers
Morning Catch
A Seaside Menu
A Rockport Setting
Island Hoppers - Portland
My Contact Information:
First Name:
Last Name:
Mailing Address:
City:
State:
Zip Code:
Phone Number:
Email Address:
Comments or Questions:
<%
' 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
%>
