codice:Set Dic = Server.CreateObject("Scripting.Dictionary") Dic.CompareMode=1 SessioneCarrello="10-80;10-41;" valori = Split(sessionecarrello,";") For i = 0 to Ubound(valori)-1 idprodotti = Split(valori(i),"-") Key = idProdotti(0) Value = cDbl(idProdotti(1)) If Dic.Exists(Key) then Dic(Key) = Dic(Key) + Value Else Dic(Key) = Value End if Next

Rispondi quotando


