<%@ 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 %> conference centre and holiday accommodation resort- 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 %>
Lusty Beg Island Logo  
Tel: 028 6863 3300
048 6863 3300 (ROI)
Fax: 028 6863 2033
E-mail: info@lustybeg.co.uk
Home > Conference Centre > Enquiry Form

» Corporate Hospitality

» Team Building

» Enquiry Form

» Prices
    Enquiry Form

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)
Name:  
Email:  
     
     
   
  Conference Facilities
Accommodation | Facilities | Conference Centre | Weddings | Location | About Us | Special Offers | sitemap | Home