Paginação 1 2 3 4 5 ...

Boa tarde galera tudo bem?

Estou montando um site que utilizo uma integração que vem as informações de uma base de dados de terceiro.

Hoje já existe uma páginação PROXIMA | ANTERIOR.

Mas gostaria de colocar em forma de números, exemplo:
1 2 3 4 5 6 ...

Estou utilizando assim para montar a páginação:

**<div class="div_paginacao">
 <script language="JavaScript" type="text/javascript">
function postform( p, q )

{

 if( p < 1 ) p = 1;

 document.getElementById('formbusca').action = "imoveis_gerais.asp?pagina=" + p + "&quantidade=" + q;
 document.getElementById('formbusca').submit();
}
</script>

 <div class="div_prox_ant"><a href="javascript:postform(<%=pagina+1%>,<%=quantidade%>);" class="botao_proxima_anterior">Proxima</a>   |   <a href="javascript:postform(<%=pagina-1%>,<%=quantidade%>);" class="botao_proxima_anterior">Anterior</a>
 </div><div class="div_pagina_atual">
 <%

jsonString = "{""fields"":[""Codigo"",""Bairro"",""FotoDestaquePequena"",""Cidade"",""ValorVenda"",""ValorLocacao"",""Descricao"",""Categoria"",""Dormitorios"",""Suites"",""AreaTotal"",""TipoImovel"",""Finalidade"",""Status"",""Vagas""]"

Dim filterString

if (campoCodigo <> "") then
filterString = filterString & """Codigo"":""" & campoCodigo & """"
end if

if (comboBairro <> "" and comboBairro <> "TODOS") then
filterString = filterString & """Bairro"":""" & comboBairro & """"
end if

if (comboCidade <> "" AND comboCidade <> "TODAS") then
if filterString <> "" then filterString = filterString & ","
filterString = filterString & """Cidade"":""" & comboCidade & """"
end if

if (comboCategoria <> "" and comboCategoria <> "TODOS") then
if filterString <> "" then filterString = filterString & ","
filterString = filterString & """Categoria"":""" & comboCategoria & """"
end if

if (comboVagas <> "" and comboVagas <> "TODOS") then
if filterString <> "" then filterString = filterString & ","
filterString = filterString & """Vagas"":""" & comboVagas & """"
end if

if (comboFinalidade <> "" and comboFinalidade <> "TODOS") then
if filterString <> "" then filterString = filterString & ","
filterString = filterString & """Finalidade"":""" & comboFinalidade & """"
end if

if (campoDormitorios <> "") then
if filterString <> "" then filterString = filterString & ","
filterString = filterString & """Dormitorios"":""" & campoDormitorios & """"
end if

if (campoSuites <> "") then
if filterString <> "" then filterString = filterString & ","
filterString = filterString & """Suites"":""" & campoSuites & """"
end if

if filterString <> "" then filterString = filterString & ","
filterString = filterString & """ValorLocacao"":[""" & valMinimo & """,""" & valMaximo & """]"

filterString = "{" & filterString & "}"

jsonString = jsonString & ",""filter"":" & filterString

' PAGINACAO INICIO
'pagina = Request.QueryString("pagina")
'quantidade = Request.QueryString("quantidade")

jsonPaginacao = ",""paginacao"":{""pagina"":" & pagina & ",""quantidade"":" & quantidade & "}"
' PAGINACAO FIM

jsonString = jsonString & jsonPaginacao &"}"

'Response.Write(jsonString)

result = getHTMLFiltros(jsonString, "listar")
result = Unescape(Replace(result, "\u", "%u"))

Set oJSON = new aspJSON
oJSON.loadJSON(result)

'Response.Write(result)

If inStr(result, "o retornou resultados.") Then
total_paginas = 0

Response.Write "<span>Sem resultados!!</span>"
Else

'Total de imóveis da consulta
q_total = oJSON.data("total")
'Total de páginas que a consulta tem
q_paginas = oJSON.data("paginas")
'Página atual
q_pagina = oJSON.data("pagina")

'Response.Write(q_total)
'Response.End

'For Each key In oJSON.data.keys

%>**

Poderiam me ajudar nesta questão?

Muito Obrigado