dividere in colonne

[ghis65]

Buonasera,
con questo script metto i record in file in una pagina asp.
Dovrei dividerli per tre colonne.
Avete idee su come fare.
Grazie

<%iPageSize = 30'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
                %>

[Vincent.Zeno]

quello che ci fai vedere non stampa nemmeno i risultati...
semplicemente conta le pagine in base al numero di record che estrai.

bisognerebbe sapere almeno cosa vuoi stampare (i dati estratti) e in quale forma html (tabella, div, paragrafi...)

[ghis65]

Ok Vincent.
ecco il codice che ho fatto,
Questo stampa i record uno sotto l'altro. Io dovrei farli stampare in tre colonne

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

Dim RecordsetArticoli
Set RecordsetArticoli = DatabaseWebStore.Execute(sqlquery)
%>
    <%iPageSize = 30'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")
%>
<table id="table37" border="0" cellpadding="0" cellspacing="0">
    
    <tr>
        
        <td bgcolor="#FFFFFF">
<p><%=Denominazione%></p>
<p><% =Left(InformazioniEstese, 100)%>...<br>
<br>
Prezzo €&nbsp;<b><%=Prezzo%></b>



            <%If RiferimentoDiIcona <> "" Then%>
<a href="scheda_articolo.asp?idarticolo=<%=ID%>"><IMG SRC="immagini/<%=RiferimentoDiIcona%>" width=" 100" border="0" alt="<%=Denominazione%>"></a>

</td>

        
    </tr>
    
</table>
  

<%else%>
<%End If%>

<%iRecordsShown = iRecordsShown + 1
RecordsetArticoli.MoveNext
Loop
%>

</div>
<%End If%>
<%End If%>

[Vincent.Zeno]

qui stampi una tabella per ogni record, e già è una stranezza...
anche perché usi lo stesso id (id="table37") più di una volta e questo è sbagliato

a parte questo... che significa "su tre colonne"? qual'è il criterio?
fai un'esempio in html di ciò che vuoi ottenere

[ghis65]

Allora adesso stampa cosi:
record 1
record 2
record 3
ecc

io dovrei farlo cosi
record 1 record 2 record 3
record 4 record 5 record 6
ecc

ecco l'esempio

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>record 1</td>
    <td>record 2</td>
    <td>record 3</td>
  </tr>
  <tr>
    <td>record 4</td>
    <td>record 5</td>
    <td>record 6</td>
  </tr>
</table>

lo sto facendo con tabella ma anche con i div andrebbe bene

[Vincent.Zeno]

non è un cosa complicata ma sono un po' stanco per postare un'esempio...

domani provo a farti un esempio pratico

... notte

[ghis65]

Grazie!!

[Vincent.Zeno]

esempio pratico:
spero ti sia esaustivo

    cellCount=0
    response.write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
    Do While iRecordsShown < iPageSize And Not RecordsetArticoli.EOF
    cellCount=cellCount+1
    if cellCount=4 then cellCount=1

    if cellCount = 1 then response.write "<tr>"
    %>
    <td><%=RecordsetArticoli("testo")%></td>
    <%
    if cellCount = 3 then response.write "</tr>"

    iRecordsShown = iRecordsShown + 1
    RecordsetArticoli.MoveNext
                    
    Loop
    RecordsetArticoli.Close
    Set RecordsetArticoli= Nothing
    
    if cellCount < 3 then response.write "</tr>"
    response.write "</table>"

[ghis65]

Grazie!!
chiedo troppo se me lo contestualizzi?

[Vincent.Zeno]

dovrebbe essere sufficientemente chiaro per poterlo finire, dato quello che hai postato tu.
tra l'altro, quello che hai postato, o è sbagliato o è estrapolato e manca qualcosa...

preferirei che provassi prima tu