<%
dim user
dim password
dim logout
dim name
dim dbcon
dim rs
pla=request.QueryString("pla")
userval=Request.QueryString("out")
'Open the Connection
Set dbcon=Server.CreateObject("ADODB.Connection")
dbcon.ConnectionString=Session("connect")
dbcon.Open
'*--*-*-*-*-*-*-*-*--**--**-*--**--*-**-*- query result start*-*-*-*-*---**--**-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*--**--*-**--*-*-*
Set rs3=Server.CreateObject("ADODB.Recordset")
if userval="" or userval="0" then
rs3.Open "Select * from monument", dbcon
else
rs3.Open "Select * from monument where heading_id=" & userval , dbcon
end if
if rs3.eof=false then
session("cathead")=rs3("heading")
end if
Set rs4=Server.CreateObject("ADODB.Recordset")
rs4.Open "Select * from placedetail where Scode in("& pla &") " , dbcon
if Session("city")<>"all" then
Set rscity=Server.CreateObject("ADODB.Recordset")
rscity.Open "Select * from city where city_name ='"& Session("city")&"'" , dbcon
pcity=rscity("city_code")
Set rsround=Server.CreateObject("ADODB.Recordset")
rsround.Open "Select * from citysmall where sCode="& pcity &"" , dbcon
end if
%>
Travel Planner
