<% 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")&"") %>
<%=formatdatetime(rs("pf_news_date"),1)%>
" title="<%=rs("pf_news_name")%>"><%=str_left(rs("pf_news_name"),70,"...")%>
<% rsc.Close Set rsc = Nothing rs.movenext Loop rs.Close Set rs = Nothing %>