Salve a tutti...
sto cercando di modificare il mio sito, fonte shop2007, open source...
Ho voluto inserire l'opzione del totale carrello in ogni pagina, solo che nella pagina di default mi esce tot: € + iva
Mentre nella pagina schede, esce vuoto
e nella pagina carrello invece appare il totale esatto, ma nel TOTALE del carrello, mi viene calcolato doppio...
spero che sia stata chiara nella spiegazione, quindi io vi chiedo
come faccio a far apparire il totale del carrello in tutte le pagine, come se fosse un dato vuoto, un'immagine???
questo è il file inc_carrello.asp che inserisco nelle pagine
Graziecodice:<% 'VERSIONE FILE 1.5.Ver.3 Moicans & Snake %> <% If Abilitashop Then %> <body topmargin="0" leftmargin="0"> <table cellspacing="0" cellpadding="0" bordercolordark="#E5E5E5" bordercolorlight="#000000" border="0" style="border-left:1px dotted #C0C0C0; border-right:0px dotted #C0C0C0; border-top:0px dotted #C0C0C0; border-bottom:0px dotted #C0C0C0; " height="58" width="218"> <tr> <td width="165" valign="middle" bgcolor="" style="border-style:none; border-width:medium; " bordercolor="#DAE7EF" align="center" background="interfaccia/sfcarrello.gif" height="58"> <p align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#FFFFFF"> <% '---Dichiarazione variabili '---Recupero i prodotti inseriti nel carrello per questa sessione SQLCart = " SELECT * FROM Carrello WHERE IDSessione = '"& SessionID &"' " Set RSCart = Conn.Execute(SQLCart) If Not RSCart.EoF Then TotaleCart = 0 %> <% If Session("Rivenditore") Then PrezzoProdotto = RScart("RPrezzo") Else PrezzoProdotto = RScart("CPrezzo") PrezzoTotaleProdotto = (UtilizzaPrezzo(PrezzoProdotto) * RSCart("Quantita")) SQLSconti = " SELECT Sconto FROM Sconti WHERE IDProdotto = " & RSCart("IDProdotto") & " AND Quantita <= " & RSCart("Quantita") & " ORDER BY Sconto DESC" Set RSSconti = Conn.Execute(SQLSconti) If Not RSSconti.EOF Then PrezzoTotaleProdotto = ArrotondamentoPrezzo(PrezzoTotaleProdotto - ((PrezzoTotaleProdotto / 100) * RSSconti("Sconto"))) End If RSSconti.Close Totale = TotaleCart + PrezzoTotaleProdotto RScart.MoveNext %> <%=Importo%>: <%=SimboloValuta%> <%=VisualizzaPrezzo(Totale)%></font> <font color="#FFFFFF"><%=IvaNonCompresaBreve%> <% End If %> </font></font><font size="3"><font color="#FFFFFF" face="Verdana, Arial, Helvetica, sans-serif"> </font></font> </td> <td width="53" valign="bottom" bgcolor="" style="border-style:none; border-width:medium; " align="center" height="58"> <div align="left">[img]interfaccia/btn_cassa.png[/img]</div> </td> </tr> </table> <font color="red"></font> <table width="100%" border="0" align=left> <tr> </tr> </table> <% End If %>
Rispondi quotando
