Lusty Beg Island

<%@ Language=VBScript %> <% Option Explicit %> <% ' ----------------------------------------------------- ' CDONTS Email send script ' © http://www.designplace.org/ ' Comments must remain intact for re-use of this code ' This page contains the HTML form and select case statements... ' ...which show any errors. ' ----------------------------------------------------- ' -- declare our variables -- dim strErrText, strAction ' -- place the action parameter into the strAction variable -- strAction = Request.QueryString("action") ' -- check the querystring for err=value parameters and show the required error -- Select Case strAction Case "err1" strErrText = "Error: No name input." Case "err2" strErrText = strErrText & "Error: No email input." Case "err3" strErrText = strErrText & "Error: No message input." End Select %> Lusty Beg Island <% ' -- if our querystring contains an action= parameter, it means theres an error and it will be shown -- if strAction > "" then response.write strErrText end if %>

Tel:	028 6863 3300
	048 6863 3300 (ROI)
Fax:	028 6863 2033
E-mail:	info@lustybeg.co.uk


	Accommodation \| Facilities \| Conference Centre \| Weddings \| Location \| About Us \| Special Offers \| Home

» Sample Menu

» Booking Enquiry

» Conditions of Booking

Booking Enquiry

Please fill out the form and click submit. (We are currently experiencing difficulties with our online enquiry forms. Please email or ring us with your enquiry)