<%@ 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 %> ypt Nile Cruises | Nile River Cruises and Egypt Nile Escorted Tours.Egypt holiday,Nile River Cruises holiday,Nile River Cruises holidays,nile Cruises holidays
 
<% 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 %>
Egypt Cruises

Journey along the the most exotic rivers in the World like the Nile River in Egypt. Few places on earth remain untouched in their natural beauty and charm from one century to the next and we can offer you a wonderful selection of River Cruises to explore these untouched places

 
Egypt Cruises  
<% sql="select * from CruisesCategories Where LanguageId="&CurrentLanguage&" " 'response.Write sql rs.open sql,conn,3 Do While Not rs.EOF %> <% rs.MoveNext Loop %>
" class="submenu"><%=rs("Name")%>
Select a country or Navigate the interactive Map it is worth it !
 
Copyright ©. 2011 Marvelous Egypt Travel All rights Reserved.