<%@LANGUAGE="VBSCRIPT" codepage="1256"%> <% 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 %> <% FieldId=Request.QueryString("FieldId") FieldName=Request.QueryString("FieldName") 'SearchWord=Request.QueryString("SearchWord") Select Case Lcase(FieldName) Case "hotelid" : Section="Hotels" RedirectTo="Hotels.asp" Case "cruiseid" : Section="Cruises" RedirectTo="Cruises.asp" Case "tourid" : Section="Tours" RedirectTo="Tours.asp" Case "articleid" : Section="Articles" RedirectTo="Articles.asp" End Select '------------------------------------------------------------------------------------------------------ 'Get Section Details ssql="select * from "&Section&" Where "&FieldName&"="&FieldId rs.open ssql,conn,3 ItemTitle=rs("Name") rs.Close '------------------------------------------------------------------------------------------------------ sql="select * from Galleries Where PhotoId>0" IF FieldId<>"" Then sql=sql&" And FieldName='"&FieldName&"' And FieldId="&FieldId End IF 'IF SearchWord<>"" Then ' sql=sql&" And Name Like '%"&SearchWord&"%' " 'End IF sql=sql&" Order By PhotoId Desc" 'response.Write sql mrs.open sql,conn,3 %> <% IF Not mrs.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 ''''''''''''''''''''' mrs.PageSize=6 intPageSize=mrs.PageSize intTotalRecords=mrs.recordcount ''''''''''''''''''''' Start Record ''''''''''''''''''''' startRecord=(intpage_no-1)*intPageSize ''''''''''''''''''''' Pages Count '''''''''''''''''''''' pagesCount=mrs.pagecount %>
<% mrs.Move startRecord,0 j=2 For i=0 To intPageSize-1 IF mrs.eof Then Exit For Else j=j+1 %> "> " alt="<%=mrs("Name")%>" width="200" height="166" border="0">      <% mrs.movenext IF mrs.eof Then Exit For End IF End IF Next %>
Click on the image to enlarge

<% 'Else %> <%End IF%>