Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
Ted k'

Paginação 1 2 [3] 4 5 6

Recommended Posts

Para o bem de todos segue a Paginação que funciona no MySQL, Testada e Aprovada

LEGENDAS:

TedkDados => RS

TedKBanco => Conn

TedkDados.Pagesize = 30 => Quantidade de linhas!

-------------------------

<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
  <td width="44%" height="30" bgcolor="#EBEBEB" class="classFonte01">&nbsp;<strong>Nome</strong>&nbsp;</td>
  <td width="47%" bgcolor="#EBEBEB" class="classFonte01">&nbsp;<strong>E-Mail</strong>&nbsp;</td>
</tr>
  <%
  TedkBanco.CursorLocation = 3
  Set TedkDados = Server.CreateObject("Adodb.RecordSet")
  TedkDados.Pagesize = 30
  TedkDados.Open "Select NomeNewsletterEMail, EMailNewsletterEMail From adminNewsletterEMail Order By NomeNewsletterEMail Asc",TedkBanco

  If TedkDados.Eof Then
  Response.Write("")
  Else
  PaginaAtual = CInt(Request.Querystring("Pages"))

  If PaginaAtual = 0 Then
  PaginaAtual = 1
  End If

  TedkDados.AbsolutePage = PaginaAtual
  Num = TedkDados.PageCount

  While Not TedkDados.Eof And TedkDados.AbsolutePage = PaginaAtual
  %>
<tr>
  <td height="22" bgcolor="#F7F7F7" class="classFonte01">&nbsp;<% Response.Write(TedkDados("NomeNewsletterEMail")) %>&nbsp;</td>
  <td bgcolor="#F7F7F7" class="classFonte01">&nbsp;<% Response.Write(TedkDados("EMailNewsletterEMail")) %>&nbsp;</td>
</tr>
  <%
  TedkDados.MoveNext : Wend
  Anterior = PaginaAtual - 1
  Proximo = PaginaAtual + 1

  If Anterior <= 0 Then
  Anterior = 1
  End If

  If Proximo > TedkDados.PageCount Then
  Proximo = TedkDados.PageCount
  End If
  %>
<tr>
  <td height="30" colspan="2" align="right" bgcolor="#EBEBEB" class="classFonte01"><strong>Paginas:</strong>&nbsp;<%
  Jo = 1
  While Jo <= TedkDados.PageCount

  If PaginaAtual = Jo Then
  Response.Write("["&Jo&"]&nbsp;&nbsp;")
  Else
  Response.Write("<a href=""Default.asp?Pages="&Jo&""" class=""classFonte01"" title=""P&aacute;gina "&Jo&""">"&Jo&"</a>&nbsp; ")
  End If
  Jo = Jo + 1
  Wend
  End If
%></td>
</tr>
</table>

Aproveitem... 100% Testado no MySQL

Compartilhar este post


Link para o post
Compartilhar em outros sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Visitante
Responder

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Processando...
Entre para seguir isso  

×
×
  • Criar Novo...