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

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> <%
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