<%
Dim Conn, rs, sql
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DataBase/#LYWEB_ComputerSelf.mdb")
sql = "SELECT TOP 5 ID, title FROM stories ORDER BY ID DESC"
Set rs = Conn.Execute(sql)
Response.Write "