Salve il mio problema è questo:
ho necessità di paginare dei dati in 2 o 3 colonne, ma da una ricerca effettuata in modo random.
Lo scipt della paginazione semplice è questo:
<%colonne=1
For i = 1 to 6
If Not rcd.EOF then
if colonne=3 then
colonne=1 
%>
</tr><tr>
<%end if%>
<td  width="33%" align="center">
<A HREF="scheda_articolo.asp?idarticolo=<%=ID%>"><%=denominazione%></A><br>
<%=informazioni%></td>
<%colonne=colonne+1%>
<%rcd.MoveNext
End if
Next
%>

ma in questo modo mi fornisce sempre lo stesso record!!
Che soluzione adottare??
Grazie a tutti.

Ciao.
Ros
225 messaggi dal 22 maggio 2001
Scusa ma il codice che hai postato restituisce sempre una colonna!!!

Ciao
Andrea
Anche quello è un problema da risolvere.

Ciao.
Ros
In parole povere vorrei una pagina che stampi i dati così:

record_1 record_4
record_2 record_5
record_3 record_6

ma non elencati per ID bensì trovati casualmente.

Spero di essere stato chiaro.
Grazie.

Ciao.
Ros
Adesso le cose stanno così: lo script sviluppato ad ora è questo:
.......
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)
%>
<table>
<tr> 
<%
colonne=1 
do while not rcd.EOF
if colonne=3 then 
colonne=1
%> 
</tr><tr> 
<%end if%> 
<td width="200"><%=denominazione%><br><%=informazioni%></td> 
<%colonne=colonne+1 
rcd.MoveNext 
Loop             
rcd.MoveFirst
next      
End If
%>
            
</tr>
</table>

produce i 6 records richiesti ma li stampa su entrambe le colonne create.
Io vorrei che fossero stampati 3 sulla prima e 3 sulla seconda.

Ciao.
Ros
593 messaggi dal 09 ottobre 2002
www.dotnetside.org
Ciao rosarios,

estrazione (random o sequenziale) a parte, per la formattazione dell'output vedi se ti riesce di adattarti questa soluzione:
http://community.aruba.it/forums/ultimatebb.php?ubb=get_topic;f=22;t=012454

Ciao

Pochi post. Anzi, quasi quasi spengo
http://www.dotnetside.org/
Avevo pensato a degli Array, ma non sono il mio forte.
Ho visto dall'esempio che hanno modificato anche la query.
Ci provo vediamo un po'
Grazie.

Ciao.
Ros
Ok niente da fare, sono ritornato allo script di partenza:
<!-- Inizio ricerca random -->  
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)          
%>
<!-- Impaginazione -->
<table>
<tr>
<%colonne=1
if colonne=3 then 
colonne=1%> 
</tr><tr> 
<%end if%> 
<td><%=denominazione%></td><br> 
<%colonne=colonne+1   
rcd.MoveFirst
next      
End If          
%>
</tr>
</table>

E' l'impaginazione che viene meno.
Troviamo una soluzione??

Ciao.
Ros

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.