Opdater indkøbskurv
Hej alle!Ja, indtil videre har det hele kørt meget glat med den indkøbsvogn og det e-trade site jeg er ved at lave men NU ramler det!!!
På min side er der en liste over varer, ved siden af hver vare er der et ikon med en indkøbsvogn, man kan trykke på, for at tilføje varen.
Når man tilføjer varen gemmes der to tal i et session-array. tal nr. 1 er varens id nr. og tal 2 er antal varer bestilte.
Når man hen ad vejen bestiller flerer varer bliver disse varer lagt oven i mit array...
f.eks. arrOrders = 13.2,32.1,543.3
13 er id
2 er antallet af bestilte.
\",\" deler de forskellige order fa hinanden.
PROBLEMET:
-----------------------------
Hvis man tilføjer den samme vare to gange til indkøbsvognen, bliver den blot lagt ind i arrayet to gange og optræder således to gange i min liste over bestilte vare.
SPØRGSMÅLET:
----------------------------
Hvordan skal et script se ud, som kan tjekke om varen allerede er bestilt éen gang og derefter blot plusse den gamle ordre med den nye således at varen kun optræder een gang i vognen.
min idé så sådan ud, men det går HELT galt:
\' Hvis ordrelisten er tom skal der blot tilføjes og linkes videre til viewcart.asp
IF Session(\"orders\") = \"\" THEN
Session(\"orders\") = strAddProduct & \".\" & strAddAmount
Response.Redirect \"/viewcart.asp\"
ELSE
strArrOrders = session(\"orders\")
ArrOrders = Split(strArrOrders, \",\")
FOR i = 0 to UBound(ArrOrders)
strSingleOrder = arrOrders(i)
arrSingleOrder = Split(strSingleOrder, \".\")
IF strAddProduct = arrSingleOrder(0) THEN \'Eks: IF 10 = 10 THEN
IF strNewOrderlist = \"\" THEN
strNewOrderlist = arrSingleOrder(0) & \".\" & arrSingleOrder(1) \'Eks: strNewOrderlist = 10.4
ELSE
strNewOrderlist = strNewOrderlist & \",\" & arrSingleOrder(0) & \".\" & arrSingleOrder(1) \'Eks: strNewOrderlist = 10.4,20.10
END IF
ELSE
IF strNewOrderlist = \"\" THEN
strNewOrderlist = arrSingleOrder(0) & \".\" & arrSingleOrder(1) \'Eks: strNewOrderlist = 10.4
ELSE
strNewOrderlist = strNewOrderlist & \",\" & strAddProduct & \".\" & strAddAmount \'Eks: strNewOrderlist = 10.4,20.10
END IF
END IF
NEXT
session(\"orders\") = strNewOrderlist
