Record.Count in paginazione

[[trodat]]

Buongiorno a tutti.

Volevo sapere, se possibile, in una paginazione di record, contare il numero dei record stampati a video; cioè con il comando

iPageSize = 3

stabilisco il numero di record per pagina e vorrei contare questi record.

Si può fare?
Grazie

[salvodibella]

se utilizzi una cosa del genere:

Do Until rs.EOF
For Each campo In rs.Fields
Response.Write campo.name & " = " & campo.value
Next
rs.MoveNext
Loop

puoi aggiungere:

Do Until rs.EOF
For Each campo In rs.Fields
Response.Write campo.name & " = " & campo.value
contacampi = contacampi + 1
Next
rs.MoveNext
Loop

e alla fine stampare a video con:
response.write (contacampi)

[[trodat]]

grazie, ma uso questa: :master:

cont=1
Do While iRecordsShown < iPageSize And Not objRS.EOF
Dim Rig, bg
Rig = Rig + 1

Response.Write " & (iPageSize*iPageCurrent)-iPageSize+Cont & "

Cont = Cont + 1
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing

[Roby_72]

Già lo sai:

iRecordsShown

Roby

[[trodat]]

Grazie Roby... ma il problema è stampare:

-prima pagina = Record dal n° 1 al n° 5
-seconda pagina = Record dal n° 6 al n° 10
etc

Mi spiego?
PS=complimenti per lo script, è proprio il tuo!

[Roby_72]

Ma dove lo vuoi stampare?
In una colonna della tabella dei dati che visualizzi o in coda?

Roby

[[trodat]]

Alla fine, in coda allo script...

[Roby_72]

Do While iRecordsShown < iPageSize And Not objRS.EOF
Dim Rig, bg
Rig = Rig + 1
da = iRecordsShown
a = iRecordsShown + iPageSize
Response.Write " & (iPageSize*iPageCurrent)-iPageSize+Cont & "

Cont = Cont + 1
iRecordsShown = iRecordsShown + 1
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing

Response.write "Da " & da &" a "& a

Roby

[[trodat]]

Non stampa nulla...

[Roby_72]

da = iRecordsShown
a = iRecordsShown + iPageSize

Questi li hai messi?

Roby