[VBScript]
<%
dim ItemsPerPage, Page, FirstItem, LastItem, Results
ItemsPerPage = 10
Page = 1
FirstItem = (Page-1) * ItemsPerPage + 1
LastItem = FirstItem + ItemsPerPage - 1
set Results = ISYSSearch.Execute
Results.Prepare FirstItem, ItemsPerPage
if LastItem > Results.Length then LastItem = Results.Length
for i = FirstItem to LastItem
set Document = Results.Item(i)
next
%>
|