Dividere risultato query in più pagine

[Teo80]

Ciao a tutti,
uso questi passaggi per dividere il risultato della query su più pagine e sembra che tutto funzioni bene. Volevo sapere se qualcuno vede qualche debolezza nel metodo usato, in particolare nell'uso dell'istruzione recordset.move(num) dove num è il numero di record.

<%
sPage = Request.Querystring("pagina") 'pagina visualizzata attualmente

if sPage = "" or not isnumeric(sPage) then
    sPage = 1
end if

sNumr = 10 'numero di risultati per pagina

'rsScadnum(0) = numero totale di record

sNumPage = CLng(rsScadnum(0)) / sNumr 'numero totale pagine

if CLng(rsScadnum(0)) mod sNumr <> 0 then
    sNumPage = sNumPage + 1
end if

if sPage > sNumPage then
    sPage = sNumPage
end if

sStart = sNumr * sPage - (sNumr - 1)

if sPage <> 0 then
    rsScad.move(sStart - 1)
end if


............



For i = 1 to sNumr
                        
    if rsScad.EOF then exit for
%>

    <tr height="40" valign="middle">
        <td><%=trim(rsScad("CAMPO1"))%></td>
        <td><%=trim(rsScad("CAMPO2"))%></td>
        <td><%=trim(rsScad("CAMPO3"))%></td>
        <td><%=trim(rsScad("CAMPO4"))%></td>
        <td><%=trim(rsScad("CAMPO5"))%></td>
        <td><%=trim(rsScad("CAMPO6"))%></td>
        <td><%=trim(rsScad("CAMPO7"))%></td>
        <td><%=trim(rsScad("CAMPO8"))%></td>
    </tr>    


<%
    rsScad.Movenext
Next
%> 

Grazie.