Ajuda!

[Steven Tyler]

galera, to fazendo um esquema de paginacao.......o resultado dela é esse......

Anterior      Próximo

e eu queria fazer tipo assim....

Anterior      1 2 3 4 5        Proximo

vejam o meu script q esta funcionando perfeitamente fazendo o 1° exemplo la em cima.....

sql_query = "select * from tbl_chamado order by id_status,data_last desc, hora_last desc"
'Set rs = conexao.Execute(sql_query)
Set rs = Server.CreateObject("adodb.recordset")
rs.pagesize= 5
rs.open sql_query,conexao,3,3

if rs.EOF = false then
 IF Request.QueryString("pagina")="" then 
      intpagina=1 
   ELSE
      IF cint(Request.QueryString("pagina"))<1 then
         intpagina=1 
      ELSE
         IF cint(Request.QueryString("pagina"))> RS.PageCount then 
            intpagina=RS.PageCount 
         ELSE
            intpagina=Request.QueryString("pagina")
         END IF
      END IF
 END IF

rs.AbsolutePage = intpagina
IntRec=0

While IntRec < rs.PageSize and not rs.EOF 
	if var_cor = "DFE6F0" then
  var_cor = "E7EDF5" 
	else
  var_cor = "DFE6F0"
	end if
%>

<%
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. 
IF intpagina > 1 then 
%> 
   <font class="texto">&nbsp;<a class="id_cha" href="index.asp?pagina=<%=intpagina-1%>&id=<%=id%>">Anterior</a> 
<% 
END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página 
IF strcomp(intpagina,rs.PageCount) <> 0 then 
%> 
   <font class="texto">&nbsp;<a class="id_cha" href="index.asp?pagina=<%=intpagina + 1%>&id=<%=id%>">Próxima</a> 
<% 
END IF
%>

então, ta td funcionando....mais o mais correto seria colocar os n° entre o Anterior e Proxima, alguém pode me ajudar pelo amor de deus ??????

Obrigado

[.Andreia.]

Eu tenho uma paginação que usa um FOR pra exibir os numeros das paginas... vou colocar como eu tenho aqui, tente adaptar:

<% paginaAtual = int(pagina - 1)
  For LinkTemp = 1 to paginas 
  if LinkTemp = paginaAtual then
%>
<%= LinkTemp %>
<% else %>
<a href="sua_pagina.asp?pagina=<%= LinkTemp %>"><%= LinkTemp %></a>
<% end if
  next
%>

[Steven Tyler]

nossa, na boa, n entendi nada andreia, n sei como eu iria adaptar, n faco nem ideia.......

eu sei que preciso de um "for".....mais seila, mt foda.....

se alguém puder me ajudar mais...por favor...preciso disso.....

[.Andreia.]

coloca isso depois do end if, muda o "sua_pagina" pelo nome do seu arquivo

<% paginaAtual = int(pagina - 1)
 For LinkTemp = 1 to intpagina 
 if LinkTemp = paginaAtual then
%>
<%= LinkTemp %>
<% else %>
<a href="sua_pagina.asp?pagina=<%= LinkTemp %>"><%= LinkTemp %></a>
<% end if
 next
%>

Se der erro, poste o que aparecer