<% 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屄岥堦棩1,500墌偱偡丅

扐偟丄彜昳偺戝偒偝偑摿庬偺応崌偼丄彜昳偛偲偵攝憲椏傪昞帵偟偰偁傞応崌偲暿搑

攝憲椏傪惪媮偝偣偰偄偨偩偔応崌傕偁傝傑偡丅

仧敪憲椏偼1屄岥偺壙奿偱偡丅彜昳偺悢傗戝偒偝丄晅懏昳偵傛偭偰偼2屄岥偵

側傞壜擻惈偑偁傞偙偲傪偛梕幫壓偝偄丅

棧搰偺応崌偼丄暿搑棧搰椏嬥偑偐偐傝傑偡丅偦偺応崌偼暿搑偛楢棈偄偨偟傑偡丅

仧憲椏偵偼崼曪戙嬥側偳偑娷傑傟偰偍傝傑偡丅憲椏偼摉幮偺採嫙偡傞僒乕價僗

偺傂偲偮偺偨傔徚旓惻偑偐偐傝傑偡丅

仸 偍撏偗愭偼偛帺戭偺傒偟偐偍庴偗偱偒傑偣傫偺偱偛拲堄偔偩偝偄丅

攝払庤懕偒廔椆屻丄埲壓偺婜娫偑捠忢偺偍撏偗傑偱偺栚埨偲側傝傑偡丅

晛捠峲嬻曋丂丂丂栺1乣2廡娫

彂棷峲嬻曋丂丂丂栺6乣9擔

俤俵俽曋丂丂丂丂 丂栺7擔

扐偟丄偙偺婜娫偼偁偔傑偱栚埨偲側傝傑偡偺偱偛椆彸偔偩偝偄丅

奀奜偺棳捠帠忣偵傛傝3廡娫掱搙偐偐傞応崌偑偁傝傑偡丅

攝払偺嵺丄偛晄嵼偺応崌偼晄嵼捠抦戙傢傝偵搳敓偝傟傑偡偺偱

撪梕傪偍撉傒偵側傝丄梄曋嬊傊庢傝偵峴偭偰偔偩偝偄丅

梄曋嬊偺梐偐傝婜娫傪夁偓傑偡偲丄敪憲尦乮奀奜乯傊憲傝曉偝傟傑偡偺

偱偛拲堄偔偩偝偄丅

乮偙偺応崌嵞拲暥偲側傝丄嵞搙旓梡偑敪惗偡傞偙偲傕偁傝傑偡丅乯

傕偟丄3廡娫宱偭偰傕彜昳偑撏偐側偄応崌丄梄曋帠屘偵姫偒崬傑傟偨

壜擻惈偑偁傝傑偡偺偱丄偛楢棈偔偩偝偄丅

嵞敪憲偺庤懕偒傪偝偣偰捀偒傑偡丅

 
 
 

 

 

 

 

 

 

 

 

 

 
 

 

 

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