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

 

 
Excursions:
In the past few years Decastro Tours has become one of the well known companies for handling short excursions for transient guests landing on any Egyptian seaports including Alexandria, Safaga, Port Said, and Ein El Sokhna.
Excursions from Hurghada  
<% ' Code for listing excursions Dim sql, i Tpe="Excursions" subtpe="From Hurghada" 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 Excursions