Статья: Объект Recordset и текстовые файлы ASP
Page = CInt(Request.QueryString("Page"))
else
Page=1
end if
If rs.PageCount > 0 Then
rs.AbsolutePage = Page
Else
Page = 0
End If
Response.Write "<table border = 1 width=200 bordercolor='#000000'>"
Response.Write "<tr><td align=center bgcolor='#EEEEEE'><b>Страна</b></td>"
Response.Write "<td align=center bgcolor='#EEEEEE'><b>Столица</b></td></tr>"
i = 0
'собственновывод
Do While (Not rs.EOF) And (i < rs.PageSize)
Response.Write "<tr>"
Response.Write "<td align=center>" & rs("Страна") & "</td>"
Response.Write "<td align=center>" & rs("Столица") & "</td>"
Response.Write "</tr>"
rs.MoveNext
i = i + 1
Loop
nPages = rs.PageCount
'панель навигации по страницам
If nPages > 1 then
Response.Write "<tr><td colspan=2 align=center>"
If Page <> 1 then
Response.Write "<a href=""" & Request("script_name") & "?Page=" & Page - 1 & """><</a>"
Else