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

 

 
Privacy Policy
DeCastro Tours is committed to honor the privacy of our customers and visitors.

Use of Information
DeCastro Tours will not share, sell, trade, give or rent any personally identifiable information obtained from you to a third party (apart from those acting as our agents in providing our Service to you & who agree to use it only for that purpose).

The information you supply to DeCastro Tours as your contact information will be used by DeCastro Tours to respond to your inquiries, supplying you with requested services or information on our services. Authorized third parties may be utilized by DeCastro Tours to collect, track and process such information.

We occasionally send out an email newsletter to our customers and interested parties who have submitted their contact information to DeCastro Tours to highlight features of the Service. You can elect not to receive communications from us or from other parties, by replying to our newsletter message and choose to be removed from our mailing list.

Type of Information Collected
The information you supply to DeCastro Tours as your contact information to respond to your inquiries and supplying you with requested services or information on our services.

Other Important Information
We store all user information in secured databases that are protected via a variety of access controls. This data is accessed only for the purposes specified in this privacy statement.

DeCastro Tours web site may contain links to other sites. We do not endorse or otherwise accept responsibility for the content or privacy policies of those sites.

It may be necessary, if required by law or if pertinent to judicial or governmental investigations, to release your personally identifiable information.

By using our Web site, you consent to the collection and use of information by DeCastro Tours as specified above. If we decide to change our privacy policy, we will post those changes on this page so that you are always aware of what information we collect, how we use it, and under what circumstances we disclose it.

If you have submitted personal information to DeCastro Tours electronically and would like it removed or modified, please contact us. We will use reasonable efforts to comply with your request.