Erro na paginação.

[felipesilva 0]

Amigos,

 

Queria saber como faço para colocar a busca assim:

 

Página 1 de 1 [ 1 2 3 4 5 6 ]

 

 

Segue o código que eu uso como paginação e gostaria que me ajudassem a fazer como o exemplo acima.

 

Obrigado desde já.

 

Felipe Silva

 

<%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 IFEND IFRS.AbsolutePage=intpaginaintrec=0While intrec < RS.PageSize and not RS.EOF%>                    <td align="center" bgcolor="#B8E4FA"><div align="left"></div><font face=verdana size=1 color=#000000><%=RS("onde")%></td></tr><%   RS.MoveNext   intrec=intrec+1    IF RS.EOF then       response.write " "    END IFWend%>                    <tr><td bgcolor="#FF0000"><div align="right"><font face=verdana size=2 color=#FFFFFF><%IF intpagina > 1 then %> <a href="conteudo.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IFIF strcomp(intpagina,RS.PageCount) <> 0 then %> <a href="conteudo.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% END IF%><%Response.Write "   [ Página  " & intpagina & " de " & RS.PageCount & " - "For Contador = 1 to RS.PageCount 	 If Contador >= 10 Then    ZeroAEsquerda = "" 	 End If	 	 Auxiliar = "<a href='" & NomeScript 	 Auxiliar = Auxiliar & "?pagina=" & Contador 	 Auxiliar = Auxiliar & "'>" & ZeroAEsquerda & Contador & "</a>" 	 Response.write " "& Auxiliar & " "  Next  Response.Write "]"%></div></td></tr></table><% RS.CloseConexao.CloseSet Conexao = NothingSet RS = Nothing%>

[felipesilva 0]

Amigos,Alguém poderia me ajudar???Abraços.Felipe Silva