%sub news_body() dim totalnews,Currentpage,totalpages,i opennews sql="select news_id,news_title,news_date from news order by news_date DESC" if request("type")=1 then sql="select top 10 news_id,news_title,news_date from news order by news_date DESC" elseif request("type")=2 then sql="select news_id,news_title,news_date from news order by news_date DESC" elseif request("type")=3 then sql="select news_id,news_title,news_date from news order by news_date ASC" end if set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 %>