<%=rs("ntitle")%>-<%=rs("lpmc")%>楼盘图展示-武鸣信息网

<% id= Request.QueryString("id") Set rs= Server.CreateObject("ADODB.Recordset") sql="select * from pic where id="&id rs.open sql,conn,3,3 compid=rs("compid") id=rs("id") company=session("company") %> <%=rs("ntitle")%>-<%=rs("lpmc")%>楼盘图展示-武鸣信息网

<% Set rst= Server.CreateObject("ADODB.Recordset") sqlt="select * from comp where icheck=True and id="&compid rst.open sqlt,conn,1,1 %> <%if rst("adflash")<>"" then%>

<%else%>

<%end if%> <% 'rst.close 'set rst=nothing %>

你的位置：" target="_blank" > <%=rs("lpmc")%>楼盘资料 >>> " target="_blank" > 楼盘图库>>><%=rs("ntitle")%>

<%=Nextphoto(rs("id"),1)%>

<%=Nextphoto(rs("id"),2)%>

" target="_blank"> 点击查看全图

" target="_blank">

"border="0" />

<%=rs("ntitle")%>

<%=rs("ncontent")%>

<%=Nextphoto(rs("id"),1)%>

<%=Nextphoto(rs("id"),2)%>

<% Dim smallpic,pic Set rs_s= Server.CreateObject("ADODB.Recordset") sql_s="select top 7 ID,smallpic,pic from pic where compid='"&compid&"' and pictype<>"&"'户型图'"&" order by id desc" rs_s.open sql_s,conn,1,1 i=1 do while not rs_s.eof smallpic=rs_s("smallpic") pic=rs_s("pic") If smallpic<>"" Then smallpic=smallpic Else smallpic=pic End If %> <%if i mod 7 = 0 then%> <% end if rs_s.movenext i=i+1 loop %>

图片评论

<% sql5="select top 8 * from message where lytype='图库留言' and compid='"&compid&"' order by id desc" Set rs5=Server.CreateObject("ADODB.RecordSet") rs5.Open sql5,conn,1,1 do while not rs5.eof %> <% rs5.movenext loop rs5.close set rs5=nothing %>

留言人：<%=rs5("user")%> 留言时间：<%=rs5("mdate")%>

<%=left(rs5("mcontent"),200)%>

查看更多留言

签写您对本楼盘的留言：
昵称：
内容：
	请文明发言，尊重别人也是尊重自己！声明，此留言仅代表网友观点，不代表武鸣信息网观点，武鸣信息网只提供大家交流平台

县城楼盘

<% set rst2=server.createobject("adodb.recordset") sqlt2="SELECT * FROM comp where icheck=True and city<>"&"'武鸣市'"&" order by id desc" rst2.open sqlt2,conn,1,1 j=1 %> <% do while not rst2.eof %> <%if j mod 2 = 0 then%> <% end if rst2.movenext j=j+1 loop rst2.close set rst2=nothing %>

" target="_blank"><%=(left(rst2("company"),5))%>

<% function Nextphoto(id,typea) dim typeid set rsa=Server.CreateObject("ADODB.Recordset") if typea=2 then sqla="select top 1 * from pic where pictype='户型图' and compid='"&compid&"' and id<"&id &" order by id desc" rsa.open sqla,conn,3,3 if not(rsa.eof or err) then typeid=rsa("id") Nextphoto="

下一页" else Nextphoto="

下一页" end if else sqla="select top 1 * from pic where pictype<>'户型图' and compid='"&compid&"' and id>"&id rsa.open sqla,conn,3,3 if not(rsa.eof or err) then typeid=rsa("id") Nextphoto="上一页

" else Nextphoto="上一页

" end if end if rsa.close set rsa=nothing end function %>