% 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 %>
| » |
|
| » |
|
![]() ![]() ![]() |
|
||||||||||||||||||||||||||||||||||