<%
dim sql,objRS,objRS_path
dim sortid,citydq,myurl,thistitle,thistitle2,n
dim i
dim thispath
dim pagecount,currpage,Spage,Epage,recordcount,logo,siteabout

myurl=Request.ServerVariables("script_name")
sortid = Request.QueryString("sortid")
citydq = Request.QueryString("citydq")
currpage = request.querystring("currpage")

%>