<%=homepage_caption%>(<%=companyname%>)

,<%=companyname%> name=description>

<% dim news_dt,sql_news_dt,dt set news_dt=server.CreateObject("adodb.recordset") sql_news_dt="Select top 8 * from news where cataid=1 order by id desc" news_dt.Open sql_news_dt,conn,1,1 if not news_dt.eof then dt=1 do while not news_dt.EOF %> ', '_blank')" style="CURSOR:hand" <%if dt mod 2=0 then response.Write"bgcolor=#ECFFFF"%> onMouseOver="this.style.backgroundColor='#DFDFDF';" onMouseOut="this.style.backgroundColor='';"> <% news_dt.movenext dt=dt+1 loop end if news_dt.close set news_dt = nothing %>

·<%=news_dt("title")%>

区域

地段

类型

楼层

面积

价格

日期

<% Set Rs=Server.CreateObject("ADODB.Recordset") Sql="select * from zj where sh='1' and tj='1' order by tj desc, uptime desc,id desc" Rs.Open Sql,conn,1,1 Do While Not Rs.Eof stime=rs("uptime") xtime=date()-stime stime= month(stime)&"-"&day(stime) if xtime<=1 then stime= month(stime)&"-"&day(stime) stime=""&stime&"" end if %> ', '_blank')" style="CURSOR:hand" onMouseOver="this.style.backgroundColor='#DFDFDF';" onMouseOut="this.style.backgroundColor='';"> <% Rs.MoveNext Loop Rs.Close %>

<%if rs("Sold") ="1" then%> 成交 <% else%> · <% end if%>

<%=rs("chanquan")%>

<%=Trim(left(rs("weizhi"),6))&""%>

<%=rs("lflx")%>

<%=rs("lc")%>

<%=rs("mianji")%>㎡

<%=rs("jiage")%><%=rs("jgdw")%>

<%=stime%>

禧龙房产出租信息

更多>>

<% fxxlb="出租" Set Rs=Server.CreateObject("ADODB.Recordset") Sql="select top 9 * from zj where sh='1' and xxlx='"&fxxlb&"' order by tj desc, uptime desc,id desc" Rs.Open Sql,conn,1,1 Do While Not Rs.Eof stime=rs("uptime") xtime=date()-stime stime= month(stime)&"-"&day(stime) if xtime<=1 then stime= month(stime)&"-"&day(stime) stime=""&stime&"" end if %> ', '_blank')" style="CURSOR:hand" onMouseOver="this.style.backgroundColor='#DFDFDF';" onMouseOut="this.style.backgroundColor='';"> <% Rs.MoveNext Loop Rs.Close %>

	区域	地段	类型	楼层	面积	价格	日期
<%if rs("Sold") ="1" then%>已租 <% else%> · <% end if%>	<%=rs("chanquan")%>	<%=Trim(left(rs("weizhi"),6))&""%>	<%=rs("lflx")%>	<%=rs("lc")%>	<%=rs("mianji")%>㎡	<%=rs("jiage")%><%=rs("jgdw")%>	<%=stime%>

禧龙房产出售信息

更多>>

<% fxxlb="出售" Set Rs=Server.CreateObject("ADODB.Recordset") Sql="select top 9 * from zj where sh='1' and xxlx='"&fxxlb&"' order by tj desc, uptime desc,id desc" Rs.Open Sql,conn,1,1 Do While Not Rs.Eof stime=rs("uptime") xtime=date()-stime stime= month(stime)&"-"&day(stime) if xtime<=1 then stime= month(stime)&"-"&day(stime) stime=""&stime&"" end if %> ', '_blank')" style="CURSOR:hand" onMouseOver="this.style.backgroundColor='#DFDFDF';" onMouseOut="this.style.backgroundColor='';"> <% Rs.MoveNext Loop Rs.Close %>

	区域	地段	类型	楼层	面积	价格	日期
<%if rs("Sold") ="1" then%> 已售 <% else%> · <% end if%>	<%=rs("chanquan")%>	<%=Trim(left(rs("weizhi"),6))&""%>	<%=rs("lflx")%>	<%=rs("lc")%>	<%=rs("mianji")%>㎡	<%=rs("jiage")%><%=rs("jgdw")%>	<%=stime%>

禧龙房产求租信息

更多>>

<% fxxlb="求租" Set Rs=Server.CreateObject("ADODB.Recordset") Sql="select top 9 * from zj where sh='1' and xxlx='"&fxxlb&"' order by tj desc, uptime desc,id desc" Rs.Open Sql,conn,1,1 Do While Not Rs.Eof stime=rs("uptime") xtime=date()-stime stime= month(stime)&"-"&day(stime) if xtime<=1 then stime= month(stime)&"-"&day(stime) stime=""&stime&"" end if %> ', '_blank')" style="CURSOR:hand" onMouseOver="this.style.backgroundColor='#DFDFDF';" onMouseOut="this.style.backgroundColor='';"> <% Rs.MoveNext Loop Rs.Close %>

	区域	地段	类型	楼层	面积	价格	日期
<%if rs("Sold") ="1" then%> 已租 <% else%> · <% end if%>	<%=rs("chanquan")%>	<%=Trim(left(rs("weizhi"),6))&""%>	<%=rs("lflx")%>	<%=rs("lc")%>	<%=rs("mianji")%>㎡	<%=rs("jiage")%><%=rs("jgdw")%>	<%=stime%>

禧龙房产求购信息

更多>>

<% fxxlb="购房" Set Rs=Server.CreateObject("ADODB.Recordset") Sql="select top 9 * from zj where sh='1' and xxlx='"&fxxlb&"' order by tj desc, uptime desc,id desc" Rs.Open Sql,conn,1,1 Do While Not Rs.Eof stime=rs("uptime") xtime=date()-stime stime= month(stime)&"-"&day(stime) if xtime<=1 then stime= month(stime)&"-"&day(stime) stime=""&stime&"" end if %> ', '_blank')" style="CURSOR:hand" onMouseOver="this.style.backgroundColor='#DFDFDF';" onMouseOut="this.style.backgroundColor='';"> <% Rs.MoveNext Loop Rs.Close %>

	区域	地段	类型	楼层	面积	价格	日期
<%if rs("Sold") ="1" then%> 已购 <% else%> · <% end if%>	<%=rs("chanquan")%>	<%=Trim(left(rs("weizhi"),6))&""%>	<%=rs("lflx")%>	<%=rs("lc")%>	<%=rs("mianji")%>㎡	<%=rs("jiage")%><%=rs("jgdw")%>	<%=stime%>

<% sql="select * from dctitle order by dateandtime desc" rs.open sql,conn,1,1 if rs.eof then response.write "" else titleid=trim(rs("id")) %> <% rs.close sql="select * from dcdetail where titleid="&titleid&" order by id desc" rs.open sql,conn,1,1 do while not rs.eof %> <% rs.movenext loop rs.close set rs=nothing end if %>

现在还没有记录
<%=rs("title")%>
" class="box">	<%=rs("name")%>

<% dim news_lch,sql_news_lch set news_lch=server.CreateObject("adodb.recordset") sql_news_lch="Select top 6 * from news where cataid=6 order by id asc" news_lch.Open sql_news_lch,conn,1,1 if not news_lch.eof then do while not news_lch.EOF %> ', '_blank')" style="CURSOR:hand"> ', '_blank')" style="CURSOR:hand"> <% news_lch.movenext loop end if news_lch.close set news_lch = nothing %>

·<%=news_lch("title")%>

<% dim news_hy,sql_news_hy set news_hy=server.CreateObject("adodb.recordset") sql_news_hy="Select top 6 * from news where cataid=3 order by id desc" news_hy.Open sql_news_hy,conn,1,1 if not news_hy.eof then do while not news_hy.EOF %> ', '_blank')" style="CURSOR:hand" onMouseOver="this.style.backgroundColor='#F5F5F5';" onMouseOut="this.style.backgroundColor='';"> <% news_hy.movenext loop end if news_hy.close set news_hy = nothing %>

·<%=news_hy("title")%>

<% dim news_fx,sql_news_fx set news_fx=server.CreateObject("adodb.recordset") sql_news_fx="Select top 6 * from news where cataid=4 order by id desc" news_fx.Open sql_news_fx,conn,1,1 if not news_fx.eof then do while not news_fx.EOF %> ', '_blank')" style="CURSOR:hand" onMouseOver="this.style.backgroundColor='#F5F5F5';" onMouseOut="this.style.backgroundColor='';"> <% news_fx.movenext loop end if news_fx.close set news_fx = nothing %>

·<%=news_fx("title")%>