ciao optime, avevo allegato il file credevo fosse utile.
Ad ogni modo il codice della pagina è quello che segue.
Estrae :
quantità | descrizione | elimina prodotto
Totale prezzo
mi piacerebbe ottenere :
quantità | descrizione | elimina prodotto
totale quantità |totale prezzo
codice:
<!-- CARRELLO -->
<body topmargin="0" leftmargin="0">
<table width="150">
<tr>
<td width="193" valign="top">
<%
'---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
%>
<br>
<b><%=Prodotti%> nel carrello:
<%
'---Stampo a video i prodotti trovati e i relativi prezzi/quantità
If Not RSCart.EOF Then RSCart.MoveFirst
Do while Not RSCart.EOF
If RSCart("IDTipologia") <> 0 Then
SQLTipologie = " SELECT Tipologia FROM Tipologie WHERE ID = " & RSCart("IDTipologia")
Set RSTipologie = Conn.Execute(SQLTipologie)
CartTipologia = RSTipologie("Tipologia")
Else
CartTipologia = ""
End If
If RSCart("IDTipologia2") <> 0 Then
SQLTipologie2 = " SELECT Tipologia2 FROM Tipologie2 WHERE ID = " & RSCart("IDTipologia2")
Set RSTipologie2 = Conn.Execute(SQLTipologie2)
CartTipologia2 = RSTipologie2("Tipologia2")
Else
CartTipologia2 = ""
End If
%>
</b>
<br>
<!-- <img src="<%=Path_Img%>art.jpg" > --><%=RScart("Quantita")%> - <%=RScart("Prodotto")%>
<%If CartTipologia <> "" Then%>
<%=CartTipologia%>
<%End if%>
<%If CartTipologia2 <> "" Then %>
- <%=CartTipologia2%><a href="prod_cancella.asp?id=<%=RScart("ID")%>"><img src="<%=Path_Img%>elimina.jpg"></a>
<%End if%>
<%If CartTipologia2 = "" Then %>
<a href="prod_cancella.asp?id=<%=RScart("ID")%>"><img src="<%=Path_Img%>elimina.jpg" border="0" alt="<%=Elimina_Prodotto_Carrello%>" align="center"></a>
<%end if%>
<%
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
TotaleCart = TotaleCart + PrezzoTotaleProdotto
RScart.MoveNext
Loop
%>
<br>
<br>
<%=Importo%>:
<br>
<b><%=SimboloValuta%></b> <font color="red"><%=VisualizzaPrezzo(TotaleCart)%></font> <%=IvaNonCompresaBreve%>
<a title="Visualizza il tuo ordine nel carrello!" href="carrello.asp"><img src="<%=Path_Img%>carrello.jpg" border="0"></a>
<p align="center">
<%
Else
%>
<br>
<%=PCarrelloVuoto%><br>
<%
End If
%>
</td>
</tr>
</table>
<!-- /CARRELLO -->
<%
End If
%>
Permessi di invio
Rispondi quotando