<% Set rs = ado_query("select top 7 * from pf_news order by pf_news_order desc") Do While Not rs.EOF Set rsc = ado_query("select * from pf_news_category where id = "&rs("pf_news_category")&"") %>
  • <% rsc.Close Set rsc = Nothing rs.movenext Loop rs.Close Set rs = Nothing %>