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






About Decastro Tours
Decastro tours offer a high quality of service to its clients as our aim is simply best service and customer satisfaction.

Our company tends to be at you're highest expectations and serve you at the best level by our professional and dedicated staff and management.

Decastro tours was established in 1953 and has been operating tours and developing business for almost 55 years. Now Decastro is one of the leading travel agencies in Egypt.

We are located in the heart of Alexandria, Egypt with another branch in Cairo.
We are a member in the ministry of tourism with license number two in Egypt.
Member of IATA organization.

We are specialized in:
- Outgoing groups and packages.
- Arrange special packages upon customer request to any destination.
- Airline ticketing.
- Tours and excursions inside Egypt.
- Hotel reservation worldwide.
- Hag and Omra.
- Nile cruises packages.
- Short excursions and quick trips.
- Visa facilities for inbound and outbound travelers.
- Railway and sleeper train booking.