Fjern af tal, i en variable/session

Hov under function:

Cart_id = Session("Cart_id")
antal_vare = Session("antal_vare")

Dim id
id = split(Cart_id, ",")
limit = Ubound(id)
Dim antal
antal = split(antal_vare, ",")
For i = 0 to limit -1

If (id(i)) = Request.Querystring("del") Then
  If antal(i) > 0 Then
  antal(i) = antal(i) - 1
  Session("antal_vare") = join(antal, ",")
 
  End if
 
  If antal(i) = 0 Then
              Cart_id = Session("Cart_id")
                antal_vare = Session("antal_vare")
               
              fjernCart_id = Split(Cart_id, ",")
                fjern = Request.Querystring("del")
                id = removeElement(fjernCart_id,fjern)
              Session("Cart_id") = join(id, ",")
               
              antal = removeElement(antal,i)
              Session("antal_vare") = join(antal, ",")
               
               
      End if
 
    Response.redirect("showcart.asp")   
End if
 
Next

Så vidt jeg kan se skal du både hvade rette funktion removeElement til dette så den sammenligner index i array med det som skal fjernes og ikke sammenlingner værdien i arrrayet, bruger du denne funktion til andet? Hvis du bruger den til noget andet så skal kodes laves lidt om og der skal ikke rettes i funktion removeElement:


function removeElement(arr, id)
tmp = ""
for inx1 = 0 to UBound(arr)
  dublet = false
  if Cstr(inx1) = Cstr(Trim(id)) then
    dublet = true
  end if
  if not dublet then
    tmp = tmp & arr(inx1)
    if inx1 < UBound(arr) then
      tmp = tmp & ","
    end if
  end if
next
'if Right(tmp,1) = "," then tmp = Left(tmp,len(tmp)-1)
removeElement = split(tmp,",")

end function



Samt rette i den kode du har vist 25/12-2005 15:06:24 til dette:


Cart_id = Session("Cart_id")
antal_vare = Session("antal_vare")

Dim id
id = split(Cart_id, ",")
limit = Ubound(id)

Dim antal
antal = split(antal_vare, ",")
For i = 0 to limit-1

If (id(i)) = Request.Querystring("del") Then
  If antal(i) > 0 Then
  antal(i) = antal(i) - 1
  Session("antal_vare") = join(antal, ",")
  End if
 
  If antal(i) = 0 Then
    Cart_id = Session("Cart_id")
    antal_vare = Session("antal_vare")
               
    fjernCart_id = Split(Cart_id, ",")
    fjern = i ' fjern skal være index i arrayet og ikke id'et
    id = removeElement(fjernCart_id,fjern)
    Session("Cart_id") = join(id, ",")
               
    antal = removeElement(antal,i)
    Session("antal_vare") = join(antal, ",")
  End if
 
  Response.redirect("showcart.asp")   
End if
 
Next

Eagleeye ;) Kanon ...
Vi tester det lige igennem ;)

Takker det fungere ;)