<%
Option Explicit
Dim ConnectString
Dim CurrentPage
Dim RSEmps
Dim I
If IsEmpty(Request.QueryString("PageNumber")) Then
  CurrentPage = 1
Else
  CurrentPage = cint(Request.QueryString("PageNumber"))
End If
ConnectString = "DSN=EmpsDatabase;User Id=Admin;Password=;"
set RSEmps = Server.CreateObject("ADODB.Recordset")
RSEmps.CursorLocation = 3
RSEmps.Open "tblEmps", ConnectString, , , 2
RSEmps.PageSize = 3
RSEmps.AbsolutePage = CurrentPage
Do Until RSEmps.AbsolutePage <> CurrentPage or RSEmps.EOF
  Response.Write RSEmps("LastName") & ", " & RSEmps("FirstName") _
    & "<P>"
  RSEmps.MoveNext
Loop
Response.Write "Aby wywietli dalsze rekordy, wybierz numer strony: "
For I = 1 to RSEmps.PageCount
  Response.Write "<A HREF=""./adosample.asp?PageNumber=" & I _
    & """>" & I & "</A> "
Next
%>
