<% host = request.ServerVariables("HTTP_HOST") lft = left(host,4) if(lft = "www." or lft = "WWW.") then host = right(host, (len(host)-4)) end if %> <% dt=date tDay=day(dt) tMonth=month(dt) ye=Year(dt) stYear= ye - 10 endYear=ye + 10 %>
Check-In Date:
Month <% IF cstr(tMonth)="1" THEN %>
Jan <% ELSE %>
Jan <%END IF%> <% IF cstr(tMonth)="2" THEN %>
Feb <% ELSE %>
Feb <%END IF%> <% IF cstr(tMonth)="3" THEN %>
Mar <% ELSE %>
Mar <%END IF%> <% IF cstr(tMonth)="4" THEN %>
Apr <% ELSE %>
Apr <%END IF%> <% IF cstr(tMonth)="5" THEN %>
May <%ELSE %>
May <%END IF%> <% IF cstr(tMonth)="6" THEN %>
Jun <%ELSE %>
Jun <%END IF%> <% IF cstr(tMonth)="7" THEN %>
Jul <%ELSE %>
Jul <%END IF%> <% IF cstr(tMonth)="8" THEN %>
Aug <%ELSE %>
Aug <%END IF%> <% IF cstr(tMonth)="9" THEN %>
Sep <%ELSE %>
Sep <%END IF%> <% IF cstr(tMonth)="10" THEN %>
Oct <%ELSE %>
Oct <%END IF%> <% IF cstr(tMonth)="11" THEN %>
Nov <%ELSE %>
Nov <%END IF%> <% IF cstr(tMonth)="12" THEN %>
Dec <%ELSE %>
Dec <%END IF%>
<% d1=date() day1=day(d1) %>
Date
>1
>2
>3
>4
>5
>6
>7
>8
>9
>10
>11
>12
>13
>14
>15
>16
>17
>18
>19
>20
>21
>22
>23
>24
>25
>26
>27
>28
>29
>30
>31
<% curyr = Year(Date()) for ii= curyr to (curyr+5) %>
<%=ii%>
<% 'ii=ii+1 next%>
Check-Out Date:
Month <% IF cstr(tMonth)="1" THEN %>
Jan <% ELSE %>
Jan <%END IF%> <% IF cstr(tMonth)="2" THEN %>
Feb <% ELSE %>
Feb <%END IF%> <% IF cstr(tMonth)="3" THEN %>
Mar <% ELSE %>
Mar <%END IF%> <% IF cstr(tMonth)="4" THEN %>
Apr <% ELSE %>
Apr <%END IF%> <% IF cstr(tMonth)="5" THEN %>
May <%ELSE %>
May <%END IF%> <% IF cstr(tMonth)="6" THEN %>
Jun <%ELSE %>
Jun <%END IF%> <% IF cstr(tMonth)="7" THEN %>
Jul <%ELSE %>
Jul <%END IF%> <% IF cstr(tMonth)="8" THEN %>
Aug <%ELSE %>
Aug <%END IF%> <% IF cstr(tMonth)="9" THEN %>
Sep <%ELSE %>
Sep <%END IF%> <% IF cstr(tMonth)="10" THEN %>
Oct <%ELSE %>
Oct <%END IF%> <% IF cstr(tMonth)="11" THEN %>
Nov <%ELSE %>
Nov <%END IF%> <% IF cstr(tMonth)="12" THEN %>
Dec <%ELSE %>
Dec <%END IF%>
<% d1=date() day1=day(d1) %>
Date
>1
>2
>3
>4
>5
>6
>7
>8
>9
>10
>11
>12
>13
>14
>15
>16
>17
>18
>19
>20
>21
>22
>23
>24
>25
>26
>27
>28
>29
>30
>31
<% curyr = Year(Date()) for ii= curyr to (curyr+5) %>
<%=ii%>
<% 'ii=ii+1 next%>
Adults:
Children
:
1
2
3
4
0
1
2
3
4
Home
Area Attractions
Room Amenities
Reservations
Directions
Contact Us
Photo Gallery
© 2007. Enchanted Land .
Corporate & Group Information
Name*
:
Phone No.*
:
Email.*
:
Check In
:
January
February
March
April
May
June
July
August
September
October
November
December
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
2008
2009
2010
Check Out
:
January
February
March
April
May
June
July
August
September
October
November
December
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
2008
2009
2010
No. of Guests
:
1
2
3
4
Adult
0
1
2
3
4
Children
Room Type
:
Smoking Room
Non-Smoking Room
No of Room
:
1
2
3
4
5
6
Bid your Price
:
Special Comments
:
Home
|
Amenities
|
Attractions
|
Directions
|
Reservation
|
Contact
Photo Gallery
|
