Hola Adler,
Con respecto al punto 2, lo he revisado y está igual que todos con los cambios de la variable que hicimos inicialmente (rowCount2) y el enlace, ha quedado todo así:
...
prodRS.AbsolutePage =pag2
WHILE NOT prodRS.EOF AND rowCount2 < prodRS.PageSize
rowCount2 = rowCount2 + 1
...
IF prodRS.PageCount > 1 THEN
FOR i = 1 to prodRS.PageCount
IF i <> cINT( pag2 ) THEN
<a href="index.asp?irA=<%=i%>-2"><%=i%></a>
<% ELSE %>
<b><%=i%></b>
...
prodRS.close
-------------------------------------------------------------------------------------------------
Con respecto al punto 3:
Al seleccionar la capa 3, aparecen los registros, pero al pie donde está las páginas resultantes, debería aparecer desmarcado por la menos la página 1 que es la que supuestamente está mostrando, pero no es así están todos así:
1 2 3 4
y si selecciono cualquier página me lleva a la primera de la capa 1, y si vuelvo a la 3 está en el mismo sitio.
Para este paginador, igual que los demás, sólo cambiamos la variable rowCount3 al inicio y el enlace:
...
prodRS.AbsolutePage =pag3
WHILE NOT prodRS.EOF AND rowCount3 < prodRS.PageSize
rowCount3 = rowCount3 + 1
....
IF prodRS.PageCount > 1 THEN
FOR i = 1 to prodRS.PageCount
IF i <> cINT( pa3g ) THEN
<a href="index.asp?irA=<%=i%>-3"><%=i%></a>
ELSE
<%=i%>
...
prodRS.close
--------------------------------------------------------------------------------------------------------
Nuevamente gracias por tu tiempo.