<%@ LANGUAGE=VBScript %> <% Set objConn = Server.CreateObject("ADODB.Connection") strConnection = "DSN=bolletta;Database=bolletta;" strConnection = strConnection & "UID=;PWD=;" objConn.Open strConnection %> Bolletta - Carrello

 


<% Set objRS = Server.CreateObject("ADODB.Recordset") Set objRS.ActiveConnection = objConn strQuery = "SELECT Dettaglio_Carrello.Codice_Articolo, " strQuery = strquery & "Dettaglio_Carrello.Nome_Articolo, " strQuery = strQuery & "Dettaglio_Carrello.Prezzo_Articolo, " strQuery = strQuery &"Dettaglio_Carrello.Quantity, Dettaglio_Carrello.ID_Carrello " strQuery = strQuery & "FROM Dettaglio_Carrello " strQuery = strQuery & "WHERE (((Dettaglio_Carrello.ID_Carrello)=" & Session("bollettaID") & "))" objRS.Open strQuery %>
<% i = 0 : c = 0 %> <% While Not objRS.EOF %> <% i = i + 1 %> <% If Instr(i/2, ",") Then %> <% Else %> <% End If %> <%c = c + (objRS("Prezzo_Articolo") * objRS("Quantity")) objRS.MoveNext Wend %> <% If i = 0 Then %>

Spiacente, il tuo carrello e' vuoto !


<% End If %>
ARTICOLO DESCRIZIONE
PREZZO
QUANTITA'
<%= Trim(objRS("Codice_Articolo")) %> <%= Trim(objRS("Nome_Articolo")) %>
L. <%=Trim(objRS("Prezzo_Articolo")) %>
" size="3" maxlength="3" onChange="MM_validateForm('Quantity<%= i %>','','RinRange0:999');return document.MM_returnValue">

 

 
<% If i <> 0 Then %> Totale:L. <%= c %> <% End If %>
<% If i <> 0 Then %> <% End If %>
<% If i <> 0 Then %> <% End If %>


 

Per cambiare la quantita' di un prodotto, modificare il valore e poi premere 'AGGIORNA'

Per eliminare un prodotto dal carrello, inserire 0 come quantita' e premere 'AGGIORNA'

<% objRS.Close objConn.Close Set objRS= Nothing set objConn = Nothing %>