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