impaginazione record database

[ghis65]

Buongiorno,
sto creando una pagina di elenco articoli recuperandoli da database access
La pagina funziona ma in questo modo mi mette gli articoli uno sotto l'altro. io vorrei metterli uno di fianco all' altro 3 alla volta. Vedo altri siti che lo fanno. Posto qui perchè credo sia un problema di come caricare i record e non di ccs.
Questi sono i codici che uso

<%
Dim sqlquery
sqlquery = "select  *  FROM [Catalogo, Articoli]  WHERE IDLinea = " & idlineadicatalogo & " AND InVendita=true"

Dim RecordsetArticoli
Set RecordsetArticoli = DatabaseWebStore.Execute(sqlquery)
%>
    <%iPageSize = 5 'NUMERO RECORD PER PAGINA
                
                
                Set RecordsetArticoli = Server.CreateObject("ADODB.Recordset")
            
                RecordsetArticoli.PageSize = iPageSize
                RecordsetArticoli.CacheSize = iPageSize
                RecordsetArticoli.Open sqlquery, DatabaseWebStore, adOpenStatic, adLockReadOnly, adCmdText
                
                recCount = RecordsetArticoli.RecordCount
                iPageCount = RecordsetArticoli.PageCount
                

                If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
                If iPageCurrent < 1 Then iPageCurrent = 1    
                    
                If iPageCount = 0 Then
                Else
                    RecordsetArticoli.AbsolutePage = iPageCurrent
                    iRecordsShown = 0
                    
                    
                    
                    
                End If
                %>

<%If RecordsetArticoli.EOF Then%>
<%Else%>

<%Do While iRecordsShown < iPageSize And Not RecordsetArticoli.EOF
            ID = RecordsetArticoli("ID")
                    Codice = RecordsetArticoli("Codice")
                    Denominazione = RecordsetArticoli("Denominazione")
                    Informazioni = RecordsetArticoli("Informazioni")
                    Informazioni1= RecordsetArticoli("Informazioni1")
                    Informazioni3= RecordsetArticoli("Informazioni3")
                    InformazioniComplete = RecordsetArticoli("InformazioniComplete")
                    InformazioniEstese = RecordsetArticoli("InformazioniEstese")
                    Confezione = RecordsetArticoli("Confezione")
                    Prezzo = RecordsetArticoli("Prezzo")
                    RiferimentoDiIcona = RecordsetArticoli("RiferimentoDiIcona")
                    RiferimentoDiFoto = RecordsetArticoli("RiferimentoDiFoto")
%>

Grazie

[Vincent.Zeno]

usa un contatore che parta da 0
prima della stampa dei dati lo incrementi di 1

se il contatore arriva a 4 allora trasformi il valore in 1

per la stampa html dipende da cosa vuoi fare...
se usi contenitori semplici (div) è più facile: puoi impostare un clear:both al contenitore con valore 1 (a tutti imposti float:left).
se invece vuoi usare una tabella devi fare attenzione ad aprire e chiudere correttamente le righe.

questo in linea generale... bisogna anche vedere il contesto

[ghis65]

Ok Vincent. uso i div e li ho capito
per la prima parte mi potresti fare un esempio.

grazie

[Vincent.Zeno]

se facessi vedere dove e come stampi potrei contestualizzare...
questo è un'esempio di massima

count=0
do while ......
count=count+1
if count=4 then count=1
if count=1 then clearClass=" clear:both; " else clearClass=""

'stampo
response.write "<div class="""&clearClass&""" >"&variabileDati&"</div>"

[ghis65]

Giustamente. Questo è con la tabella

<TR VALIGN="top">
<TD width="33%" bordercolor="#98C4DD" height="90">
<%If RiferimentoDiIcona <> "" Then%>
<a href="scheda_articolo.asp?idarticolo=<%=ID%>"><IMG SRC="images/small/<%=RiferimentoDiIcona%>" border="0" alt="<%=Denominazione%>">
<p style="margin-left: 5" class="title"><%=Denominazione%></p>
<a href="scheda_articolo.asp?idarticolo=<%=ID%>"><p class="text"><% =Left(InformazioniEstese, 200)%>...</a><br>
<br>
Prezzo €&nbsp;<b><%=Prezzo%></b>
</td>
<TD width="33%" bordercolor="#98C4DD">&nbsp;</td>
<TD width="33%" bordercolor="#98C4DD">&nbsp;</td>
</tr>
<tr>
<td align="left" colspan="3">
<%else%>
<%End If%></TD>
</TR>
<%iRecordsShown = iRecordsShown + 1
RecordsetArticoli.MoveNext
Loop
%>
</TABLE>
</div>
<%End If%>
<%End If%>

                    

<% If iPageCount <> 1 Then %>
    <table align="center" id="table38">
    <tr>
    <td width="100%" align="center" valign="middle">
      <p class="title"><font face="verdana" size="2" color="#000000">
        
    <% If iPageCurrent > 1 Then %>
          <a href="elenco_articoli_tot.asp?idlineadicatalogo=<%=idlineadicatalogo%>&page=<%=iPageCurrent-1%>">
        <IMG SRC="icons/art_pre.gif" alt="Articolo precedente" BORDER=0 width="100" height="23"></a>&nbsp;  
    <%end if %>                            
    
    <% If iPageCount > 2 then
        if iPageCurrent-9 < 1 then da_pag = 1 else da_pag = iPageCurrent-9
        if iPageCurrent+9 > iPageCount then fino_a_pag = iPageCount else fino_a_pag = iPageCurrent+9
    Else
        da_pag = 1
        fino_a_pag = iPageCount
    end if %>
    <%for i = da_pag to fino_a_pag %>
        <%if i = iPageCurrent then %>
    

    </font>
      [<%=i%>]<font face="verdana" size="2" color="#000000">
        
        <% else %>    
             <A href="elenco_articoli.asp?idlineadicatalogo=<%=idlineadicatalogo%>&page=<%=i%>"><%=i%></A> 
        <%end if %>    
    <% next %>
    
        
    <%if iPageCurrent > 0 and iPageCurrent < iPageCount then %>
        &nbsp;<a href="elenco_articoli_tot.asp?idlineadicatalogo=<%=idlineadicatalogo%>&page=<%=iPageCurrent+1%>"><IMG SRC="icons/art_suc.gif" alt="Articolo successivo" BORDER=0 width="100" height="23"></a>  
    <%end if %>

Grazie

[Vincent.Zeno]

quello che hai riportato è decontestualizzato.
usa il mio esempio e comincia a provare, non posso fare il lavoro al tuo posto

[ghis65]

Ok grazie!!