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

 

 
Hotel Reservation
Accommodation is an essential part of enjoying one's holiday that’s why Decastro Tours tend to get you the best offers and competitive rates to the finest hotels all over the world.
 
Reserve your hotel  
 
IATA No. if available
Other Travel Org. No.
   
Title:
First Name:
Last Name:
Nationality:
Address:
City:
Zip/Postal Code:
Country:
Telephone:
Fax:
E-mail:
   

Traveling Information

Arrival Date:
Departure Date:
Class/Grade: RR BB HB FBAll inclusive
Star Rating: 1   2   3   4   5
   
 
 

No. of Guests

Room type No of Rooms (Adults) No. of Children
Single
Double  
Twin No. of Infants
Triple
Quad  
 

Traveling Categories

Business Fairs & Events
Leisure Educational Trip
Group Recreation Tour
School excursion Health and Wellness Trip
Honeymoon Religious and Pilgrimage Visit
   
Destination Country
Recommended city to go  Recommended hotel  

 

Comments: