<%@ 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%>

 

 
Tours
For more than two thousands years, Egypt has been one of the great travel destinations of the world. The majestic ruins of its temple and tombs, the fascination of its bazaars and above all the timeless beauty of the ancient river Nile, have never failed to leave and indelible impression on travelers.
We know that a trip to Egypt can enhance and change you're life.

With the unparalleled talents of our team, and the very special difference they make, we invite you to experience that unique Egyptian magic through the eyes of Decastro Tours.
Day Trips Offers  
<% ' Code for listing tours Dim sql, i Tpe="Tour" subtpe="Day Trips" 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%> <%=sPacDesc%>
No Available Tours