Estrazione ordinata in 4 celle

[semolino]

Con questo codice estraggo in modo casuale delle immagini dal db. In questo caso, però, l'ordine di visualizzazione dei record è di 1 ogni <TR></TR>.

<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
	   <%
		Dim address, image, nome, N, max, i, casuale, temp
		Set objImmoRs = Server.CreateObject("ADODB.Recordset")
		strImmoSQL = "SELECT * FROM tblst_Credits"
		objImmoRs.Open strImmoSQL,objImmoConn,3,3
		if not objImmoRs.EOF then
		  N = 3 'numero di record casuali da visualizzare
		  Randomize
		  max = objImmoRs.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
			objImmoRs.Move arr(i)
		%>
	  <tr align="center"> 
	    <%	
	   	 Response.Write("<td width='20%'>[img]./image/"& objImmoRs("Site_Image") &".gif[/img]</td>")
	    %>
	  </tr>
	  <tr>
		<%
		  objImmoRs.MoveFirst 
		  next
		end if
			objImmoRs.Close
		%>
	 </table>

Nel mio nuovo caso mi serve limitare l'estrazione a 4 recrod (che rimarrà fissa), ma come faccio a fare in modo che i miei record mi escano su due righe e due colonne? In pratica devono formare una tabella con 4 immagini.

[semolino]

Lasciando stare l'estrazione casuale, vorrei ottenere lo stesso risultato grafico facendo un'estrazione limitando sempre ai primi 4 record aggiunti per ultimo, quendi lego l'estrazione alla data. Ma come ottengo la visualizzazione nelle 4 celle?

[rosbon]

Ciao, io ho un problema simile, come lo hai risolto??

[imente]

usi due for annidati

<%
dim immagini(3)
immagini(0) = "A.jpg"
immagini(1) = "B.jpg"
immagini(2) = "C.jpg"
immagini(3) = "D.jpg"

dim ii, jj,cur
cur = 0
%><table border=1>
<% for ii=0 to 1
	%><tr>
	<%for jj=0 to 1
		%><td><%=immagini(cur)%></td>
	<%	cur = cur + 1
	next%>
	</tr><%
next%>
</table>

il trucco è che II gestisce le righe e JJ le colonne

questo esempio dovrebbe bastarti
se non ti è chiaro io sono qui
ciao

[semolino]

Grazie imente, sono un mesetto che navigo solo in zona PHP e non me ne ero neanche accorto... ti ringrazio per l'anticipo sulla risposta.

[imente]

figurati

[rosbon]

Ciao, ho provato il tuo script, e mi fornisce il seguente risultato:

nome1 nome1
nome1 nome1

nome2 nome2
nome2 nome2

nome3 nome3
nome3 nome3

nome4 nome4
nome4 nome4

Lo script è stato provato con l'estrazione casuale di 4 records.
Sbaglio qualcosa??
Lo script è stato inserito in quello per l'estrazione dei record random, e provato così:

<%
.........
dim ii, jj,cur
cur = 0
%><table border=1">
<% for ii=0 to 1
	%><tr>
	<%for jj=0 to 1
		%><td><%=rcd("nome")%></td>
	<%	cur = cur + 1
	next%>
	</tr><%
next%>
</table>
<%
.............

Grazie per la pazienza.

[imente]

certo

il recordset non devi girarlo all'esterno della table

ma all'interno...

postami tutto lo script

e te lo correggo

[rosbon]

Grazie. Eccoti lo script:

apro la connessione e recordset
.........

if not rcd.EOF then
  N =4 '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)
    
%>
<%

dim ii, jj,cur
cur = 0
%><table border=1">
<% for ii=0 to 1
	%><tr>
	<%for jj=0 to 1
		%><td><%=rcd("nome")%></td>
	<%	cur = cur + 1
	next%>
	</tr><%
next%>
</table>
<%
rcd.MoveFirst
next			
End If			    
%>
.........
chiudo recordset e connessione

Non riesco a capire dov'è l'errore!!

[imente]

non mi piace per niente lo script che usi per interrogare il recordset però..

<%
.........

if not rcd.EOF then
  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
    
%>
<%

dim ii, jj,cur
cur = 0
%><table border=1">
<% for ii=0 to 1
	%><tr>
	<%for jj=0 to 1
    		rcd.Move arr(cur)
		%><td><%=rcd("nome")%></td>
		<%	cur = cur + 1
		rcd.MoveFirst
	next%>
	</tr><%
next%>
</table>
<%		
End If			    
%>

così funziona sicuramente