recordset su 2 righe

[fanoste]

ciao a tutti.
ho una tabella dove visualizzo 3 record su una riga.
Adesso vorrei trasformarla in una tabella con 6 record su 2 righe (3 per ogni riga)
come modifico questo codice?

<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = 3
Repeat2__index = 0
stream_numRows = stream_numRows + Repeat2__numRows
%>



<table width="400" border="0" cellspacing="0" style="border-collapse: collapse; border: 1px solid #0073aa; padding: 0">
<tr>
<td width="29" rowspan="3" valign="top">[img]images/videogallery.gif[/img]</td>
<td width="367" bgcolor="#FFFFFF" class="menu"><div align="right"><font color="#0073aa">Foto
e video in esclusiva</font></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><table width="100" border="0" align="center">
<tr>
<% While ((Repeat2__numRows <> 0) AND (NOT stream.EOF)) %>

<td valign="top" class="notizie">
<div align="center"><a href="#" onClick="apripopup7(<%=(stream.Fields.Item("idvide o").Value)%>)">[img]images/<% =(stream.Fields.Item([/img]" width="100" hspace="10" border="1" align="baseline" />

<%=(stream.Fields.Item("titolo").Value)%></a>
</div></td>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
stream.MoveNext()
Wend
%>
</tr>
</table></td>
</tr>
</table>

[referee84]

Ti basta far iniziare il tuo ciclo while prima della <tr> in modo tale che il tu prima di fare il conteggio in orizzontale (cioè i 3 record su ogni riga), tu imposti anche uno x quello in verticale, in modo tale da fare tante righe quante te ne servono ma sempre tenendo inalterati i 3 record che vuoi vedere in orizzontale.

In alternativa, all'interno di questo primo ciclo che fai dopo la tr ne fai un altro che conta fino a tre per la parte in orizzontale.

Buon Lavoro

[fanoste]

non sono molto pratico.... come dovrei fare???

[fanoste]

up up please !

[referee84]

Dim ContaRighe
ContaRighe = 2
While ((ContaRighe <> 0) AND (NOT stream.EOF)) 
  <tr> 
  <% 
   While (Repeat2__numRows <> 0)
   %>
      <td valign="top" class="notizie">
          <div align="center"><a href="#" onClick="apripopup7(<%=(stream.Fields.Item("idvideo").Value)%> )">
                 [img]images/<% =(stream.Fields.Item([/img]" width="100" hspace="10" border="1" align="baseline" />

<%=(stream.Fields.Item("titolo").Value)%></a> 
         </div>
      </td>
  <% 
    Repeat2__index=Repeat2__index+1
    Repeat2__numRows=Repeat2__numRows-1
    stream.MoveNext()
  Wend
%>
</tr>
<%
ContaRighe = ContaRighe -1
stream.MoveNext()
Wend
%>

Prova così, ma oggi sto fuso quindi non garantisco...

[fanoste]

non funzia.
ancora solo 3 record su una sola riga....

[referee84]

ma la query che esegui dove sta?

se non vedo quella non capisco bene, magari ti ho scritto una cavolata!

[referee84]

Prova questo:

Dim MaxPerRiga
MaxPerRiga = 3
<tr> 
  <% 
   While (Repeat2__numRows <> 0)
   %>
      <td valign="top" class="notizie">
          <div align="center"><a href="#" onClick="apripopup7(<%=(stream.Fields.Item("idvideo").Value)%> )">
                 [img]images/<% =(stream.Fields.Item([/img]" width="100" hspace="10" border="1" align="baseline" />

<%=(stream.Fields.Item("titolo").Value)%></a> 
         </div>
      </td>
  <% 
    Repeat2__index=Repeat2__index+1
    Repeat2__numRows=Repeat2__numRows-1
    stream.MoveNext()
    if (Repeat2__numRows/MaxPerRiga = 0) then
    %>
    </tr>
    <tr>
   <%end if%>
  Wend
%>
</tr>

[fanoste]

<%
Dim stream
Dim stream_numRows

Set stream = Server.CreateObject("ADODB.Recordset")
stream.ActiveConnection = MM_streaming_STRING
stream.Source = "select * from video order by idvideo desc"
stream.CursorType = 0
stream.CursorLocation = 2
stream.LockType = 1
stream.Open()

stream_numRows = 0
%>