<%
dim conn,rs
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="& server.mappath("db.mdb")
set rs= Server.CreateObject("ADODB.RecordSet")
rs.open "select * from qualify order by id asc",conn,1,3