<%
dim prezzo,sconto,extrasconto,pscontato
if request.form("prezzo") then
prezzo = request.form("prezzo")
else
prezzo = 0
end if
if request.form("sconto") then
sconto = request.form("sconto")
else
sconto = 0
end if
if request.form("extrasconto") then
extrasconto = request.form("extrasconto")
else
extrasconto = 0
end if
prezzoscontato = prezzo*(1-(sconto/100))*(1-(extrasconto/100))
scontofinale =100 - 100*(1-(sconto/100))*(1-(extrasconto/100))
%> <%
dim p,s,Q1,Q2,pa,q3
if request.form("Pquan") then
p= formatnumber(request.form("Pquan"),0,0,0,0)
else
p = 0
end if
if request.form("Quant1") then
Q1 = int(request.form("Quant1"))
else
Q1 = 0
end if
if request.form("Quant2") then
Q2= int(request.form("Quant2"))
else
Q2 = 0
end if
q3 = Q1+Q2
if not (Q3) = 0 then
Pa = formatnumber(int((P*Q1)/(Q3)),0,0,0,0)
S = int((1- (Pa/P))*10000)/100 & "%"
end if
%>
