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






Decastro Tours constantly organizes packages in unique destinations into Egypt and abroad those meet the needs of our clients, but also ensure that we are able to offer something unique.

Our creative product and package development team always searches out for new possibilities and new destinations to explore something new that you never explored.

We also organize honeymooner's packages all over the world.
Special Package Offers  
<% ' Code for listing Packages Dim sql, i Tpe="Packages" subtpe="Special Packages" 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 Packages