Simple Book and Cruise Online Systems ..
easyGulet.com has a simple book and go online booking and ticketing system, that enables all our customers to view their prices and availability in real time, all your payments are transacted through our secure and highly encrypted servers; No charges apply when paying with either a debit card or cheque; When using a credit card a fee of 2% is applied to the price of the booking.
When would you like to travel?
To check your availability
and prices please select the Tour and Travel Date.
Tour Categories
<%
set catrec=getAllCategories()
if not(catrec.eof and catrec.bof) then
do while catrec.eof <> true
if catrec.fields("CatID") = category then
%>
<%=catrec.fields("category")%>
<%
else
%>
<%=catrec.fields("category")%>
<%
end if
catrec.movenext
loop
end if
%>
Type of
Tour
<%
set tdrec=gettourDetailsforIntro(category)
if not(tdrec.eof and tdrec.bof) then
%>
<%=tdrec.fields("Tourid")%><%=tdrec.fields("displayname")%>
<%
end if
%>
Select Tour Type
<%
set trec=getIntroPageConfiguration(category)
if not(trec.eof and trec.bof) then'follow intro page according to intro Page Configuration
ctr=0
do while not trec.eof
response.Write(trec.fields("id"))
if lcase(left(trec.fields("id"),2))="g_" then
'group to be shown
groupid=mid(trec.fields("id"),3)
set grrec=getGroups(groupid)
if not(grrec.eof and grrec.bof) then
groupname=grrec.fields("groupname")
shortdesc=grrec.fields("shortdesc")
ctr=ctr+1
if ctr mod 2 =1 and ctr=1 then
elseif ctr mod 2 =1 and ctr>1 then
else
end if
set tmrec=getToursForGroup(groupid)
if not(tmrec.eof and tmrec.bof) then
do while tmrec.eof <> true
'set temprec=getTourCalender(tmrec.fields("tourid"))
'if not(temprec.eof and temprec.bof) then
'this is travel dates for a particular tour id and last booking date greater than today
'if temprec.fields("lastbookingdate") >= date() then
%>
<%=tmrec.fields("displayname")%>
<%
'end if
'end if
tmrec.movenext
loop
end if'not tmrec.eof and tmrec.bof
end if'not grrec.eof and grrec.bof
else
'tour to be shown
'set temprec=getTourCalender(trec.fields("id"))
'if not(temprec.eof and temprec.bof) then
'this is travel dates for a particular tour id and last booking date greater than today
'if temprec.fields("lastbookingdate") >= date() then
set tmrec=gettourDetailsforIntro(trec.fields("id"))
if not(tmrec.eof and tmrec.bof) then
ctr=ctr+1
if ctr mod 2 =1 and ctr=1 then
elseif ctr mod 2 =1 and ctr>1 then
else
end if
%>
<%=tmrec.fields("name")%>
<%
end if
'end if
'end if
end if 'group/tour
trec.movenext
loop
if ctr mod 2 =1 then
else
end if
else 'follow intro page according to category
set trec=getAllToursforIntro1(category)
if not (trec.eof and trec.bof) then
ctr=0
do while not trec.eof
'set temprec=getTourCalender(trec.fields("Tourid"))
'if not(temprec.eof and temprec.bof) then
'this is travel dates for a particular tour id and last booking date greater than today
'if temprec.fields("lastbookingdate") >= date() then
ctr=ctr+1
if ctr mod 2 =1 and ctr=1 then
elseif ctr mod 2 =1 and ctr>1 then
else
end if
%>
><%=trec.fields("name")%>
<%
'end if
'end if%>
<%trec.movenext
loop
if ctr mod 2 =1 then
else
end if
end if
end if 'end of group checking condition
%>
<%
'response.Write(tourid)
'if (trec.eof and trec.bof) then
'button = ""
%>
Travel Date
<%
'button = ""
Response.Write ("Select Tour Date ")
set trec1=getTourCalenderBuyPage(tourid)
if not(trec1.eof and trec1.bof) then
do while trec1.eof<>true
response.Write("aaa")
selected = ""
if cstr(seldate) = cstr(trec1.fields("traveldate")) then
selected = "selected"
end if
if len(trim(tdate))>0 then
if cstr(trec.fields("traveldate"))=cstr(tdate) then
Response.Write ("" & day(trec1.fields("traveldate")) & "-" & monthname(month(trec1.fields("traveldate")),true) & "-" & year(trec1.fields("traveldate")) & ", " & weekdayname(weekday(trec1.fields("traveldate"),0),false,0) & " ")
else
Response.Write ("" & day(trec1.fields("traveldate")) & "-" & monthname(month(trec1.fields("traveldate")),true) & "-" & year(trec1.fields("traveldate")) & ", " & weekdayname(weekday(trec1.fields("traveldate"),0),false,0) & " ")
end if
else
Response.Write ("" & day(trec1.fields("traveldate")) & "-" & monthname(month(trec1.fields("traveldate")),true) & "-" & year(trec1.fields("traveldate")) & ", " & weekdayname(weekday(trec1.fields("traveldate"),0),false,0) & " ")
end if
trec1.movenext
loop
end if
%>
<%
set rec=gettourDetails(TourID)
if not(rec.eof and rec.bof) then
catID=rec.fields("CatID")
ItncatID=rec.fields("CatID")
name=rec.fields("name")
adult=rec.fields("adults")
charterstatus=rec.fields("charter")
child=rec.fields("children")
infants=rec.fields("infants")
end if
'check for charter starts here
charter=false
if charterstatus=1 then
set charterrec=getcharter(tourid)
if not (charterrec.eof and charterrec.bof) then
charter=true
end if
end if
set agerec=getPassengerAge(TourID)
if not(agerec.eof and agerec.bof) then
minadultage=agerec.fields("minadultage")
minchildage=agerec.fields("minchildage")
mininfantage=agerec.fields("minchildage2")
end if
%>
<%
if cint(adult)>0 then
if charter=true then
%>
Members Adults Children Infants
<%
'showing age group'
if cint(adult)>0 then
%>
<% Response.Write(minadultage)%>
+ yrs.
<% Response.Write(minchildage)
Response.Write(" to ")
Response.Write(minadultage)%>
yrs.
<% Response.Write(mininfantage)
Response.Write(" to ")
Response.Write(minchildage)%>
yrs.
No
of Persons
<%
'from min 1 to maximum no. of adults, children and infants, if any.'
'to do : in case of non agent customers min 6 to max no. of adults, children and infants'
if cint(adult)>0 then
%>
<% if charter=true then
do while not charterrec.eof
Response.Write "" & charterrec.fields("minpeople") & " - " & charterrec.fields("maxpeople") & " "
charterrec.movenext
loop
else
call makeOptions(getminperson,adult)
end if
%>
<% call makeOptions(0,child)
%>
<% call makeOptions(0,infants)
%>