Accommodation visitor information booking resort listings online bookings service."> ,accommodation, holiday, book, booking, bookings, online booking, reservation">


<%=Request.querystring("Link")%> Booking/Enquiry Form

<% Link=Request.querystring("Link") %>
"> "> Please Note : A minimum Deposit of $150 is required within 7 days or property will not guarantee booking.
Your Details
First Name : *
Last Name : *
Email : *
Address : *
City : *
State/Province :
Zip/Post Code : *
Country :
Phone : *
Fax :
Reservation Details
Arrival Date * <% GenDateDropDown "document.forms[0]", "Arrive", date(), Year(Date), Year(Date) + 5, 2 %>
Departure Date * <% GenDateDropDown "document.forms[0]", "Depart", date() + 2, Year(Date), Year(Date) + 5, 2 %>
Est. Time of Arrival *
Number of Nights *
Type of Room
Number of Adults *
Number of Children *
Number of Infants
Request Type

Other Details or Special Requests

Payment Details

Payment Type :

Please Note:

* denotes a required field. Please enter all details correctly.

This is a enquiry only, we will get back to you with a quote and deposit request.
Credit Card information is entered via a SSL connection. SSL (Secure Sockets Layers) protect your valued information.
Your information is securely encrypted as it travels over the Internet.
A lock symbol on your web browser indicates when SSL is enabled.

<% '******************* 'Server side scripts '******************* 'Return abreviated month name function GetMonthName(lnMnth) select case lnMnth case 1 GetMonthName = "January" exit function case 2 GetMonthName = "Febuary" exit function case 3 GetMonthName = "March" exit function case 4 GetMonthName = "April" exit function case 5 GetMonthName = "May" exit function case 6 GetMonthName = "June" exit function case 7 GetMonthName = "July" exit function case 8 GetMonthName = "August" exit function case 9 GetMonthName = "September" exit function case 10 GetMonthName = "October" exit function case 11 GetMonthName = "November" exit function case 12 GetMonthName = "December" exit function end select end function '******************************* 'GenDateDropDown 1.0 'Author: Michael McLain '******************************* 'Create drop down date selection sub GenDateDropDown(objref, objname, setdate, begyear, endyear, datemode) 'Parameters: ' objref = object's form reference ' objname = date selection object name ' creates three dropdowns for day, month and year ' dropdown names will be the objname plus d, m and y added as a suffix ' a hidden object of the objname is created to hold the selected date ' setdate = default date selection ' begyear = minimum year range in year drop down, values prior to 1970 not allowed ' endyear = maximum year range in year drop down ' datemode = determines date format returned in the hidden object's value ' datemode = 1 - MM/DD/YYYY ' datemode = 2 - DD/MM/YYYY ' datemode = 3 - YYYYMMDD ' datemode = 4 - universal format dim curmn, curyr, curdy, lmn, lyr, ldy, lmname, sobjref curmn=month(setdate) curyr=year(setdate) curdy=day(setdate) sobjref=objref+"."+objname 'Create hidden object type to store currently selected date Response.Write "" 'Generate drop down for day lmn=month(setdate) lyr=year(setdate) ldy=day(setdate) lmn=lmn+1 if lmn=13 then lmn=1 lyr=lyr+1 end if lmname=GetMonthName(lmn) 'lastday = day(cdate(lmname&" 1, "&lyr)-1) ' error with above code did not have time to check. hard code below. lastday = 31 Response.Write " " 'Generate drop down for month Response.Write " " 'Generate drop down for year selection Response.Write "" 'Patch to fix Netscape 6.2 inline script bug Response.write "" end sub %>