Paginação de array ASP

Criando páginação de array em ASP

<%
vetor = array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "L")
regPag = 10
pagAtual = request.QueryString("pagina")
totReg = (ubound(vetor))
totPag = int(totReg/regPag)

if pagAtual = "" then
    pagAtual = 1
end if

priReg = ((pagAtual * regPag) - regPag)

paginacao = ""
for i = 1 to totPag + 1
    paginacao = paginacao & "<a href=""pagina.asp?pagina=" & i & """>" & i & "</a>&nbsp;"
next

'response.Write("priReg: " & priReg & "<br />regPag + priReg: " & (regPag + priReg) & "<br />")
for a = priReg to (totReg)
    if a =< (regPag + priReg - 1) then
        if not isempty(vetor(a)) then
            response.Write(vetor(a) & "<br />")
        end if
    end if
next
%>
<p><%=paginacao%></p>

Vendas seus produto online: Plataforma de e-commerce Komercialize