<%@ Language=VBScript%> <% Response.Buffer = TRUE ' Get Registration Fields name = TRIM( Request( "name" ) ) address = TRIM( Request( "address" ) ) telephone = TRIM( Request( "telephone" ) ) email = TRIM( Request( "email" ) ) guests = TRIM( Request( "guests" ) ) nights = TRIM( Request( "nights" ) ) arrive = TRIM( Request( "arrive" ) ) depart = TRIM( Request( "depart" ) ) where = TRIM( Request( "where" ) ) %> Fairshaw Rigg : Make a reservation <% FUNCTION invalidEmail( email ) IF INSTR( email, "@" ) =0 OR INSTR( email, "." ) =0 THEN invalidEmail =1 ELSE invalidEmail =2 END IF END FUNCTION FUNCTION fixQuotes( theString ) fixQuotes = REPLACE( theString, "'", "''" ) END FUNCTION If Request.Form("action")="register" THEN If Request.Form("name") = "" THEN _ strError = strError & "- Please enter your name
" & vbNewLine If Request.Form("address") = "" THEN _ strError = strError & "- Please enter your address
" & vbNewLine If Request.Form("telephone") = "" THEN _ strError = strError & "- Please enter your telephone number
" & vbNewLine If Request.Form("email") = "" THEN _ strError = strError & "- Please enter your email address
" & vbNewLine If invalidEmail( email ) =1 THEN _ strError = strError & "- Please enter a valid email address
" & vbNewLine If strError = "" THEN Response.Redirect"book_response.asp?name=" & name & "&address=" & address & "&telephone=" & telephone & "&email= " & email & "&guests=" & guests & "&nights=" & nights & "&arrive=" & arrive & "&depart=" & depart & "&where=" & where ELSE strError = "

Please fill the following blank fields:

" & vbNewLine & strError End If End If %>
 

If you would like to book a room or just to find out a little more please click on the 'contact us' link below, and we will be in touch shortly.

Or alternatively you can telephone us on 01434 602 630.

Room tariff is £60 per night for double occupancy or £40 per night for single.

Contact us

Site designed and hosted by gecko-uk.com