<% Response.AddHeader "Pragma", "no-cache" Response.AddHeader "Cache-control", "private" Response.AddHeader "Expires", "Fri, 31 May 1996 18:30:14 GMT" if(request("pageno")="") then pageno="1" else pageno=request("pageno") end if if not isArray(application("countries")) then ScriptPath=request.servervariables("PATH_TRANSLATED") fpos=instrrev(ScriptPath, "\") physicalpath=left(ScriptPath, fpos) sPath = StrReverse(Request.ServerVariables("SCRIPT_NAME")) sPath = StrReverse(Mid(sPath, InStr(1, sPath, "/"))) sPath = Server.MapPath(sPath) response.write(physicalpath) response.write(spath) ' response.End() Set Conn=Server.CreateObject("ADODB.Connection") Conn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& physicalpath & "travel.mdb" set rs = Server.CreateObject("ADODB.Recordset") rs.cursortype=adopenstatic Set rs=Conn.execute("Select id, country from country order by country") application.lock application("countries")=rs.getrows() application.unlock end if countrylist=application("countries") for i=0 to ubound(countrylist,2) if cstr(countrylist(0,i))=request.querystring("country") then countryname=countrylist(1,i) exit for end if next ScriptPath=request.servervariables("PATH_TRANSLATED") fpos=instrrev(ScriptPath, "\") physicalpath=left(ScriptPath, fpos) Set Conn=Server.CreateObject("ADODB.Connection") Conn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& physicalpath & "travel.mdb" Set rs=Conn.execute("Select id, city, countryid, news from cities order by city") if not rs.eof then application.lock application("cities")=rs.getrows() application.unlock end if acitylist=application("cities") if isArray(acitylist) then dim citylist() cityfound=false citycount=0 for i=0 to ubound(acitylist,2) if cstr(acitylist(2,i))=request.querystring("country") then cityfound=true redim preserve citylist(2,citycount) citylist(0,citycount)=acitylist(0,i) citylist(1,citycount)=acitylist(1,i) citylist(2,citycount)=acitylist(2,i) citycount=citycount+1 end if next if not cityfound then erase citylist else for i=0 to ubound(citylist,2) if cstr(citylist(0,i))=request.querystring("city") then cityname=citylist(1,i) exit for end if next end if Erase acitylist end if if not request.querystring("city")="" then if not isObject(Conn) then ScriptPath=request.servervariables("PATH_TRANSLATED") fpos=instrrev(ScriptPath, "\") physicalpath=left(ScriptPath, fpos) Set Conn=Server.CreateObject("ADODB.Connection") Conn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& physicalpath & "..\data\travel.mdb" end if rqu=("Select * from hotels1,user where user.username=hotels1.userid and user.allowed=yes and hotels1.cityid="& request.querystring("city") &" Order by hotels1.category Desc") set Rs = Server.CreateObject("ADODB.Recordset") Rs.cursortype=adopenstatic rs.pagesize=10 rs.OPEN RQU,CONN end if %> Heritage Hotels In India, Hotels in India, Heritage Hotels in Rajasthan,safaris,rajasthan,major circuits,road side villages,culture,custom,former maharajas,havelis
Heritage Hotels in India, Heritage Hotels in Rajasthan, Heritage Hotels

Heritage Member Websites

Heritage Hotels in India

Heritage Hotels in Rajasthan

 
<% if(request.querystring("country")="") then%>

Select a country.: <%end if%> <%if request.querystring("city")="" then%> <% if cityfound=true then%>

Select a city.:       <% %> <%%> <% else %>

No cities found in <%=countryname%> in our records.
In case your city does not figure in our database, please email
us and we will create the CITY PAGE for you within 24 hours. 

<% 'response.end end if end if%> <% if(request("city")<>"") then if (not rs.eof) then %>
Cities in "><%=countryname%>    

Hotels in <%=cityname%>

<%i=1 rs.pagesize=10 'response.write pageno rs.Absolutepage=pageno rowcount=0 i=1 while ((not rs.eof )and (rowcount<10)) rowcount=rowcount+1 if(i=1) then color="#FFE3BB" else color="#FFFFFF" end if %> <% if(i=0) then i=1 else i=0 end if rs.movenext wend %>
Name
')"><%=rs("name")%>

To Include you full hotel details on this list, Please Register Now!

<% else %>
Cities in "><%=countryname%>    

No Hotels could be located in <%=cityname%>.

<% end if end if %>