% dim rs_news1,rsnews2 set rs_news1=server.CreateObject("adodb.recordset") set rs_news2=server.CreateObject("adodb.recordset") rs_news1.Open "select top 8 * from news WHERE type=1 ORDER BY id DESC",conn,1,1 rs_news2.Open "select top 8 * from news WHERE type=2 ORDER BY id DESC",conn,1,1 %>