Ho una pagina il cui scopo è quello di pubblicare i risultati di una query. E' sopraggiunta l'esigenza di paginare questi risultati, questo è il codice:

dim i

dim recordsperpagina
recordsperpagina = 10
dim page
page = request ("page")
response.write(page)

if page="" then page=1
rstmp.Open strsql, conn,1,3
rstmp.pagesize = recordsperpagina
rstmp.absolutepage = page

for i=1 to recordsperpagina
if not rstmp.EOF then
rstmp.MoveFirst

' do while not rstmp.EOF%>

<% rstmp.MoveNext

'loop

end if
next %>
</TABLE>
<% For i=1 to rstmp.PageCount

Response.Write "<A href='activities_visit_page.asp?page=" & i
Response.write "'>"
Response.Write i

Next %>

Ho commentato il ciclo do while perchè se lo lascio mi fa vedere tutti risultati senza paginarli, ma una volta commentato mi fa vedere il primo record ripetuto per il numero di risultati di una pagina.
COME POSSO FARE A FAR COESISTERE SIA IL CICLO WHILE (per estrarre i risultati) e IL CICLO FOR (per paginare i risultati)??