<% sql="Select top 6 * from [info] where vip2=1 and bigclass='日照汽车' Order by vip desc, id asc" %> <%if not (rs.bof or rs.eof) then i=1 do until rs.eof or i>uspage %> <% if i mod 2 =0 then response.write"" end if i=i+1 rs.movenext loop end if %>

<% dim ifsite ifsite=rs("site") if ifsite="http://" then response.write"" else %> " target="_blank"> <%end if%> <% if rs("companypic")<>"" then %>" width="120" height="90" border="0"> <%else%> <%end if%> 名称:<%=cutstr(trim(rs("company")),32)%> 地址:<%=cutstr(rs("address"),32)%> 电话:<%=trim(rs("phone"))%> 网址:<% if ifsite="http://" then response.write"http://"&Request.ServerVariables("HTTP_HOST")&"/"&rs("id")&".html" else %> " target="_blank"><%=trim(rs("site"))%> <% end if %>

<% rs.close Set rs=nothing%>