Salve, il mio problema è questo:
devo impaginare su 2 colonne 6 records scelti in maniera random.
Per la ricerca random utilizzo il seguente script:
Per la paginazione in colonna, non ho ancora trovato uno script che posso adattare al mio caso.codice:if not rcd.EOF then N =6 'numero di record casuali da visualizzare Randomize max = rcd.RecordCount-1 redim arr(max) 'popolo l'array da 0 al numero di record for i=0 to max arr(i)=i next 'mischio i numeri in modo casuale for i=0 to max casuale = Int((max)*Rnd) temp = arr(i) arr(i) = arr(casuale) arr(casuale) = temp next 'visualizzo gli N record casuali for i=0 to N-1 rcd.Move arr(i) ....... <%rcd.MoveFirst next End If %>
L'impaginazione dovrebbe avvenire così:
record1 record3
record2 record4
......
Qualche consiglio??
Grazie

Rispondi quotando