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

 

 
Meet and Assist
Decastro Tours offers you the best service once you arrive at any airports in Egypt. Our representatives will be waiting for you and will take care of everything while you will be waiting in the VIP lounge.

Our meet and assist service includes:
- Private car waiting for you upon landing to pick you up near the runway and drive you up to the terminal.
- Waiting in the VIP lounge till your passport procedures are finished and luggage are handled.
<% else%>
<% ' Code for listing Meet and Assist Dim sql set rsmeet=Server.CreateObject("ADODB.Recordset") sql="SELECT * FROM MeetAssist Order By MetArrival" rsmeet.Open sql,OBJdbConnection,1,1 IF not rsmeet.eof then n=1 %>
Meet and Assist Offers  
Below listed prices are per person
<% DO while not rsmeet.eof sMetid=rsmeet("MetId") sMetArrival=rsmeet("MetArrival") sMetArrivalNgt=rsmeet("MetArrivalNgt") sMetArrivalDay=rsmeet("MetArrivalDay") if rsmeet("Metdescription")<>"" then sptxt= rsmeet("Metdescription") sPtxt=Replace(sptxt, vbCrLf, "
") end if %> <% rsmeet.MoveNext n=n+1 Loop rsmeet.close %>
Arrival Port Arrival By Night Arrival During Day Time Description
<%=n%>- <%=sMetArrival%> <%=sMetArrivalNgt%> <%=sMetArrivalDay%> <%=sPtxt%>
 
 
Reserve this package  
First Name:
Last Name:
Address:
City:
Zip/Postal Code:
Country:
Telephone:
Fax:
E-mail:
Comments:
  <% set rsmeet=Server.CreateObject("ADODB.Recordset") sql="SELECT * FROM MeetAssist Order By MetArrival" rsmeet.Open sql,OBJdbConnection,1,1 IF not rsmeet.eof then%> <% end if%>

Meet and Assist choice

  Night    Day Time   

No. Of Travelers

Adult Child

Preferred date for the trip

Arrival Time (Local Egyptian time)

Preferred payment method

Wire transfer    Check    Collect

 

Meet and Assist Offers  
No Available Meet and Assist
 
 
<% end if %>