<% if rscz.bof and rscz.eof then response.write "管历鸨暂时没有铁赜房源!" else while not rscz.eof%> <% rscz.movenext wend end if rscz.close set rscz=nothing %>
     

<% if rscs.bof and rscs.eof then response.write "管历鸨暂时没有铁赜房源!" else while not rscs.eof%> <% rscs.movenext wend end if rscs.close set rscs=nothing %>
     

麷棿徣庡梫搒巗
 
 僴儖僺儞
    揝摴偵傛傝僔儀儕傾傊捠偠傞搶杒垷嵶垷偺岎捠偺

幉偱偁傞僴儖價儞偼丄拞崙偱嵟傕杒晹偵埵抲偡傞麷棿

峕徣偺徣搒丅巗偺憤柺愊偼1枩8432倠倣2丄恖岥偼

570枩恖丅7嬫5導偵暘偗傜傟丄奨偺側偐傪徏壴峕偑

備偭偔傝偲棳傟偰偄傞丅

19悽婭枛傑偱彫偝側嫏懞偵偡偓側偐偭偨僴儖僺儞偵寑揑側曄壔傪惗偠偝偣偨偺偑丄

惔挬偲掗惌岥僔傾偺巟攝偺壓丄恖岥偼媫寖偵憹偊丄僴儖僺儞偼嬤戙搒巗偲偟偰戝

偒側曄杄傪悑偘偨丄20悽婭弶摢偵偼廐椦岞巌傗攏揜昽娰偲偄偭偨尰嵼傕巆傞挊柤側

墷晽寶抸偑悢懡偔寶偰傜傟丄偙傟傜偺墷晽寶抸暔偑偁傞偙偲偵傛偭偰崱擔偺


僴儖僺儞偼  搶曽偺儌僗僋儚丄搶曽偺彫僷儕側偳偲屇偽傟偰偄傞丅 
僠僠僴儖
    僟僼乕儖岅偱曈嫬傪堄枴偡傞僠僠僴儖偺奨偼丄惔

墹挬帪戙偺1691擭偵憿傜傟偨丅300擭埲忋偺楌巎傪

桳偡傞麷棿峕徣惣晹偺宱嵪偦偟偰暥壔偺拞怱抧偱丄

麷棿峕徣戞擇偺婯柾傪屩傞丅巗偼7偮偺嬫偲侾侾偺導偵

暘偗傜傟丄憤柺愊偼俆枩2600倠倣2丅恖岥偼栺俆俋侽枩恖丅
 
偦偺偆偪巗奨嬫偺恖岥偼侾係侽枩恖偵払偡傞丅娍懓偺曽偐偵丄夞懓丄儌儞僑儖懓丄挬慛
 
枮廈懓丄僟僼乕儖懓丄僄償僃儞僉懓側偳俀侽埲忋偺彮悢柉懓偑廧傫偱偄傞丅廃埻偵

偼憪尨偑峀偑傝丄梀杚惗妶傪憲傞恖恖傕懡偄丅朙偐傜帺慠偑偦偺傑傑巆偭偰偍傝丄峹
 

奜偺壏尮偼掃傪偼偠傔偲偟偰懡偔偺搉傝塆偑塩憙抧偲偡傞偲偙傠偱丄儔儉僒乕儖忦栺偵

傛偭偰曐岇偝傟偰偄傞丅
 
 
 

<% set rsTOP=server.createobject("adodb.recordset") sqlTOP="select top 6 * from news where mytype='热点新闻' order by lls desc" rsTOP.open sqlTOP,conn,3,3 for i=1 to 10 %> <% rsTOP.movenext if rsTOP.eof then exit for next rsTOP.close %>
 

<% set rsnew=server.createobject("adodb.recordset") sqlnew="select top 6 * from news where mytype='房产新闻' order by id desc" rsnew.open sqlnew,conn,3,3 for i=1 to 10 %> <% rsnew.movenext if rsnew.eof then exit for next rsnew.close %>
 

<% dim t Set RsSmall=Server.Createobject("ADODB.Recordset") RsSmallSrt="select top 14 * from news where mytype='房产知识' order by id desc" RsSmall.Open RsSmallSrt,Conn,1,3 %> <% t=0 while not RsSmall.eof %> <% t=t+1 if t=2 then t=0 %><% end if RsSmall.movenext wend %>