Paginare 6 record in una riga e poi andare a capo

grottafelix

Utente Attivo
5 Mar 2003
2.410
2
38
46
Parco chiuso -
www.girsms.com
Ciao ragazzi,

ho bisogno di estrarre dei record da un db, visualizzandoli a righe da 6 record ciascuni.

record 1 - record 2 - record 3 - record 4 - record 5 - record 6
record 7 - record 8 - record 9 ecc.ecc.

La paginazione a colonna funziona...
ma invece di estrarmi solo 6 recor e andare a capo... me li estrae tutti su una riga...
:(

questo il codice:

Codice:
<%
Dim objRS
Set objRS = Server.CreateObject("ADODB.RecordSet")
%> 

<%
          contatore = 0

sSQL="SELECT * FROM annuncio WHERE tipoauto = 'USATA' order by ID DESC;"
objRS.Open sSQL, objConn, 3, 3
%>
<tr>


            
      <%if not objRS.eof then

contatore = 0
do until objRS.eof
contatore = contatore  +1
ID=objRS("ID")
%>

<td class="foto">
<a href="default.asp">
<img class="img3" width="126px" height="100" src="<%=objRS("img0")%>" border="3"></a>
<div class="fotominitesto"><a href="default.asp">
<%=objRS("marcamodello")%></a><br />
€ <%=objRS("prezzo")%></div></td>
<td></td>
<%
if i = 6 then%>
</tr></font><tr><%
i = 0
end if
objRS.movenext
%>                        <%
   Loop
   objRS.close
Set rs=Nothing
%>
<%
end if
%>        
</table>
 
Ciao Felice, una vita che non ci si sente!!!

Io fareBBi così.....

PHP:
<%
Dim objRS
Set objRS = Server.CreateObject("ADODB.RecordSet")
%> 

<%
          contatore = 0

sSQL="SELECT * FROM annuncio WHERE tipoauto = 'USATA' order by ID DESC;"
objRS.Open sSQL, objConn, 3, 3
%>
<tr>


            
      <%if not objRS.eof then

contatore = 0
do until objRS.eof
contatore = contatore  +1
ID=objRS("ID")
%>
<% if i >= 6 then%>
<tr>
<% end if %>

<td class="foto">
<a href="default.asp">
<img class="img3" width="126px" height="100" src="<%=objRS("img0")%>" border="3"></a>
<div class="fotominitesto"><a href="default.asp">
<%=objRS("marcamodello")%></a><br />
€ <%=objRS("prezzo")%></div></td>
<td></td>
<%
if i >= 6 then%>
</tr>
<%
i = 0
end if

objRS.movenext
%>                        <%
   Loop
   objRS.close
Set rs=Nothing
%>
<%
end if
%>        
</table>


Fammi sapere, ciao ciao.
 

Discussioni simili