Spiegazioni
per determinare il numero di record da mandare in output per ogni singola pagina, dovrete modificare il numero 5 con il numero di record da far visualizzare nella riga:

rs.PageSize = 5

Info:
E' il metodo "PageSize" che si occupa di inviare il numero di record da visualizzare!

Spiegazioni 2
non modificate questa riga di codice:

rs.CursorLocation = adUseClient 

se il metodo CursorLocation non e' impostato ad adUserClient lo script generera' un errore!

Info2:
dando al metodo il valore adUserClient, questo sara' di sola lettura!

Spiegazione 3
Si corre il rischio, qualora si avessero un numero dispari di record da visualizzare su piu' pagine, di ricevere un messaggio di errore da parte del browser. Per ovviare a questo problema, in nostro aiuto, abbiamo questo ciclo:

If Len(Request("pagenum")) = 0 Then
rs.AbsolutePage = 1
Else
If CInt(Request("pagenum")) <= rs.PageCount Then
rs.AbsolutePage = Request("pagenum")
Else
rs.AbsolutePage = 1
End If
End If

Spiegazione 4
Per avere alcuni dati molto utili, useremo questo codice:

Dim abspage, pagecnt
abspage = rs.AbsolutePage
pagecnt = rs.PageCount

If Not rs.EOF Then
Response.Write "Pagine totali : " & rs.PageCount & "<br>" & vbcrlf
Response.Write "Ci troviamo alla pagina : " & rs.AbsolutePage & "<br>" & vbcrlf
Response.Write "Record totali : " & rs.RecordCount
Response.Write "<br><br>" & vbcrlf

Questo, grazie all'utilizzo di "PageCount", "AbsolutePage" e "RecordCount" stampera' a video il numero di pagine totali, la pagina in cui ci troviamo ed il numero totale di record!

Spiegazione 5
Eccoci giunti alla parte di codice che mandera' in output i record presenti:

For intRec=1 To rs.PageSize
If Not rs.EOF Then
Response.Write "<tr>"
For Each fldF in rs.Fields
Response.Write "<td>" & fldF.Value & "</td>"
Next
Response.Write "<tr>"
rs.MoveNext
End If
Next
Response.Write "</tbody></table><p>"

Come potete vedere, ho utilizzato due cicli FOR. Il primo serve a determinare il numero di record da visulizzare, il secondo, serve a visualizzare i record stessi!

Nella prossima pagina, vedremo come creare i collegamenti alle pagine successive... 

 

<< Pagina Precedente

Pagina Successiva >>