A ver, paginasTomo es una variable temporal en la cual almacenas la suma de los registros actuales, de manera que la que debe llevar el total, es paginasTotal no? la cual debe comenzar con un valor cero e incrementar en cada ciclo con su mismo contenido + paginasTomo.
<%
paginasTotal = 0
for i=0 to Tomos-1
paginasTomo = rs.Fields("PaginasA4") + rs.Fields("PaginasA3")
paginasTotal = paginasTotal + paginasTomo
next
%>
A ver si así te sirve
Salu2,