<%@ Language=VBScript %> <% ' The following is the code for the scrolling news ticker. Dim sTxt, sHtml1, sHtml2, sHtml3, sHtml4, sHtml5, sHtml6, sHtml7, strSQL Set RsGuestList = Server.CreateObject ("ADODB.Recordset") RsGuestList.ActiveConnection = OBJdbConnection RsGuestList.CursorType = 1 RsGuestList.LockType = 1 RsGuestList.Open "select * from news order by NewsDate DESC" sHtml1 = "

" sHtml2 = "" sTxt = sTxt & sHtml1 & sHtmlDate & "
" & sHtml2 & _ RsGuestList("NewsID") & sHtml4 & sHtml6 & RsGuestList("NewsTitle") & sHtml7 RsGuestList.movenext loop end if %> <% '============ Random Images Function ======================================================= Function RandomImage(strPath,strDefault) On Error Resume Next Randomize Timer Dim objFSO, objFolder, objFiles, objFile Dim strFiles, strImages, strPhysical, strFile Const strValid = ".gif.jpg.png.swf" If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47) strPhysical = Server.MapPath(strPath) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysical) Set objFiles = objFolder.Files For Each objFile in objFiles strFile = LCase(objFile.Name) If Instr(strValid,Right(strFile,4)) Then strFiles = strFiles & strFile & vbTab End If Next strImages = Split(strFiles,vbTab) If UBound(strImages) > 1 Then RandomImage = strPath & strImages(Int(Rnd(1)*UBound(strImages))) Else RandomImage = strDefault End If End Function %> DeCastro Tours, your gateway to Egypt .... www.decastrotours.com

shadow

home

sitemap

contact
 
 
 
<%=sTxt%>

 

 
Cruises
Decastro Tours organize cruises packages and trips to the most beautiful places in Egypt for example on the Nile and Lake Nasser. You will explore the ultimate Egyptian experience on the Nile cruise.

Our team constantly searches for new cultural experience to meet every budget. Enjoy the most interested Nile cruise with first class and 5 stars ships to Luxor and Aswan.
Cruise Offers  
<% ' Code for listing excursions Tpe="Cruises" subtpe="Cruises" set Rspactlist = Server.CreateObject ("ADODB.Recordset") Rspactlist.ActiveConnection = OBJdbConnection Rspactlist.CursorType = 1 Rspactlist.LockType =1 chkpaccode= "select * from Pactype where Pactype='"&tpe&"' and Pacsubtype='"&subtpe&"'" Rspactlist.Open chkpaccode ptid = Rspactlist("pactypeid") Rspactlist.close set rspac=Server.CreateObject("ADODB.Recordset") sql="SELECT * FROM Package where PacTypeId="&ptid rspac.Open sql,OBJdbConnection,1,1 IF not rspac.eof then i=0 DO while not rspac.eof sPacid=rspac("PacId") sPacTypeId=rspac("PacTypeId") sPacCode=rspac("PacCode") sPacDesc=rspac("PacDesc") spacPrivate=rspac("PacPrivate") sPacTitle=rspac("PacTitle") i=i+1 %> <% rspac.MoveNext Loop else%> <% end if rspac.close %>
<%=i%>- <%=sPacTitle%>
No Available Cruises