<%
dim sql,dbs,rent,lease,i,sell,zfzn,j
set dbs = new DBConn
sql = "select top 15 rent.id,city,province,houseaddr,buildsize,price,payunit,houseroom,househill,houseloo,savedate from rent,city,province"
sql=sql+" where city.id = rent.cityid and province.id = rent.provid and renttype = 'lease' order by rent.id desc"
lease = dbs.getdata(sql)
sql = "select top 17 rent.id,city,province,houseaddr,buildsize,price,payunit,houseroom,househill,houseloo,savedate from rent,city,province"
sql=sql+" where city.id = rent.cityid and province.id = rent.provid and renttype = 'rent' order by rent.id desc"
rent = dbs.getdata(sql)
sql = "select top 20 id,title from news where type = '租房指南' order by id desc"
zfzn = dbs.getData(sql)
set dbs = nothing
%>
