<%@ 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 %> <% sql="select * from ToursCategories Where ToursCategoryId="&request.QueryString("ToursCategoryId")&" Order By Name" rs.open sql,conn,3 IF Not rs.EOF Then ToursCategoryId=rs("ToursCategoryId") Name=rs("Name") Description=rs("Description") CategoryPhoto=rs("Photo") End IF rs.Close %> Egypt Tour - Tour Egypt - egypt vacations - Egypt tours
 
<% 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 %>
<%=Name%>
<%=Description%>
<% 'Get All Tours for the current Category sql="select * from tours where ToursCategoryId="&ToursCategoryId&" And LanguageId="&CurrentLanguage&" order by Name" 'response.Write(sql) rs.open sql,conn,3 if not rs.eof then %> <% ''''''''''''''''''''' Get Page No ''''''''''''''''''''' IF Request.QueryString("Page_no")="" THEN intpage_no=1 ELSE intpage_no=Request.QueryString("Page_no") END IF ''''''''''''''''''''' No Per Page ''''''''''''''''''''' rs.PageSize=6 'Response.Write("
PageSize="&rs.PageSize) intPageSize=rs.PageSize intTotalRecords=rs.recordcount 'Response.Write("
intTotalRecords="&intTotalRecords) ''''''''''''''''''''' Start Record ''''''''''''''''''''' 'startRecord=(intpage_no-1)*intPageSize startRecord=(intpage_no-1)*intPageSize'*3 '// Show three records for each Loop 'Response.Write("
startRecord="&startRecord) ''''''''''''''''''''' Pages Count '''''''''''''''''''''' 'pagesCount=rs.pagecount pagesCount=rs.pagecount'/1.5 '// Show three records for each Loop 'Response.Write("
pagesCount="&pagesCount) rs.Move startRecord,0 j=3 For i=0 To intPageSize-1 IF rs.eof Then Exit For Else j=j+1 %> <% IF J Mod 3=0 Then response.Write("") rs.movenext IF rs.eof Then Exit For End IF End IF Next %> <%' IF Not rs.eof Then %> <%'End IF%>
bgcolor="E1DCCB" <%End IF%> height="250">
<%'=rs("TourId")%><%=rs("Name")%>
<%IF rs("Photo")<>"" Then%>
"> " alt="<%=rs("Name")%>" width="110" height="123" border="0">
<%End IF%>
<%=SummarySplit(rs("MetaData"),150)%>
">
<%else%> Sorry, there is no tour for the present time <%end if%>
 
Copyright ©. 2011 Marvelous Egypt Travel All rights Reserved.