[Resolvido] Paginação
Tenho o código abaixo, que adaptei o código de "Paginação De Outra Forma Usando Mysql Código Ted k' com adaptações de layout de Vinícius Siller", encontrado aqui no iMasters.
<!--#include file="conexao.asp"-->
<%
Dim PagNav, TotalPag
Dim Anterior, Proximo, PagAtual, PaginaVisita, MontaLink, cor, pageSize
Set objSqlRs = Server.CreateObject("ADODB.RecordSet")
objSqlCon.CursorLocation = 3
'quantidade de registros por página
yScroll = Cint(Request("scrY")) - 172
QtdLinGrid = Int((yScroll-42) / 20) - 1 '+ 10
'fim quantidade de registros por página
strQ = "SELECT * FROM RJ_Tabela WHERE Status='C' And UfRes='RJ' And
MunicipioRes='Rio de Janeiro' Order By Nome Limit 100," & QtdLinGrid
Set objSqlRs = objSqlCon.Execute(strQ)
If objSqlRs.EOF Then
Response.Write("Não há registros")
Else
PagNav = CInt(Request.QueryString("pagina"))
If PagNav = 0 Then : PagNav = 1 : End If
objSqlRs.AbsolutePage = PagNav
TotalPag = objSqlRs.PageCount
%>
Por padrão ele mostrar (e tem que mostrar) 17 registros por página, e no entanto com a adaptação que fiz ele
está mostrando somente 10 registros.
Por favor alguem pode me ajudar, estou em aprendizado com o ASP a apenas 15 dias, e a pessoa que me pediu isto já está chateada por eu não ter resolvido.
Agradeço desde já a atenção dispensada,
Rogarfil
Discussão (6)
Carregando comentários...