<% if not Request("type_id")="" then V_Type=Request("type_id") Else V_Type=1 End if Session("type_id")=V_type ' *** get page number ******* if Request("page")="" then V_Page=1 Else V_Page=Request("page") End If Set dbConnection=Server.CreateObject("ADODB.CONNECTION") dbConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("database\WhiteBird.mdb") strSqlStat="select * from hotels where publish=True and city_id="&V_type&" order by grade_id desc" Set dbRecordSet = Server.CreateObject("ADODB.Recordset") dbRecordSet.Open strSqlStat, dbConnection, 3,3,8 strSqlStat="select * from cities where city_id="&V_Type 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

 

   

 

 

 




 
">

You are viewing hotels in <%=dbRecordSet1("city_name")%>

 
<% V_stars=0 %>
<% V_stars=0 %>

<% dbRecordSet.AbsolutePage = V_Page For intRecord = 1 To (dbRecordSet.PageSize/1)%> <% ' ********* Display Stars ********************** if Not dbRecordSet.EOF then ' if not dbRecordSet("grade_id")=V_SSStars then%> <% End If V_SSStars= dbRecordSet("grade_id") End if ' ********************************************* %> <%for i=1 to 2%> <% if Not dbRecordSet.EOF then %> <% if dbRecordSet("grade_id")=V_SSStars then%> <% dbRecordSet.movenext End if End if%> <%next%> <%Next%>
<%if not dbrecordset.eof then%>
 
<%response.write(dbRecordSet("grade_id"))%> Stars section :
"> " border="0">
<%=dbRecordSet("hotel_name")%> 
<%end if%>