Hotels Search

<%@Language="VBScript" %> <% 'SESSION.Contents.RemoveAll() userid1=trim(request("userid1")) session("userid")=trim(request("userid1")) %> Hotels Search

<% userid1=trim(request("userid1")) Dim conn ' Connnection Object Call getconnection(conn) Dim Rs ' Recordset Object Dim Sql Sql="select distinct b.rid,b.cid,b.name from planet_hotel a, region_country b,hc_hotel_roomprice c where a.cid=b.cid and a.city_id=c.city_id and c.active=1 order by b.name" Set Rs=Conn.Execute(Sql) dispheader="Hotels Search" %>

Home > Hotels

"/>

Select Country:

<% response.write "" & vbnewline %>

Check In Date:

Check Out Date:

<%For i = 1 to 9%> <%Next%>

Rooms	Adults	Child	Child age

Select Country:

<% Dim Rsn ' Recordset Object Dim Sql1 Sql1="select distinct cid,name from region_country order by name" Set Rsn=Conn.Execute(Sql1) %>