<%
Set conn = Server.CreateObject("adodb.connection")
Path = Server.MapPath("database/manner.mdb")
conn.Open"driver={Microsoft Access Driver (*.mdb)};dbq="&path
set rs =server.CreateObject("adodb.recordset")
sql = "select * from report order by id "
rs.open sql,conn,1,1
%>
<%do while not rs.EOF
id = rs("id")
title = rs("title")
ftime = rs("ftime")
%>
