<%
If Session("Contatore") = "" then
Session("Contatore")=0
end if
qualeNow=Request.QueryString("id")
quantNow=Request.QueryString("qnt")
cont=Session("Contatore")
q=0
coco=0
while q <= cont
'response.Write("Ciclo
")
contr=Session("Prodotti"&q)
if contr <> qualeNow then
'response.Write("Incremento coco
")
coco=coco+1
else
'response.Write("If se esiste
")
Session("Quantita"&q)=Cint(Session("Quantita"&q))+Cint(quantNow)
coco=0
q=Session("Contatore")+1
end if
q=q+1
wend
if coco <> 0 then
'Response.Write("If di aggiunta se non esiste
")
i=Session("Contatore")
Session("Prodotti"&i)=Request.QueryString("id")
Session("Quantita"&i)=Request.QueryString("qnt")
Session("Contatore")=Session("Contatore")+1
Session.timeout=1440
end if
%>
Carrello