<%@ LANGUAGE="VBSCRIPT" %> <% db = Request("db") if Request("pageno")="" then PageNo = 1 else PageNo = CInt(Request("pageno")) end if if Request("startpage")="" then StartPage = 1 else StartPage = CInt(Request("startpage")) end if %> <% Set List = Server.CreateObject("ADODB.Recordset") List.Open "SELECT * FROM " & db & " ORDER BY Ref DESC, Re_Step ASC", dbCon, 1 ListCount = List.RecordCount if ListCount > 0 then Page_Count = 10 List.PageSize = Page_Count List.AbsolutePage = PageNo Page_List = 5 end if TotalPage = List.PageCount %>