Paginação pesada

[meirelles 0]

gostaria de paginar de 10 em 10, mas exibir os últimos 30.

 

então minha paginação ficaria assim

 

[1] 2 3

 

cada numero com 10 registros.

 

mas tá aí, ele tá listando todos os registros.

 

segue o código

 

ASP

[*]sql = "select top 10 * from tbmensagem where id_membro = "& pid &" and id_remetente <> 0 and mensagem <> null order by id_membro desc"

 

[*]set rs = conn.execute(sql)

 

[*]

 

[*]response.write "Cantadas Recebidas:<hr>"

 

[*]

 

[*]Set RS = Server.CreateObject("AdoDb.RecordSet")

 

[*]nomepagina = "select.asp" 'IMPOTANTE:Coloque aqui o nome desta página.

 

[*]

 

[*]registros =10

 

[*]

 

[*]RS.CacheSize = registros

 

[*]RS.PageSize = registros

 

[*]

 

[*]RS.Open SQl,Conn,3,3

 

[*]

 

[*]If RS.Eof then

 

[*]Response.Write("Nenhum registro encontrado.")

 

[*]

 

[*]else

 

[*]

 

[*]if Request.QueryString("pagina")="" then

 

[*]pagina = 1

 

[*]elseif cint(Request.QueryString("pagina"))<1 then

 

[*]pagina = 1

 

[*]elseif cint(Request.QueryString("pagina"))>RS.PageCount then

 

[*]pagina = RS.PageCount

 

[*]else pagina=Request.QueryString("pagina")

 

[*]end if

 

[*]end if

 

[*]

 

[*]RS.AbsolutePage = pagina

 

[*]

 

[*]contador = 0

 

[*]

 

[*]While contador<registros and not RS.eof

 

[*]

 

[*]response.write "Quem enviou: <a href=select.asp?pid=" & rs("id_remetente")&"&login="&login&">"& rs("nome_remetente")& "</a><br>"

 

[*]response.write "Mensagem:<br> " & rs("mensagem")&"<br>" 

 

[*]response.write "----------------------------------------<br>"

 

[*]

 

[*]RS.MoveNext

 

[*]

 

[*]contador = contador + 1

 

[*]

 

[*]If RS.eof then

 

[*]Response.Write("")

 

[*]end if

 

[*]

 

[*]Wend

 

[*]

 

[*]'esse loop exibe a paginacao

 

[*]for i=1 to RS.PageCount

 

[*]response.Write("<font color=gray size=1 face=verdana><a href="&nomepagina&"?pagina="&i&"&pid="&pid&">"&replace(i,pagina,"<font color=red size=1 face=verdana>["&i&]")&"</font></a> ")

 

[*]Next

 

[*]

 

[*]end if

 

[*]end if

 

[*]

 

[*]%>

 

já não aguento mais, ele pagina 5 paginas pq tem 50 registros. eu quero só os últimos 30.

 

desde já muito grato http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[-_KIKO_- 0]

os 30 ultimos?sql = "select top 30 * from tbmensagem where id_membro = "& pid &" and id_remetente <> 0 and mensagem <> null order by codigo desc"o campo codigo deve existir como autonumeração no sql..ficaria mais facil asim..

[meirelles 0]

nada, não funcionou, pq não funciona com top 10, pq funcionaria com top 30?entende?Mas tá bom, talvez seja algo relacionado a paginação.grato!ainda não resolvi!

[Noodle 0]

Kra, você declarou 2 recordsets com o mesmo nome... pra você usar os recursos da paginação, você deve criar com o CreateObject... e você definindo o tamanho da pagina, PageSize, você define o tamanho da pagina... =)

[meirelles 0]

vou tentar renomear o recorset, amanha eu coloco o resultado