Painacion de 20 en 20

[dguerr]

*****paciencia aqui está el resto*****

'Calculo el índice donde comienzo:
iComienzo = (iPag-1)*iRegsPorPag
'y donde termino:
iFin = iComienzo + (iRegsPorPag-1)
'Si no tengo suficientes registros restantes,
'voy hasta el final
if iFin > UBound(vector, 2) then
iFin = UBound(vector, 2)
end if

'Pinto la tabla
Response.Write("<TABLE BORDER=""1"">")
Response.Write("<TR><TD><h4&gt ;Coordina</TD><TD><h4>Unidad de Negocio</TD><TD><h4>Grupo</TD><TD><h4>Total Inst.</TD></TR>")
for I= iComienzo to iFin
Response.Write("<TR>")
for J=0 to UBound(vector,1)
Response.Write("<TD>" & vector(J,I) & "</TD>")
next
next
Response.Write("</TABLE><br><br>")

if iPag > 1 then
Response.Write("<A HREF=""unegocio.asp?P="&iPag-1&"""><b>Anterior&lt ;/b></A>  ")
end if
if iPag < iPaginas then
Response.Write("<A HREF=""unegocio.asp?P="&iPag+1& amp;"""><b>Siguiente</b></A> ")
end if

PaginarGR = 0

End Function