% db.CursorLocation = 3 Sql = "select * from notice " sql = sql & " ORDER BY n_index DESC" set Rs = db.Execute(sql) dim GotoPage ,BlockPage,RecordCount, i RecordCount = RS.RecordCount GotoPage = request("GotoPage") if GotoPage= "" then GotoPage = 1 else GotoPage = GotoPage end if RS.PageSize=6 if RecordCount > 0 then RS.AbsolutePage=GotoPage end if BlockPage = int((GotoPage - 1) / 6) * 6 + 1 i = 0 Sql2 = "select * from board " sql2 = sql2 & " ORDER BY b_id DESC" set Rs2 = db.Execute(sql2) dim GotoPages ,BlockPages, j RecordCount = Rs2.RecordCount GotoPages = request("GotoPages") if GotoPages= "" then GotoPages = 1 else GotoPages = GotoPages end if Rs2.PageSize=6 if RecordCount > 0 then Rs2.AbsolutePage=GotoPages end if BlockPages = int((GotoPages- 1) / 6) * 6 + 1 j = 0 %>