<%
connstr="DBQ="+server.mappath("../#3R-horry&/lyb.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=Server.CreateObject("ADODB.connection")
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from lyb order by id desc"
rs.open sql,conn,3,3
if rs.eof then
response.end
end if
rs.PageSize = 10
Page = CLng(Request("Page"))
if page<1 then page=1
rs.absoluteposition=(page-1)*rs.pagesize+1
%>
3R GROUP
