Paginacao

[Ale_xacunois]

Pessoal

Encontrei essa paginacao aki, e já tem um tempo q estou quebrando a cabeça nela..

ve se alguém pode me ajudar

da erro nessa linha:

RsMostra_Inf.Open StrMostra_Inf,ObjMostra_Inf,3

Dai da erro nas minhas SQL.

quem poder me ajudar, abaixo segue todo o codigo

StrMostra_Inf = "Select * from produtos inner JOIN Informatica on INFORMATICA.CodigoTipo = PRODUTOS.CodigoP WHERE "&AA&" and "&BB&" and "&CC&" and "&DD&" and "&EE&" and "&FF&" Order By Informatica.Codigo Desc"

'Set RsMostra_Inf = ObjMostra_Inf.Execute(StrMostra_Inf)

'=========================PAGINACAO=============

RsMostra_Inf.CacheSize = 1

RsMostra_Inf.Open StrMostra_Inf,ObjMostra_Inf,3 --> AKI DA ERRO

RsMostra_Inf.PageSize = 3

if RsMostra_Inf.eof Then

Response.write "Nenhum Registro encontrado no Banco de Dados"

Set ObjMostra_Inf = Nothing

Set RsMostra_Inf = Nothing

else

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

intpagina=1

else

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

intpagina=1

else

if cint(Request.QueryString("pagina"))> RsMostra_Inf.PageCount then

intpagina=RsMostra_Inf.PageCount

else

intpagina=Request.QueryString("pagina")

end if

end if

end if

end if

sMostra_Inf.AbsolutePage=intpagina

%>

Html daki para baixo

[fertel]

Olha só, não vou opinar sobre seu código porque achei meio confuso e não quero falar besteira e atrapalhar ao invés de ajudar. Só quero dar uma sugestão:

No tópico especial de funções lá em cima no fórum de ASP (início) tem uma função utilizando GETROWS para paginação que é muuuuito boa.

`Peguei e adaptei para minha necessidade, foi uma mão na roda, muito mais simples, porque você não tenta?