<% if Request.QueryString("y")<>"" then%>
<%
Set cnTours = Server.CreateObject("ADODB.Connection")
Set rsTours = Server.CreateObject("ADODB.Recordset")
cnTours.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/tours.mdb")
cnTours.Open
rsTours.Open "SELECT * FROM TOURS WHERE CAT_ID="&Request.QueryString("y")&" ORDER BY ID", cnTours, adOpenForwardOnly, adLockReadOnly
If rsTours.EOF And rsTours.BOF then
response.Write "No records found"
Else
%>
<%=Ucase(Request.QueryString("z"))%>
<%
Do While Not rsTours.EOF
%>
" class="table">
<%=rsTours("NAME")%>
Explore Anzac 01
Tour Code : ANZAC001
5 Days Istanbul, Gallipoli and istanbul guided tours,
Dawn service Istanbul.
Tour Itinerary
ANZAC DAY 2010 FIVE DAY itinerary
Explore Anzac 01
Day 01 23rd
April Welcome to Istanbul
Welcome to Istanbul, where you
will be met at the airport and transferred to your hotel
in the heart of the old city. Tonight meet,ng with your
guide for information. Overnight stay Istanbul.
Day
02 24th April Gallipoli battlefields tour
Depart for
Gallipoli early morning and head towards the WWI
Battlefields of Gallipoli for a fully guided tour of
this now serene site. Visit the Lone Pine Australian
Memorial and Chunuk Bair New Zealand Memorial, ANZAC
Cove and Kaba Tepe Gallipoli Museum. Straight after the
tour we head for the site of the dawn service to get a
good spot. Tonight, soak up the vibrant atmosphere under
the stars waiting for the break of dawn. Overnight at
Dawn Service. Breakfast .
Day 3 Tuesday 25th April
ANZAC Day at Gallipoli
Awake before sunrise to the ANZAC Dawn
Service and commemorate our fallen forefathers on this
special day. Also attend the Australian & / or New
Zealand Memorial services. After the services we drive
back to Istanbul. Overnight Istanbul. Breakfast
Day
4 Wednesday 26th April Istanbul old city
After
breakfast, you enjoy a fully guided tour of the only
city to span two continents, visiting the Blue Mosque,
the Aya Sofya, Topkapi Palace, the Underground Cistern
and the Hippodrome. We also visit a carpet shop and
learn how carpets are made by hand, what determines
their value and the historical and cultural context in
which this folk art has blossomed. Tonight, don’t miss
the optional Turkish folklore evening featuring folklore
and belly dancers… a night you won’t forget! Overnight
Istanbul. Breakfast and lunch
Day 5
Thursday 27th April Istanbul
After breakfast, our tour
concludes and we say goodbye to our new friends.
Breakfast.
TOUR PRICE INCLUDES
Inbound
transfer to your hotel
Transportation in a fully air-conditioned, non-smoking
coach
Professional English speaking tour guide for the
duration of the tour
Anzac Day memorial services at Gallipoli
3 nights accommodation in 3 star hotels with breakfast
Entrance Fees to the various sites
TOUR PRICE DOES NOT INCLUDES
Personal
Expenses
Drinks
IMPORTANT NOTICE!!!
!!! Please, don't forget to bring your sleeping bag.
P.S.: itineraries subject to change according to weather
and/or daily circumstances.
Please Note: There is no single supplement available on
ANZAC tours.
Calendar |
" class="table">
<%=rsTours("DESCRIPTION")%>
<%
rsTours.MoveNext
Loop %>
<%
End if
rsTours.Close
Set rsTours = Nothing
cnTours.Close
Set cnTours = Nothing
%>
<%else%>
<%
Set cnTours = Server.CreateObject("ADODB.Connection")
Set rsTours = Server.CreateObject("ADODB.Recordset")
cnTours.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/tours.mdb")
cnTours.Open
rsTours.Open "SELECT * FROM TOURS WHERE CODE='"&Request.QueryString("x")&"' ORDER BY ID", cnTours, adOpenForwardOnly, adLockReadOnly
If rsTours.EOF And rsTours.BOF then
response.Write "No records found"
Else
TNAME=rsTours("NAME")
TCODE=rsTours("CODE")
mcontrol=rsTours("CAT_ID")
%>
<%=rsTours("NAME")%>
Tour Code : <%=Ucase(rsTours("CODE"))%>
<%=rsTours("DESCRIPTION")%>
<%if mcontrol=3 or mcontrol=7 or mcontrol=14 then%>
.jpg')">
<%end if%>
Tour Itinerary
<%=rsTours("DETAILS")%>
<%
End if
rsTours.Close
Set rsTours = Nothing
cnTours.Close
Set cnTours = Nothing
%>
<%
Set cnTours = Server.CreateObject("ADODB.Connection")
Set rsTours = Server.CreateObject("ADODB.Recordset")
cnTours.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/tours.mdb")
cnTours.Open
rsTours.Open "SELECT * FROM PRICES WHERE CODE='"&Request.QueryString("x")&"' ORDER BY PID", cnTours, adOpenForwardOnly, adLockReadOnly
If rsTours.EOF And rsTours.BOF then
response.Write "No records found about pricing"
Else
%>
Calendar
Dates & Prices
| Starts |
Ends |
EURO |
USD |
GBP |
|
<%Do While Not rsTours.EOF
base=rsTours("PRICE")
P_EURO=base
P_EURO=FormatNumber(P_EURO,2,,,-2)
P_USD=base*EURO/USD
P_USD=FormatNumber(P_USD,2,,,-2)
P_GBP=base*EURO/GBP
P_GBP=FormatNumber(P_GBP,2,,,-2)
%>
| <%=rsTours("PB_DATE")%>10/04/2010 |
<%=rsTours("PE_DATE")%>15/05/2010 |
<%=P_EURO%>289€ |
<%=P_USD%> |
<%=P_GBP%> |
<%=rsTours("NOTE")%> |
<%rsTours.MoveNext
Loop%>
<%
End if
rsTours.Close
Set rsTours = Nothing
cnTours.Close
Set cnTours = Nothing
%>
Reservation
To request more information about this tour please click here.
<%end if%>
|
