1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
|
dim tab
if not isarray(session.contents("order")) then 'SI LE PANIER N'EST PAS CONNU
tab = split(request.form("chk"),", ")
response.write ubound(tab)+1
dim cat,subcat,sql,result
dim subpanier(24,2)
dim panier
redim panier((ubound(tab)+1),23)
for i = 1 to ubound(panier,1)
panier(i,11)=subpanier
next
'INSERTION DES INFOS SUR LE PRODUIT
for j = 1 to ubound(tab)+1
'ici insertion bla bla
next
session.contents("order") = panier
else
panier = session.contents("order")
tab = split(request.form("chk"),", ")
uTab = ubound(tab)+1
uPan = ubound(panier)
uPan = uTab+uPan
redim preserve panier(uPan,23) 'ICI ERREUR : Indice en dehors de la plage
for i = uPan+1 to (uPan+uTab)
panier(i,1) = "ouou"&i
panier(i,18) = panier(i,18) + uTab 'total_prod
next
end if |
Partager