<% Set marca = Server.CreateObject("ADODB.Recordset") marca.ActiveConnection = MM_ecommerce_STRING marca.Source = "SELECT DISTINCT Marca FROM Prodotti" marca.CursorType = 0 marca.CursorLocation = 2 marca.LockType = 1 marca.Open() marca_numRows = 0 %> <% Repeat1__numRows = -1 Repeat1__index = 0 marca_numRows = marca_numRows + Repeat1__numRows %> <% Repeat2__numRows = -1 Repeat2__index = 0 Tipo_numRows = Tipo_numRows + Repeat2__numRows %> Carrello - Lista di Nozze
 
Carrello  
 
 
<% Veditot=0 i=Session("Contatore") k=0 pprr="" qnttt="" while k <= i 'response.write(Pr(k)&"
") 'response.write(Qt(k)&"
") PR=Session("Prodotti"&k) if Session("Prodotti"&k) <> "" then quanti=Session("Quantita"&k) Set prodotti = Server.CreateObject("ADODB.Recordset") prodotti.ActiveConnection = MM_ecommerce_STRING prodotti.Source = "SELECT * FROM Prodotti WHERE ID="&Cint(PR) prodotti.CursorType = 0 prodotti.CursorLocation = 2 prodotti.LockType = 1 prodotti.Open() prodotti_numRows = 0 %> <% if (prodotti.Fields.Item("Foto").Value) <> "" then fotina="Admin/imagesProd/"&(prodotti.Fields.Item("Foto").Value) else fotina="Admin/imagesProd/nd.jpg" end if %> <% '************************************************ ' RIPORTA QUANTITA' = 1 '************************************************* if k <= 1 then one=(prodotti.Fields.Item("Prezzo").Value)*Session("Quantita"&k) else one=(prodotti.Fields.Item("Prezzo").Value)* 1 quanti = 1 %> -> La quantità non può essere maggiore di 1 <- <% end if somma=somma+one %>
<%=(Prodotti.Fields.Item("Nome").Value)%>
<%=(Prodotti.Fields.Item("Descrizione").Value)%>
Quantità: " value="<%=quanti%>" size="4" maxlength="4">  ')">Aggiorna quantità
 Prezzo: <%=FormatCurrency((Prodotti.Fields.Item("Prezzo").Value),2)%>
 
<% pprr=pprr&(prodotti.Fields.Item("ID").Value)&"/" qnttt=qnttt&quanti&"/" Veditot=veditot+1 prodotti.Close() Set prodotti = Nothing end if k=k+1 wend 'response.Write(Session("Prodotti")) iva=ivaaq ivva=somma*iva/100 totale=somma+ivva %> <% if Veditot <> 0 then %>

Somma:
  
<%=FormatCurrency(somma,2)%>
Totale:
  
<%=FormatCurrency(totale+spesespedizione,2)%>

&fcosa=<%=Request.QueryString("fcosa")%>')" value="Torna alla Lista">

<% else %> <% Response.Write("

Il carrello è vuoto
") response.redirect("../default.asp?az=list&fcampo=Marca&fcosa="&n_lista) end if%>