Visualizzazione dei risultati da 1 a 4 su 4

Discussione: ciclare come si fa?

  1. #1

    ciclare come si fa?

    ciao è tutto il giorno che ci sbatto la testa dopo alcuni suggerimenti che ho tentato di mettere in pratica sono al punto di prima.
    tengo a precisare che da neofita uso dreamweaver.
    il codice della mia pagina è il seguente:
    ovvero in una form ho inserito il dati dell'utente nella stessa ho realizzato una sezione ripetuta in cui vengono visualizzati tutti i prodotti selezionati nella pagina precedente.

    quello che mi piacerebbe è vedere il Supertotalone dei pezzi acquistati.
    grazie.

    <%@LANGUAGE="VBSCRIPT"%>



    <%
    Dim rsAcquirente__MMColParam
    rsAcquirente__MMColParam = "1"
    If (Request.QueryString("IDAcquirente") <> "") Then
    rsAcquirente__MMColParam = Request.QueryString("IDAcquirente")
    End If
    %>
    <%
    Dim rsAcquirente
    Dim rsAcquirente_numRows

    Set rsAcquirente = Server.CreateObject("ADODB.Recordset")
    rsAcquirente.ActiveConnection = MM_pp_STRING
    rsAcquirente.Source = "SELECT * FROM Acquirente WHERE IDAcquirente = " + Replace(rsAcquirente__MMColParam, "'", "''") + ""
    rsAcquirente.CursorType = 0
    rsAcquirente.CursorLocation = 2
    rsAcquirente.LockType = 1
    rsAcquirente.Open()

    rsAcquirente_numRows = 0
    %>
    <%
    Dim rsProdotti__MMColParam
    rsProdotti__MMColParam = "1"
    If (Request.QueryString("IDAcquirente") <> "") Then
    rsProdotti__MMColParam = Request.QueryString("IDAcquirente")
    End If
    %>
    <%
    Dim rsProdotti
    Dim rsProdotti_numRows

    Set rsProdotti = Server.CreateObject("ADODB.Recordset")
    rsProdotti.ActiveConnection = MM_pp_STRING
    rsProdotti.Source = "SELECT IDAcquirente, Img, Autore, Titolo, Quantita, Costo, (Quantita*Costo) as totale FROM Prodotto WHERE IDAcquirente = " + Replace(rsProdotti__MMColParam, "'", "''") + " ORDER BY IdProdotto ASC"
    rsProdotti.CursorType = 0
    rsProdotti.CursorLocation = 2
    rsProdotti.LockType = 1
    rsProdotti.Open()

    rsProdotti_numRows = 0
    %>

    <%
    Dim Repeat1__numRows
    Dim Repeat1__index

    Repeat1__numRows = -1
    Repeat1__index = 0
    rsProdotti_numRows = rsProdotti_numRows + Repeat1__numRows
    %>
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
    <title>Quarup - Libri</title>
    <script type="text/JavaScript">
    <!--
    function MM_swapImgRestore() { //v3.0
    var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
    }

    function MM_preloadImages() { //v3.0
    var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
    }

    function MM_findObj(n, d) { //v4.01
    var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
    if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
    for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
    if(!x && d.getElementById) x=d.getElementById(n); return x;
    }

    function MM_swapImage() { //v3.0
    var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
    if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
    }
    //-->
    </script>
    <link href="quarup.css" rel="stylesheet" type="text/css" />
    </head>

    <body onload="MM_preloadImages('immagini/index_chisiamo_on.jpg','immagini/index_catalogo_on.jpg','immagini/index_news_on.jpg','immagini/index_distribuzione_on.jpg','immagini/index_acquisti_on.jpg','immagini/rassegna_on.gif','immagini/dicono_on.gif')">
    <table width="974" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
    <td width="100" valign="top"></td>
    <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr>
    <td width="126" rowspan="2">[img]immagini/header_sx.jpg[/img]</td>
    <td width="509">[img]immagini/header_white.jpg[/img]</td>
    <td rowspan="2" valign="top">[img]immagini/header_dx.jpg[/img]</td>
    </tr>
    <tr>
    <td valign="top">[img]immagini/header_acquisti.jpg[/img]</td>
    </tr>
    </table>
    <table width="774" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
    <td width="126" valign="top" bgcolor="#e5ca9f" class="mainTable"><table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td>[img]immagini/index_chisiamo.jpg[/img]</td>
    </tr>
    <tr>
    <td>[img]immagini/index_catalogo.jpg[/img]</td>
    </tr>
    <tr>
    <td>[img]immagini/index_news.jpg[/img]</td>
    </tr>
    <tr>
    <td>[img]immagini/index_distribuzione.jpg[/img]</td>
    </tr>
    <tr>
    <td>[img]immagini/index_acquisti.jpg[/img]</td>
    </tr>
    <tr>
    <td>[img]immagini/rassegna_off.gif[/img]</td>
    </tr>
    <tr>
    <td>[img]immagini/dicono_off.gif[/img]</td>
    </tr>
    <tr>
    <td>[img]immagini/fondo.gif[/img]</td>
    </tr>
    </table>
    <p class="mainTable"></p></td>
    <td width="509" valign="top" background="immagini/main_bg_white.jpg" bgcolor="#e5ca9f" class="mainTable">





    La casa editrice Quarup ha deciso di offriVi un servizio di e-commerce, questo prevede l'inserimento dei vostri dati.

    Si tiene a precisare che l'acquisto dei libri pu&ograve; subire una variazione a seconda della tipologia di pagamento.



    </p>




    <form id="all" name="all" method="post" action="">



    <input name="nome" type="text" id="nome" value="<%=(rsAcquirente.Fields.Item("Nome").Value) %>" />


    <input name="cognome" type="text" id="cognome" value="<%=(rsAcquirente.Fields.Item("Cognome").Val ue)%>" />


    <input name="indirizzo" type="text" id="indirizzo" value="<%=(rsAcquirente.Fields.Item("Indirizzo").V alue)%>" />


    <input name="cap" type="text" id="cap" value="<%=(rsAcquirente.Fields.Item("CAP").Value)% >" />


    <input name="comune" type="text" id="comune" value="<%=(rsAcquirente.Fields.Item("Comune").Valu e)%>" />


    <input name="citta" type="text" id="citta" value="<%=(rsAcquirente.Fields.Item("Citta").Value )%>" />


    <input name="mail" type="text" id="mail" value="<%=(rsAcquirente.Fields.Item("mail").Value) %>" />


    </p>
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td width="140"><div align="center">Autore</div></td>
    <td width="140"><div align="center">Titolo</div></td>
    <td width="60"><div align="center">Quantit&agrave;</div></td>
    <td width="60"><div align="center">Prezzo</div></td>
    <td width="60"><div align="center">Totale</div></td>
    <td width="49"></td>
    </tr>
    </table>



    <%
    While ((Repeat1__numRows <> 0) AND (NOT rsProdotti.EOF))
    %>
    </MMECORATION></MM_REPEATEDREGION>
    </p>
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td width="140" valign="top"><textarea name="autore" rows="2" class="Normale" id="autore"><%=(rsProdotti.Fields.Item("Autore").V alue)%></textarea></td>
    <td width="140" valign="top"><textarea name="titolo" rows="2" class="Normale" id="titolo"><%=(rsProdotti.Fields.Item("Titolo").V alue)%></textarea></td>
    <td width="60" valign="top"><div align="center">
    <input name="quantita" type="text" class="Normale" id="quantita" value="<%=(rsProdotti.Fields.Item("Quantita").Valu e)%>" size="2" maxlength="2" />
    </div></td>
    <td width="60" valign="top"><div align="center">
    <span class="Normale">&euro;</span>
    <input name="costo" type="text" class="Normale" id="costo" value="<%=(rsProdotti.Fields.Item("Costo").Value)% >" size="4" maxlength="4" />
    <span class="Normale">,00</span></div></td>
    <td width="60" valign="top"><div align="center" class="Normale"> &euro;
    <input name="totale" type="text" class="Normale" id="totale" value="<%=(rsProdotti.Fields.Item("totale").Value) %>" size="3" maxlength="3" />
    ,00
    </div></td>
    <td width="49" valign="top"><input name="cancella" type="submit" id="cancella" value="cancella" /></td>
    </tr>
    </table>



    <MM_REPEATEDREGION NAME="Repeat1" SOURCE="rsProdotti"><MMECORATION OUTLINE="Repeat" OUTLINEID=1>
    <%
    Repeat1__index=Repeat1__index+1
    Repeat1__numRows=Repeat1__numRows-1
    rsProdotti.MoveNext()
    Wend
    %>
    avanti </p>
    </form>




    </p>
    </p>
    </p>
    </p></td>
    <td width="139" valign="top" bgcolor="#e5ca9f"><table width="100%" height="399" border="0" cellpadding="0" cellspacing="0" background="immagini/index2_bg.jpg">
    <tr>
    <td valign="top"></td>
    </tr>
    <tr>
    <td valign="top"></td>
    </tr>

    </table></td>
    </tr>
    </table></td>
    <td width="100"></td>
    </tr>
    </table>
    </body>
    </html>
    <%
    rsAcquirente.Close()
    Set rsAcquirente = Nothing
    %>
    <%
    rsProdotti.Close()
    Set rsProdotti = Nothing
    %>

  2. #2
    Dubito che qualcuno ci sbatta solamente il naso in tutto quel codice non formattato

    Per ciclare ci son diversi modi . . .

    FOR
    WHILE
    DO

    Vedi tu come usarli al meglio

  3. #3
    io desidero solo fare una somma per tutte le righe del db presente nella pagina di un campo ma giuro che non ci capisco nulla...

  4. #4
    Originariamente inviato da Tiziano1974
    io desidero solo fare una somma per tutte le righe del db presente nella pagina di un campo ma giuro che non ci capisco nulla...
    ancora? è già il terzo thread che apri ...

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.