Ad ogni modo, supponendo che tu abbia un campo ID per ogni record, dopo aver fatto l'aggiunta di un nuovo record metti questo codice:
codice:
sql2 = "SELECT campoID, agenzia FROM nomeTabella ORDER BY agenzia ASC"
set rs2 = conn.execute(sql2)
if not rs2.eof then
cnt = 1
do until rs2.eof
conn.execute("UPDATE nomeTabella SET pagina = " & cnt & " WHERE campoID = " & rs2("campoID")
cnt = cnt + 1
rs2.moveNext
loop
end if
rs2.close
set rs2 = nothing