2 Scripts de Paginação

[rodrigofaria 0]

Estou tentando colocar 2 códigos de paginação na mesma página. Um para o canal de notícias (de 1 ate 20) e um outro para um outro serviço (de 1 até 10) que também possui muitos registros no Banco.

 

A paginação do Canal de notícia está perfeita mas a do outro serviço não tá funcionando direito. Coloquei o mesmo código para os dois casos, só alterando os nomes das variáveis,nome do RecordSet e o PageSize.

 

Sei que a string com o Banco está certa, pois já fiz o teste tirando todo o script da paginação e esta me retornou a quantidade de registros corretas.

 

Gostaria de saber se é possível colocar 2 scripts de paginação na mesma página E SE PRECISO TER CUIDADO AO REPETIR SE ALGUMA FUNÇÃO DESSE TIPO. Estou colocando o script que estou colocando nos dois casos:

 

1º CASO: Canal de Notícias

 

...Conexão com o Banco

 

SET RSConsultar = server.CreateObject ("ADODB.RecordSet")

 

'Fazendo a paginação

 

RSConsultar.PageSize = 20

 

SQL=" SELECT * FROM TblEsportes E , TblSite S "&_

" WHERE E.Site=S.CodSite ORDER BY ID DESC "

 

RSConsultar.Open SQL,ConBanco,3,3

 

if rsconsultar.eof then %>

 

<font size="1" face="Arial, Helvetica, sans-serif" color="#990000"> Não há registros </font>

 

<%

ELSE

 

IF Request.QueryString("pagina")="" then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))<1 then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))> RSConsultar.PageCount then

intpagina=RSConsultar.PageCount

ELSE

intpagina=Request.QueryString("pagina")

END IF

END IF

END IF

END IF

 

RSConsultar.AbsolutePage=intpagina

 

cont = 1

 

while cont < RSConsultar.PageSize AND NOT RSConsultar.eof

 

%>

 

AQUI VÃO OS REGISTROS

 

 

<%RSConsultar.movenext

cont = cont + 1

 

IF RSConsultar.EOF then

response.write " "

END IF

 

wend

 

%>

 

 

 

<!-- Fim da 3º Tabela do meio - Contém o Canal de notícias! -->

 

 

<!-- Mostra de paginação (próxima/anterior) -->

 

<% IF intpagina > 1 then %>

 

<a href="adlezesportes.asp?pagina=<%=intpagina-1%>" class="linkmenu" onmouseover="this.className='linkmenuon'" onmouseout="this.className='linkmenu'"><< Anterior |</a>

 

<% END IF %>

 

<% IF strcomp(intpagina,RSConsultar.PageCount) <> 0 then

%>

<a href="adlezesportes.asp?pagina=<%=intpagina + 1%>" class="linkmenu" onmouseover="this.className='linkmenuon'" onmouseout="this.className='linkmenu'">| Próxima >></a>

 

<%

END IF

SET RSConsultar=NOTHING

%>

 

 

 

 

 

2º CASO: Outro Canal: SÓ ALTERANDO O NOME DAS VARIÁVEIS, DO RECORDSET E O TAMANHO DO PAGESIZE

 

...Conexão com o Banco

 

SET RSConsultar3 = server.CreateObject ("ADODB.RecordSet")

 

'Fazendo a paginação

 

RSConsultar3.PageSize = 10

 

SQL4 = INSTRUÇÃO SQL

 

RSConsultar3.Open SQL,ConBanco,3,3

 

if rsconsultar3.eof then %>

 

<font size="1" face="Arial, Helvetica, sans-serif" color="#990000"> Não há registros </font>

 

<%

ELSE

 

IF Request.QueryString("pag")="" then

intpag=1

ELSE

IF cint(Request.QueryString("pag"))<1 then

intpag=1

ELSE

IF cint(Request.QueryString("pag"))> RSConsultar.PageCount then

intpag=RSConsultar.PageCount

ELSE

intpag=Request.QueryString("pag")

END IF

END IF

END IF

END IF

 

RSConsultar3.AbsolutePage=intpag

 

cont = 1

 

while cont < RSConsultar3.PageSize AND NOT RSConsultar3.eof

 

%>

 

AQUI VÃO OS REGISTROS

 

 

<%RSConsultar3.movenext

cont = cont + 1

 

IF RSConsultar3.EOF then

response.write " "

END IF

 

wend

 

%>

 

 

 

<!-- Fim da 3º Tabela do meio - Contém o Canal de notícias! -->

 

 

<!-- Mostra de paginação (próxima/anterior) -->

 

<% IF intpag > 1 then %>

 

<a href="adlezesportes.asp?pag=<%=intpag-1%>" class="linkmenu" onmouseover="this.className='linkmenuon'" onmouseout="this.className='linkmenu'"><< Anterior |</a>

 

<% END IF %>

 

<% IF strcomp(intpag,RSConsultar3.PageCount) <> 0 then

%>

<a href="adlezesportes.asp?pag=<%=intpag + 1%>" class="linkmenu" onmouseover="this.className='linkmenuon'" onmouseout="this.className='linkmenu'">| Próxima >></a>

 

<%

END IF

SET RSConsultar3=NOTHING

%>

 

 

 

 

Obrigado!

[rodrigofaria 0]

Gostaria de saber se é possível colocar 2 scripts de paginação na mesma página ?