opdater antal i indkøbskurv, hvordan??

Noget i stil med:

strVarer = session("kurv")

if instr("|" & strVarer & "|", "|" & id & "=" & value & "|") > 0 then
  ' så eksisterer varen
else
  ' så eksisterer den ikke
end if

Jeg må indrømme at jeg gik i krig med min egen kode før jeg så din. Kunne godt tænke mig at få min egen til at virke. Måske du kan hjælpe?

Jeg har indtil videre:

Session("kurv")="id1=1|id2=1|id3=1"

arrvare = split(session("kurv"),"|")
  for u=0 to Ubound(arrvare)
    vare = split(arrvarer(u),"=")
      if vare(0) = Request("orderID") then
        vare(1) = vare(1) + 1
    arrvare(u) = vare(0) & "=" & vare(1)
        ???????????????????????????????????????
      end if
  next

Så er jeg ikke rigtigt nået længere. Hvordan får jeg nu min nye arrvare(u) under "???????????????????" indsat det rigtige sted i sessionen? -og kan det overhovedet lade sig gøre på denne måde?

session("kurv") = join(arrvare)

vil samle dit array i en streng igen...

session("kurv") = join(arrvare,"|")

skulle det vist være - sorry.

Super! Så virker det sgu'!

Den endelige kode kom til at se således ud:

if Session("kurv") = "" then
  session("kurv") = session("kurv") & Request("orderID") & "=1"
else   
  arrvare = split(session("kurv"),"|")
    for u=0 to Ubound(arrvare)
      vare = split(arrvare(u),"=")
        if vare(0) = Request("orderID") then
      vare(1) = (vare(1) + 1)
      arrvare(u) = vare(0) & "=" & vare(1)
      session("kurv") = join(arrvare,"|")
      exist = 1
    end if   
    next           
               
end if


if exist = 1 then
  Response.Write Session("kurv")
else
  session("kurv") = session("kurv") & "|" & Request("orderID") & "=1"
  Response.Write Session("kurv")
end if

Smid et svar så får du lidt points igen! :-)

Svaret kommer der... :)

Den endelige kode kom faktisk til at se således ud:

if Session("kurv") = "" then
  session("kurv") = session("kurv") & Request("orderID") & "=1"
  exist = 1
else   
  arrvare = split(session("kurv"),"|")
    for u=0 to Ubound(arrvare)
      vare = split(arrvare(u),"=")
        if vare(0) = Request("orderID") then
          vare(1) = (vare(1) + 1)
          arrvare(u) = vare(0) & "=" & vare(1)
          session("kurv") = join(arrvare,"|")
          exist = 1
        end if   
    next           
               
end if


if exist = 1 then
  Response.Write Session("kurv")
else
  session("kurv") = session("kurv") & "|" & Request("orderID") & "=1"
  Response.Write Session("kurv")
end if

Takker!

Tak for point og velbekomme :)


Du kunne i princippet forkorte kode lidt (men enig - det er flueknepperi):

if Session("kurv") = "" then
  session("kurv") = session("kurv") & Request("orderID") & "=1"
  exist = 1
else   
  arrvare = split(session("kurv"),"|")
  for u=0 to Ubound(arrvare)
    vare = split(arrvare(u),"=")
    if vare(0) = Request("orderID") then
      vare(1) = (vare(1) + 1)
      arrvare(u) = vare(0) & "=" & vare(1)
      session("kurv") = join(arrvare,"|")
      exist = 1
      exit for ' ingen grund til at loope resten - id er jo fundet...
    end if   
  next           
end if


if exist <> 1 then
  session("kurv") = session("kurv") & "|" & Request("orderID") & "=1"
end if

Response.Write Session("kurv")