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

儊儕僢僩
丒擔杮偺俀暘偺侾乣俁暘偺侾丂偺埨偄恖審旓
丒戝楢偼擔杮岅偺榖偣傞拞崙恖恖嵽偑拞崙偺懠搒巗偵斾傋偰懡偄
丒嫵堢丄恖嵽扵偟側偳偍媞條偺梫朷偵墳偠偨嵶偐偄僼僅儘乕
丒倁俷俬俹僎乕僩僂僃僀摫擖偵傛傝擔拞娫偺捠昳僐僗僩戝暆嶍尭
惀旕暰幮偵偛憡択偔偩偝偄丅

 

 

 

 
 

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