Erro na paginação.

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%>