%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("database/dat.mdb")
'set rs=server.CreateObject("adodb.recordset")
'sql="select top 5 * from cnews"
'rs.open sql,conn,1,3
%>
<%
exec="select top 8 * from cnnews order by input_time desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
%>