<%
set rscatlist=server.CreateObject("Adodb.Recordset")
set rsc=server.CreateObject("Adodb.Recordset")
sqll="select * from solutions order by sno desc"
' Set the page size of the recordset
'rscatlist.CursorLocation = 3 ' adUseClient
rscatlist.Open sqll,db,1,3
rscatlist.PageSize = 6
' Get the number of pages
nPageCount = rscatlist.PageCount
nPage = CLng(Request.QueryString("Page"))
If nPage < 1 Or nPage > nPageCount Then
nPage = 1
End If
' Position recordset to the correct page
rscatlist.AbsolutePage = nPage
i=1
' Display the page of results
%>
<%
'tab = "Showing " & rscatlist.recordcount & " Items "& " / Page " & nPage & " of "&nPageCount&"
"
'tab = tab & "Current Page is : " & nPage & "
"
tab = "Page " & nPage & " of "&nPageCount&"
"
'tab = tab & "Current Page is : " & nPage & "
"
tab= tab & "First Page | "
tab= tab & "
Prev. Page | "
tab= tab & "
Next Page | "
tab= tab & "
Last Page "
response.Write(tab)
Do While Not ( rscatlist.Eof Or rscatlist.AbsolutePage <> nPage )
%>
<%
if (i mod 3) = 0 then
%> |
<%
end if
i = i + 1
rscatlist.MoveNext
Loop
rscatlist.Close
%>