<% 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 %>
     

媑椦徣庡梫搒巗
 
 
媑椦巗
    媑椦巗偼栺420枩恖岥丄媑椦徣戞擇偺搒巗丄尰

嵼偼姃櫜巗丄斨愇巗丄鍊壨巗丄槷棖巗偺4偮偺導

媺巗偲塱埨導偺1導偱峔惉偝傟偰偄傞丅媑椦偼媑椦

徣偺拞墰偵埵抲偟丄挿敀嶳柆偺惣抂偵  偁傞偨傔丄

搶偐偊傜撿偵偐偗偰偼嶳偑偪側抧宍偵  偁傝丄

傜杒偵偐偗偰偼旍梹側搶杒暯尨偑峀偑傞丅巗撪偵偼挿敀嶳傪尮偵偡傞徏壴峕偑俽

帤宆偵幹峴偟偰偄傞丅婥岓偼戝棨惈婥岓偵懏偡傞偨傔丄巐婫偼偼偭偒傝偟偰偄傞偑丄 

 妑嵎偼寖偟偔丄嵟崅婥壏偼37.8搙丄嵟掅婥壏偼-40.2搙傪婰榐偟偰偄傞丅
挿弔
    媑椦徣偺拞晹丄埳捠壨偺斎偵埵抲偡傞挿弔偼丄

6嬫1導3巗傪桳偡傞媑椦偺徣搒丅憤柺愊偼1枩

8800倠倣2丄恖岥偼栺650枩恖丅婥岓偼戝棨惈岓偵

懏偟丄擭娫暯嬒婥壏偑4.6搙乽杒崙弔忛乿  乽嵡杒弔忛乿

偲徧偝傟傞偩偗偁偭偰丄壞偼斾妑揑椓傗偐偱  夁偛偟

傗偡偄丅挿弔偺搒巗偲偟偰偺楌巎偼斾妑揑怴偟偔丄1800擭偵惔挬惌晎偑埳捠壨増

偺挿弔毱偵峴惌婡峔偱偁傞挿弔挕傪寶偰偨偙偲偵巒傑傞丅1悽婭屻偺1932偵偼丄

擔杮孯偵傛傝橒橲崙壠偱偁傞枮廈崙偑寶崙偝傟丄挿弔偼偦偺崙搒怴嫗偲側偭偨丅
 
 
 
 

<% 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 %>