<% Set dbConnection=Server.CreateObject("ADODB.CONNECTION") dbConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("database\WhiteBird.mdb") strSqlStat="select * from cities order by city_id asc" Set dbRecordSet1 = Server.CreateObject("ADODB.Recordset") dbRecordSet1.Open strSqlStat, dbConnection, 3,3,8 %>
White Bird Travel
White Bird Travel Home Page About White Bird Travel Egypt   Travel Packages Egypt   Hotels Packages
About Egypt  Egypt   Tours Reservation

 

   

 

 

 




 

Select a destination :

<% recordCount = dbRecordSet1.recordcount Session("counter")=0 %> <% For intRecord = 1 To int(dbRecordSet1.recordcount/3)%> <%next%>
 
 
<%for i=1 to 3%> <%if Not dbRecordSet1.EOF then %> <% Session("counter")=Session("counter") + 1 %> <% dbRecordSet1.movenext End if%> <%next%>
"> " border=0>
<%=dbRecordSet1("city_name")%>
 
<%'Start Change%> <% dbRecordSet1.Close counter=Session("counter") 'Response.Write counter & "
" counter=recordCount-counter 'Response.Write counter & "
" if counter = 1 then %> <% strSqlStat="select * from cities order by city_id desc" dbRecordSet1.Open strSqlStat, dbConnection, 3,3,8 if not dbRecordSet1.eof then %> <% end if %>
"> " border=0>
<%=dbRecordSet1("city_name")%>
<% end if if counter = 2 then %> <% start=0 strSqlStat="select * from cities order by city_id desc" dbRecordSet1.Open strSqlStat, dbConnection, 3,3,8 while not dbRecordSet1.eof and start <> 2 start = start + 1 %> <%'if start=1 then%> <% 'end if dbRecordSet1.MoveNext wend %>
"> " border=0>
<%=dbRecordSet1("city_name")%>
<% end if %> <%'end change%>

Egypt Hotels and Resorts

Best Price on Egypt Hotels and Resorts in any city or Nile Cruise

 

You are searching for hotels in Egypt . To help you find a hotel, we have separated Egypt into several areas - from Cairo to Luxor. To find your hotel, or your Nile cruise just click on the name of the city you want to visit, for more information and for online reservation