|
|
|
|
codice
articolo
|
finitura
|
|
quantità
|
prezzo
unitario
Euro
|
|
parziale
Euro
|
|
<%
cartid = session ("cartid")
cartverniciatura = session ("cartverniciatura")
cartrivestitura = session ("cartrivestitura")
cartquantita = session ("cartquantita")
libero = session ("libero")
for ciclo = 0 to libero-1
idciclo = cartid (ciclo)
quantitaciclo = cint(cartquantita (ciclo))
verniciaturaciclo = cartverniciatura (ciclo)
rivestituraciclo = cartrivestitura (ciclo)
prezzociclo=0
eurociclo=0
campioneverniciaturaciclo=""
campionerivestituraciclo=""
if quantitaciclo >0 then
Set obj = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM articoli WHERE idarticolo='" & idciclo & "'"
obj.Open SQL, adoconn,adOpenstatic,adLockPessimistic, adCMDText
if not obj.eof then
Set obj1 = Server.CreateObject("ADODB.Recordset")
SQL1 = "SELECT * FROM verniciatura WHERE codiceverniciatura='" & verniciaturaciclo & "'"
obj1.Open SQL1, adoconn,adOpenstatic,adLockPessimistic, adCMDText
if not obj1.eof then campioneverniciaturaciclo=obj1("campioneverniciatura")
obj1.close
SQL1 = "SELECT * FROM stoffa WHERE codicestoffa='" & rivestituraciclo & "'"
obj1.Open SQL1, adoconn,adOpenstatic,adLockPessimistic, adCMDText
if not obj1.eof then campionerivestituraciclo = obj1("campionestoffa")
obj1.close
SQL1 = "SELECT * FROM pelle WHERE codicepelle='" & rivestituraciclo & "'"
obj1.Open SQL1, adoconn,adOpenstatic,adLockPessimistic, adCMDText
if not obj1.eof then campionerivestituraciclo = obj1("campionepelle")
obj1.close
prezzociclo = obj("prezzo")- .01*obj("sconto")*obj("prezzo")
eurociclo = prezzociclo / application ("euro")%>
|
<%=idciclo%>
|
<%=verniciaturaciclo%><%if campioneverniciaturaciclo<>"" then response.write"
![](" & campioneverniciaturaciclo & ") "%>
|
<%=rivestituraciclo%><%if campionerivestituraciclo<>"" then response.write"
![](" & campionerivestituraciclo & ") "%>
|
|
<%= formatnumber(prezzociclo,2)%>
|
|
<%= formatnumber(prezzociclo*quantitaciclo,2)%>
|
|
<%
totale = totale+ prezzociclo*quantitaciclo
totaleeuro = totaleeuro+ eurociclo*quantitaciclo
totalecapi = totalecapi+quantitaciclo
end if
end if
next
%>
|
totale
merce+
|
|
|
<%=totalecapi%>
|
|
|
<%=formatnumber(totale,2,,,-1)%>
|
|
<%
SPEDIZIONE = 15.00
spedizioneeuro = spedizione / application ("euro")
iva = (totale+spedizione)*.2
ivaeuro = iva / application ("euro")
totale=totale+spedizione+iva
totaleeuro = totaleeuro+spedizioneeuro+ivaeuro
%>
|
|
|
|
|
|
|
<%=formatnumber(spedizione,2,,,-1)%>
|
|
|
IVA
|
|
|
|
|
|
<%=formatnumber(iva,2,,,-1)%>
|
|
|
=
TOTALE
|
|
|
|
|
|
<%=formatnumber(totale,2,,,-1)%>
|
|
per
modificare la quantita di un articolo digitare la nuova quantita
(0 per cancellare) e premere cambia
<% if totalecapi<>"" then%>
Se desiderate
continuare con altri acquisti tornate alla Home
Page
<% end if %>
|
|
