<% 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 %> <% Set Tipo = Server.CreateObject("ADODB.Recordset") Tipo.ActiveConnection = MM_ecommerce_STRING Tipo.Source = "SELECT DISTINCT Classe FROM Prodotti" Tipo.CursorType = 0 Tipo.CursorLocation = 2 Tipo.LockType = 1 Tipo.Open() Tipo_numRows = 0 %> <% prodotti__MMColParam = "1" If (Request.QueryString("ID") <> "") Then prodotti__MMColParam = Request.QueryString("ID") End If %> <% Repeat1__numRows = -1 Repeat1__index = 0 marca_numRows = marca_numRows + Repeat1__numRows %> <% Repeat2__numRows = -1 Repeat2__index = 0 Tipo_numRows = Tipo_numRows + Repeat2__numRows %> <% Repeat3__numRows = 10 Repeat3__index = 0 marca_numRows = marca_numRows + Repeat3__numRows %> Lista Nascite - Acqisizione Ordine
Raccolta Dati Prenotazione  
 
Lista: <% response.write N_lista %>
<% i=Session("Contatore") k=1 totale=0 while i >= 0 quale=Session("Prodotti"&i) quanti=Session("Quantita"&i) if quale <> "" then Set prodotti = Server.CreateObject("ADODB.Recordset") prodotti.ActiveConnection = MM_ecommerce_STRING prodotti.Source = "SELECT * FROM Prodotti WHERE ID="&quale prodotti.CursorType = 0 prodotti.CursorLocation = 2 prodotti.LockType = 1 prodotti.Open() prodotti_numRows = 0 '********************************************* ' Modifica per quantità = 1 '********************************************* quanti = 1 'prezzo=(prodotti.Fields.Item("Prezzo").value)*quanti prezzo=(prodotti.Fields.Item("Prezzo").value)*quanti totale=totale+prezzo 'prezzo=(prodotti.Fields.Item("Prezzo").value)*quanti 'totale=totale+prezzo %> <% prodotti.Close() Set prodotti = Nothing k=k+1 end if i=i-1 wend iva=totale*ivaaq/100 totale=totale+iva totale=totale+spesespedizione %>
Nome Articolo
Quantità
<%=(prodotti.Fields.Item("Descrizione").value)%>
<%=quanti%> 

Totale prenotazione= <%=FormatCurrency(totale,2)%>

 

Dati per l'ordine

<%if conf="Si" then%> <% end if%>
*Nome:

" size="20">

*Cognome:
 " size="20">
*Telefono1:
 " size="20">
Telefono2:
 " size="20">
*E-mail:
 " size="46">
*Messaggio:
 " size="150">
   
Metodo pagamento:
Ricevi E-mail di conferma:
 

<%z=k z=z-1 if z > 0 then%> <%end if%>