<% recaptcha_challenge_field = Request("recaptcha_challenge_field") recaptcha_response_field = Request("recaptcha_response_field") recaptcha_public_key = "6LcdfBgTAAAAAACtvw27TT9EDnc4QdxxhgTXfWe_" ' your public key recaptcha_private_key = "6LcdfBgTAAAAAHTqK4KAdFH3EMySJBSNE29j_hRC" ' your private key ' 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", "https://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 %> Hotel - Roydon Marian Village

ROYDON MARINA HOTEL

Comfortable, well-equipped
en suite accommodation at great value rates in a stunning location next to the River Stort within the northern end of the Lee Valley Regional Park

Roydon Marina Village hotel reviews

Roydon Marina Hotel offers comfortable, well-equipped en suite accommodation at great value rates in a stunning location next to the River Stort within the northern end of the Lee Valley Regional Park, 'London's biggest open space'.

The hotel is conveniently located within easy walking distance of the railway station which offers direct links to London and Stansted Airport, both of which can be reached within 30 minutes by train. All of the nonsmoking en suite rooms have a TV, tea/coffee making facilities and biscuits. Every room has either a trouser press or an iron. With three family friendly pubs and two restaurants in the village, there are plenty of choices to dine with a 10 minute walk. Stay in the country and visit London!

Park and Fly - Stansted Airport - up to 15 nights parking

Avoid the last minute rush to the airport with our exclusive Park and Fly package at the Roydon Marina Hotel. On the night before your flight enjoy a one night stay in comfort and leave your car parked safely in our car park for up to fifteen nights. Wake up feeling refreshed and rested before strolling to the nearby railway station and taking a direct 25 minutes train ride* to Stansted Airport.

Prices start from just £65 per room, Bed & Breakfast (Continental) based on two adults sharing. Please check for current special offers.

* Train or taxi fare not included

To Book your room call 01279 792777 (opt.2)

HOTEL ENQUIRIES:

<% if server_response <> "" or newCaptcha then %> <% if newCaptcha = False then %>

Something went wrong, please try again!

<% end if %>





<%=recaptcha_challenge_writer()%>

<% else %>

Thank you - Your enquiry has been received and will be dealt with soon.

 

 

 

 

 

 

 

 

<% contact_name = request.form("Name") contact_email = request.form("Email") contact_phone = request.form("Phone") 'build the html for email strHTML = "You have received a hotel enquiry, please see below:" & vbcrlf & vbcrlf strHTML = strHTML & "Timestamp: " & now() & vbcrlf & vbcrlf strHTML = strHTML & vbcrlf strHTML = strHTML & "Contact Details: " & vbcrlf strHTML = strHTML & "Name: " & Request.Form("Name") & vbcrlf strHTML = strHTML & "Email: " & Request.Form("Email") & vbcrlf strHTML = strHTML & "Phone: " & Request.Form("Phone") & vbcrlf strHTML = strHTML & vbcrlf strHTML = strHTML & "Comments: " & vbcrlf strHTML = strHTML & Request.Form("Comments") & vbcrlf 'this is the subject of the email emailSubject = "Roydon Marina Village Hotel - New Enquiry" 'email config Set cdoConfig = CreateObject("CDO.Configuration") Set cdoMessage = CreateObject("CDO.Message") With cdoConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "localhost" .Update End With 'sending details With cdoMessage Set .Configuration = cdoConfig .To = "alison.fletcher@investors-in-leisure.co.uk, chelsea.leigh@investors-in-leisure.co.uk" .Cc = " david.copley@darinian.co.uk, terry.rogers@roydonmarinavillage.co.uk" .From = "info@roydonmarinavillage.co.uk" .Subject = emailSubject .TextBody = strHTML .Send End With 'closes config Set cdoMessage = Nothing Set cdoConfig = Nothing %> <%end if%>