<%@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 Tours - Egypt adventure Tours - Egypt vacations
 
<% 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 Tours Packages Buy Tours to Egypt up to 50% cheaper on best-price of Egypt adventure Tours,vacations, tour,vacations,travel tours to egypt, egyptian tours,travel,trips, south africa safaris, egypt vacation packages
Egypt, the home of the phenomenal pyramids and the massive Sphinx, is one of the most fascinating countries attracting thousands of curious travelers every year. The magnificent temples and the royal tombs, the isolated Christian monasteries hidden in the unspoiled oases, the contrasts of the lively city Cairo, the legendary past of Alexandria, and the matchless marine life of Red Sea, all enhances its mystery and fascination. Egypt is a country you can visit again and again, these magical lands promise new experiences every time.
 
<% sql="select * from ToursCategories Where LanguageId="&CurrentLanguage&" Order By Name" 'response.Write sql rs.open sql,conn,3 IF Not rs.Eof Then j=2 %> <% Do While Not rs.EOF 'Get Tours Count for this category CSQL="Select * from Tours Where ToursCategoryId="&rs("ToursCategoryId") 'response.Write csql qrs.open csql,conn,3 IF Not qrs.Eof Then ToursCount=qrs.RecordCount Else ToursCount=0 End IF qrs.close j=j+1 %> <% IF J Mod 4=0 Then BgColor="E1DCCB" Else BgColor="efead8" IF J Mod 2=0 Then response.Write("") rs.MoveNext Loop %>
<%=rs("Name")%>
<%=rs("description")%> <%IF rs("Photo")<>"" Then%>
"> " alt="<%=rs("Name")%>" width="110" height="123" border="0">
<%End IF%>
  "> Buy Tours to Egypt up to 50% cheaper on best-price of Egypt adventure Tours,vacations, tour,vacations,travel tours to egypt, egyptian tours,travel,trips, south africa safaris, egypt vacation packages
<% End IF %>
 
Copyright ©. 2011 Marvelous Egypt Travel All rights Reserved.