<% dim rst,sqlt set rst=server.createobject("adodb.recordset") sqlt="select top 8 * FROM comp where icheck=True and xkz like"&"'%正在筹建%'"&" order by id desc" rst.open sqlt,conn,1,1 i=1 %> <% do while not rst.eof %> <%if i mod 4 = 0 then%> <% end if rst.movenext i=i+1 loop rst.close %>

" target="_blank">" height="100" width="120" /> " target="_blank"><%=rst("company")%> 类型:<%=rst("leibie")%> 电话:<%if left(trim(rst("tel")),5)="0771-" then%> <%=left(trim(rst("tel")),12)%> <%else%> <%=left(trim(rst("tel")),7)%> <%end if%>

<% dim rst2,sqlt2 set rst2=server.createobject("adodb.recordset") sqlt2="select top 8 * FROM comp where icheck=True and xkz like"&"'%销%中%'"&"" sqlt2=sqlt2 & " order by ontop asc, id desc" rst2.open sqlt2,conn,1,1 j=1 %> <% do while not rst2.eof %> <%if j mod 4 = 0 then%> <% end if rst2.movenext j=j+1 loop rst2.close %>

" target="_blank">" height="100" width="120" /> " target="_blank"><%=rst2("company")%> 类型:<%=rst2("leibie")%> 电话:<%if left(trim(rst2("tel")),5)="0771-" then%> <%=left(trim(rst2("tel")),12)%> <%else%> <%=left(trim(rst2("tel")),7)%> <%end if%>