Paginazione a blocchi

[alexba64]

<%
' Predispongo la paginazione
Quanti= 4
tot = CInt(RsCont.PageCount)
i = 0

Do While Not RsCont.EOF

IF i MOD Quanti=0 THEN
%>

<%=RsCont("Titolo")%>

<%
end if
   i = i + 1
   RsCont.MoveNext

Loop
%>

Ma non sarebbe più logico fare un loop dentro al loop ?

Cioè faccio un blocco da 4 record e poi lo ripeto ?

Ho detto una boiata

[optime]

il concetto è: faccio un loop unico e ogni 4 lo spezzo. siamo tutti d'accordo

per come è scritto adesso il codice, ti stampa un titolo ogni 4. manca il contenuto del blocco (quello che avevo segnalato con ''' altri response.write).

il ciclo sara'

stampa testa_blocco
do
if ... MOD ...
stampa coda_blocco
stampa testa_blocco
end if
stampa blocco
.movenext
loop
stampa coda_blocco

[alexba64]

Lo sospettavo, ora mi è chiaro, grazie, quindi:

<%
' Predispongo la paginazione
Quanti= 4
tot = CInt(RsCont.PageCount)
i = 0

Do While Not RsCont.EOF

IF i MOD Quanti=0 THEN
%>

<%
end if
   i = i + 1
%>
   
<%=RsCont("Titolo")%>  

<%  
RsCont.MoveNext
Loop
%>

cosi ho all'interno di ogni blocco, 4 titoli.

Ogni blocco ha un commento iniziale



appunto ma se volessi metterne uno anche in chiusura di ogni blocco:



se poffà secondo te ?

[optime]

se po' fa', se po' fa'... hai letto bene quello che ti ho scritto?

[alexba64]

Mi era sfuggito, scusa.

Cosi però:

<%
' Predispongo la paginazione
Quanti= 4
tot = CInt(RsCont.PageCount)
i = 0

Do While Not RsCont.EOF

IF i MOD Quanti=0 THEN
%>

<%
end if
   i = i + 1
%>
   
<%=RsCont("Titolo")%>
  
<%  
RsCont.MoveNext
Loop
%>

cosi però ho a video questo:



Titolo 1
Titolo 2
Titolo 3
Titolo 4





Titolo5
Titolo 6
titolo 7
Titolo 8





Titolo9
Titolo10




e non va bene, la chiusura deve essere alla fine di ogni blocco

[optime]

alex, hai il singhiozzo?

apri blocco
do
if ...
chiudi blocco
apri blocco
end if
blocco
loop
chiudi blocco

un bel sorso d'acqua con tutti i buchi tappati e il singhiozzo passa, dai

[alexba64]

Io avrò anche il singhiozzo ma nonostante le caraffe d'acqua non vedo la luce, sarà l'età

[alexba64]

<%
' Predispongo la paginazione
Quanti= 4
tot = CInt(RsCont.PageCount)
i = 0
%>



<%
Do While Not RsCont.EOF
IF i MOD Quanti=0 THEN
%>





<%
end if
   i = i + 1
%> 

<%=RsCont("Titolo")%>

<%  
RsCont.MoveNext
Loop
%>

Risultato:







Titolo 1
Titolo 2
Titolo 3
Titolo 4





Titolo 5
Titolo 6
Titolo 7
Titolo 8






Titolo 9
Titolo 10



me ne mette uno vuoto all'inizio

[alexba64]

Nessuna idea ?

[optime]

Originariamente inviato da alexba64
Nessuna idea ?

abbi pazienza, stavo godendomi un lauto pasto

IF i MOD Quanti=0 AND i>0 THEN

certo che sei pigro de bbrutto!