<%
	set conn = Server.CreateObject("ADODB.Connection")
	conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
		Server.MapPath("person.mdb"))
	set rs = Server.CreateObject("ADODB.Recordset")
	sql = "Select * from grade"
	rs.Open sql, conn, 3, 1
	rs.PageSize = 4
	rs.AbsolutePage =2
	Response.Write(rs(1))
%>