Olá;
Estou criando uma paginação em ASP para exibição de dados do meu banco Access.
Usei o seguinte código:
*Inicio da table:
Dim intpagina, intrec, i
'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset
'objRS.PageSize = 1000
rsPlanejamento.PageSize = numeroregpag
'Criamos as Validacoes
if rsPlanejamento.eof then
'' Response.Write("Nenhum Registro Encontrado")
' Response.End() 'paramos o programa
else
'Definimos em qual pagina o visitante está
if Request.QueryString("pagina")="" then
intpagina = 1
else
if cint(Request.QueryString("pagina"))<1 then
intpagina = 1
else
if cint(Request.QueryString("pagina"))>rsPlanejamento.PageCount then
intpagina = rsPlanejamento.PageCount
else
intpagina = Request.QueryString("pagina")
end if
end if
end if
'rslancamento.MoveFirst
rsPlanejamento.AbsolutePage = intpagina
intrec = 0
i = 1
end if
*Final da table
<%
Dim UrlExportar
'Criando links para a navegaçao
response.write "<div align='right'><font face=verdana size=2><br><b>Página(s):</b> "
for i = 1 to rsParceiro.pagecount
if i = cint(intpagina) then
response.write "<i><b>" & i & "</b></i> "
session("pagina") = i
else
response.write "<a href='parceiro_lista.asp?pagina=" & i & "'>" & i & "</a> "
UrlExportar = "?pagina="& i
end if
next
response.write "</font></div> "
'Application.lock
'Application.unlock
%>
Funcionou perfeitamente, porém como faço para definir a quantidade de dados exibidas na página?
Se alguém tiver um código simples e bem explicado que funcione para eu ir testando eu agradeço também.
Obrigado!