<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% recaptcha_challenge_field = Request("recaptcha_challenge_field") recaptcha_response_field = Request("recaptcha_response_field") recaptcha_public_key = "6LeuScQSAAAAAHOAKs90SBht5rVpQxYa_IKLkgss" ' your public key recaptcha_private_key = "6LeuScQSAAAAAE2DyXaSv2CqvjqqgLuqgWS0Q7xi " ' your private key ' returns the HTML for the widget function recaptcha_challenge_writer() recaptcha_challenge_writer = _ "" & _ "" & _ "" end function 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 %> <% if request.form("ranonce") = "true" then 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 = "" Then name = request.form("name") email = request.form("email") phone = request.form("phone") address = request.form("address") enquiry = request.form("enquiry") message = name + " has made an enquiry from the Luce Bay View site " & vbcrlf &vbcrlf message = message + "Name: " message = message + name &vbcrlf &vbcrlf message = message + "Email Address: " message = message + email &vbcrlf message = message + "Tel No: " message = message + phone &vbcrlf &vbcrlf message = message + "Address: " message = message + address &vbcrlf &vbcrlf message = message + "Further Requirements/Notes: " message = message + enquiry &vbcrlf &vbcrlf set JMail = CreateObject("JMail.SMTPMAIL") JMail.ServerAddress = "mail.lucebayselfcatering.co.uk" JMail.Sender = "mail@lucebayselfcatering.co.uk" JMail.SenderName = "Enquiry | Luce Bay View" JMail.AddRecipient "mail@lucebayselfcatering.co.uk" JMail.Priority = 1 JMail.Subject = "Selfcatering Enquiry" JMail.Body = message on error resume next JMail.execute on error goto 0 set JMail = nothing Response.Redirect("thank-you.htm") 'you need to create a thank you page end if End if %> Contact | Luce Bay View Self Catering
Luce Bay Luxury Self Catering | Contact

Contact Luce Bay Luxury Self Catering

You can contact us by telephone on :01776 830 210

You can email us at mail@lucebayselfcatering.co.uk, or write to us at:

c/o Tigh na Mara Hotel
Sandhead.
Stranraer,
DG9 9JJ
Dumfries & Galloway
Scotland

<% If server_response <> "" Then%>

You seem to have typed the verification incorrectly. Please try again.

<% End If%>
Name:
E-mail:
Phone Number:
Address:
   

Any comments or special requirements or to advise us of arrival time:

<%=recaptcha_challenge_writer()%>

The accommodation is available from 2pm on the day of arrival and keys can be obtained from the Tigh na Mara Hotel, located on the Main Street, in Sandhead village. 

 

© Lucebay View Self Catering, Sandhead. Stranraer, DG9 9JJ Dumfries & Galloway SW Scotland Tel: 01776 830 210 designs by kirkmoor.com