% response.buffer=true %>
<%
strSQL="select houseID,houseCode,wyName,district,address,wytype,roomNum,hallNum,toiletNum,cfNum,ytnum,floor,buildsize,rent from hireHouse Where tuijian=1"
Set rsHire = conn.execute(strsql)
strSQL="select houseID,wyName,district,address,roomNum,hallNum,toiletNum,cfNum,ytnum,buildsize,rent from hireHouse where isNew=1"
Set rsHireRec = conn.execute(strsql)
strSQL="select houseID,houseCode,wyName,district,address,wytype,roomNum,hallNum,toiletNum,cfNum,ytnum,floor,buildsize,houseOld,belongTo,unitPrice,totalPrice from sellHouse Where tuijian=1"
Set rsSell = conn.execute(strsql)
strSQL="select houseID,wyName,district,address,roomNum,hallNum,toiletNum,cfNum,ytnum,buildsize,totalPrice from sellHouse where isNew=1"
Set rsSellRec = conn.execute(strsql)
strSQL="select top 50 houseID,wyName,district,address,roomNum,hallNum,toiletNum,cfNum,ytnum,buildsize,rent from hireHouse where isNew=0 order by inputdate desc"
Set rsHireRec50 = conn.execute(strsql)
strSQL="select top 50 houseID,wyName,district,address,roomNum,hallNum,toiletNum,cfNum,ytnum,buildsize,totalPrice from sellHouse where isNew=0 order by inputdate desc"
Set rsSellRec50 = conn.execute(strsql)
strSQL="select top 50 houseID,district,wyType,roomNum,hallNum,toiletNum,buildsize,rent,roomNumTo,hallNumTo,toiletNumTo,buildsizeTo,rentTo from leaseHouse where isNew=1 order by inputdate desc"
Set rsLeaseRec50 = conn.execute(strsql)
strSQL="select top 50 houseID,wyType,district,roomNum,hallNum,toiletNum,buildsize,totalPrice,roomNumTo,hallNumTo,toiletNumTo,buildsizeTo,totalPriceTo from buyHouse where isNew=1 order by inputdate desc"
Set rsBuyRec50 = conn.execute(strsql)
%>
<%
rsHire.Close
Set rsHire=Nothing
rsSell.close
set rsSell=nothing
rsHireRec.Close
Set rsHireRec=Nothing
rsSellRec.close
set rsSellRec=nothing
conn.close
set conn = nothing
%>