<%@ language="VBSCRIPT" %> <% IF Session("LanguageId")="" Then CurrentLanguage=1 CurrentLanguageName="English" Else CurrentLanguage=Session("LanguageId") CurrentLanguageName=Session("LanguageName") End IF Function RemoveHTML( strText ) Dim RegEx Set RegEx = New RegExp RegEx.Pattern = "<[^>]*>" RegEx.Global = True RemoveHTML = RegEx.Replace(strText, NoOfChar) End Function Function SummarySplit( strText,NoOfChar ) Str=Left(RemoveHTML(strText),NoOfChar) LastSpacePosition=InStrRev(Str," ") SummarySplit=Left(Str,LastSpacePosition) End Function Function related_tours(ID) sql="SELECT Top 4 Tours.LanguageId, Tours.name,Tours.PageName, ToursCategories.ToursCategoryId FROM ToursCategories INNER JOIN Tours ON ToursCategories.ToursCategoryId = Tours.ToursCategoryId Where Tours.LanguageId="&CurrentLanguage&" And ToursCategories.ToursCategoryId="&ID&" " 'response.Write sql rs.open sql,conn,3 IF Not rs.Eof Then x=1 Do While Not rs.Eof response.Write(""&x&"-"& rs("name")&"
") x=x+1 rs.MoveNext Loop Else 'Response.Write("

No Tours Categories

") End IF rs.Close End Function %> <% '************************************************************************************************************************' '******************************************* Please don't change this section *******************************************' '************************************************************************************************************************' set conn=server.CreateObject ("adodb.connection") conn.Open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/admin/Marvelous-Egypt.mdb") set rs=server.CreateObject ("adodb.recordset") set qrs=server.CreateObject ("adodb.recordset") set mrs=server.CreateObject ("adodb.recordset") '************************************************************************************************************************' '************************************************************************************************************************' Sub closeDbconn() if isobject(conn) then if conn.State = adStateOpen then conn.Close end if set conn = nothing end if End sub %> Egypt Travel - egypt travel packages - Egypt excursions - Egypt vacations trips
 
<% sql="select * from Languages Where LanguageId<>"&CurrentLanguage&" Order by Name" ' response.Write sql rs.open sql,conn,3 IF Not rs.Eof Then %> <% Do While Not rs.Eof %> <% rs.MoveNext Loop %>
" class="header" title="<%=rs("Name")%>">" width="20" height="14" alt="<%=rs("Name")%>" border="0">
<% End IF rs.close %>
Home About us Contacts
Egypt Packages - Voyage Egypte - Viaggio Egitto - Ägypten Reisen Egypt Packages - Voyage Egypte - Viaggio Egitto - Ägypten Reisen Egypt Packages - Voyage Egypte - Viaggio Egitto - Ägypten Reisen Egypt Packages - Voyage Egypte - Viaggio Egitto - Ägypten Reisen Egypt Packages - Voyage Egypte - Viaggio Egitto - Ägypten Reisen Egypt Packages - Voyage Egypte - Viaggio Egitto - Ägypten Reisen Egypt Packages - Voyage Egypte - Viaggio Egitto - Ägypten Reisen Egypt Packages - Voyage Egypte - Viaggio Egitto - Ägypten Reisen Egypt Packages - Voyage Egypte - Viaggio Egitto - Ägypten Reisen Egypt Packages - Voyage Egypte - Viaggio Egitto - Ägypten Reisen Egypt Packages - Voyage Egypte - Viaggio Egitto - Ägypten Reisen
<% if CurrentLanguage = 1 then %>
Home About us Egypt Tours Custom Tours Egypt Hotels Nile Cruises Egypt Gallery Articles Contacts
<% end if %> <% if CurrentLanguage = 2 then %>
Home About us Egypt Tours Custom Tours Egypt Hotels Nile Cruises Egypt Gallery Articles Contacts
<% end if %> <% if CurrentLanguage = 3 then %>
accueil A propos de nous Voyage Egypte Voyage à la carte Hotels en Egypte Nile Cruises Egypte Gallery Articles Contact
<% end if %> <% if CurrentLanguage = 4 then %>
Home About us Egypt Tours Custom Tours Egypt Hotels Nile Cruises Egypt Gallery Articles Contacts
<% end if %> <% if CurrentLanguage = 5 then %>
Inicio Sobre nosotros Egipto viajes tours personalizados Egipto hoteles Nilo cruceros-Egipto Egipto Gallería Artículos Contactos
<% end if %>
Marvelous Egypt Travel
 Welcome to Egypt ,Best Travel holidays, Wide choice of Egypt Tours with specialist tour operator Can Be Done has 16 years experience in arranging your holidays for Discover Egypt Things to do
Tours, Sightseeing and Activities Egypt is an ancient country with a fascinating range of must-see destinations: the pyramids of Giza, the historical city of Alexandria and Luxor which is like an open museum. From Pharaonic emerald mines to Coptic monasteries, Ottoman fortresses, Muslim shrines and the intriguing Eastern Desert, Egypt is a traveller’s delight.
How does it work ?
It's easy. You can book everything you need for a great holiday to Egypt including -all trips, vacation and excursions. hotel Reservations, meet and greet and transfers from all airports in Egypt, arrange all transfers with A/C cars and coaches. reservations for domestic flight tickets, boat tickets, train tickets. Egypt city tours, Egypt Travel packages and excursions in Cairo, Alexandria, and Sinai, Sharm el Sheikh, Dahab, Hurghada, Luxor, Aswan and Abu Simbel. Egypt Cruises on Nile and Nasser Lake as well as diving trips, courses free diving, yoga classes, climbing and hiking in the desert. for all world Speaking Market .
What makes it different?
Choose the Tour dates and times, where you want to stay and the duration of your holiday. Plus we share our holidaymakers' feedback with you. The reviews are exclusively from previous customers who have actually booked and taken a holiday to Egypt
LiveZilla Live Help
<% sql="select ToursCategories.Name as CategoryName , ToursCategoryId from ToursCategories Where ToursCategories.LanguageId="&CurrentLanguage&" Order By ToursCategories.Name Desc" 'response.Write sql rs.open sql,conn,3 IF Not rs.Eof Then Do While Not rs.Eof %> <% rs.MoveNext Loop Else Response.Write("

No Tours Categories

") End IF rs.Close %>
 &<%=rs("CategoryName")%>" class="tourmenu" title="<%=rs("CategoryName")%>"><%=rs("CategoryName")%>
<% sql="select * from cruises Where CategoryId=1 Order By ClassId Desc" 'response.Write sql rs.open sql,conn,3 IF Not rs.Eof Then Do While Not rs.Eof %> <% rs.MoveNext Loop Else Response.Write("

No Nile Cruises

") End IF rs.Close %>
 " class="tourmenu" title="<%=rs("Name")%>"><%=rs("Name")%>
<% sql="select * from cruises Where CategoryId=2 Order By ClassId Desc" 'response.Write sql rs.open sql,conn,3 IF Not rs.Eof Then Do While Not rs.Eof %> <% rs.MoveNext Loop Else Response.Write("

No Nile Cruises

") End IF rs.Close %>
 " class="tourmenu" title="<%=rs("Name")%>"><%=rs("Name")%>
<% sql="select * from Cities Where LanguageId="&CurrentLanguage&" " 'response.Write sql rs.open sql,conn,3 IF Not rs.Eof Then Do While Not rs.Eof %> <% rs.MoveNext Loop Else Response.Write("

No Nile Cruises

") End IF rs.Close %>
 " title="<%=rs("Name")%>" class="tourmenu"><%=rs("Name")%>
 
 
 
<% qsql="select Top 3 * from Offers Where LanguageId="&CurrentLanguage&" Order By OfferId Desc" 'response.Write sql qrs.open qsql,conn,3 'response.Write qrs.recordcount IF Not qRs.Eof Then Do While Not qrs.Eof %> <% qrs.MoveNext Loop Else Response.Write("") End IF qrs.Close %>
<% SQL="Select * from Tours Where TourId="&qrs("TourId") Rs.open SQL,Conn TourName=Rs("Name") OldPrice=Rs("DoublePrice") Photo=Rs("Photo") PageName=rs("PageName") Rs.Close %> <%=TourName%>
<%=TourName%>
<%=qrs("Description")%>
$ <%=OldPrice %> $ <%=qrs("Price")%>
No Special Offers
<% sql="select Top 10 * from Tours Where LanguageId="&CurrentLanguage&" And FeaturedTour=1 Order By TourId Desc" 'response.Write sql rs.open sql,conn,3 IF Not rs.Eof Then j=2 %> <% Do While Not rs.EOF j=j+1 %> <% 'Response.Write(J) 'IF J Mod 2=0 Then response.Write("") IF J Mod 4=0 Then BgColor="E1DCCB" Else BgColor="efead8" IF J Mod 2=0 Then response.Write("") rs.MoveNext Loop %>
" class="tourlink"><%=rs("Name")%>
<%=SummarySplit(rs("Notes"),160)%> ... <%IF rs("Photo")<>"" Then%>
"> " alt="<%=rs("Name")%>" width="110" height="123" border="0">
<%End IF%>
  ">
<% Else Response.Write("

No Featured Tours

") End IF rs.Close %>
<% if CurrentLanguage = 1 then qsql="select Top 3 * from tours where ToursCategoryId=11 And LanguageId="&CurrentLanguage&" order by Name" if CurrentLanguage = 3 then qsql="select Top 3 * from tours where ToursCategoryId=32 And LanguageId="&CurrentLanguage&" order by Name" 'if CurrentLanguage = 3 then qsql="select Top 3 * from tours where ToursCategoryId=32 And LanguageId="&CurrentLanguage&" order by Name" 'if CurrentLanguage = 3 then qsql="select Top 3 * from tours where ToursCategoryId=32 And LanguageId="&CurrentLanguage&" order by Name" 'response.Write sql qrs.open qsql,conn,3 'response.Write qrs.recordcount IF Not qRs.Eof Then Do While Not qrs.Eof %> <% qrs.MoveNext Loop Else Response.Write("") End IF qrs.Close %>
<% SQL="Select * from Tours Where TourId="&qrs("TourId") Rs.open SQL,Conn 'Response.Write(Rs("Name")) TourName=Rs("Name") Price=Rs("DoublePrice") Photo=Rs("Photo") PageName=rs("PageName") Notes=rs("Notes") Rs.Close %> <% =TourName %>
<%=TourName%>
<%=SummarySplit(Notes,160)%> ...
$ <%=Price %>
No Xmas & New Year Tours
 
<% sql="select Top 2 * from Articles Where LanguageId="&CurrentLanguage&" And HomePage=1 Order By ArticleId Desc" 'response.Write sql rs.open sql,conn,3 IF Not rs.Eof Then Do While Not rs.Eof %>
<%=rs("Name")%> <%IF rs("Photo")<>"" Then%>
" alt="<%=rs("Name")%>" width="150" height="150">
<%End IF%>
<%=SummarySplit(rs("Description"),300)%>
">
<% rs.MoveNext Loop 'Else 'Response.Write("

No Articles

") End IF rs.Close %>
 
There are no more famous ancient sites within Egypt, or for that matter elsewhere in the world, than the Great Pyramids at Giza. They are, without question, the icon most associated with the Egypt. They have been both the main destination for tourists, and a source of imaginative thought to the world for over three thousand years.
Our Partner  
Copyright ©. 2011 Marvelous Egypt Travel All rights Reserved.
 
<% call closeDbconn() %>