%@ Language=VBScript %> <% if session("item")=0 then response.redirect "caddievide.asp" end if Temp=Session("Caddy") select case request("Action") case "Vider le Caddy" session("Item")=0 response.redirect "caddievide.asp" case "Commander" direc="commande.asp?paiement="&request.querystring("paiement") response.redirect direc case "Recalculer" for i=0 to session("item")-1 Qte="quantite"&i if isNumeric(request(Qte)) then if int(request(Qte))>0 then Temp(2,i)=int(request(Qte)) end if end if Session("Caddy")=Temp next response.redirect "caddie.asp" end select ' calcul des totaux totalHt=0 Qte=0 for i=0 to session("Item")-1 prix=replace((Temp(3,i)),".",",") TotalHt=TotalHt+prix*temp(2,i) Qte=Qte+temp(2,i) next %>
|
|
||||||||||||||||||||||||||||||||||||