"Rasmus Nielsen" <postmaster@rasmusn.dk> wrote in message
news:3c654b51$0$241$edfadb0f@dspool01.news.tele.dk...
> Vha. kode fra indlægget "Array i session" har jeg fået lavet en session,
der
> eks. ser således ud:
> ,7621,4000,1144
> Hvad er koden så, hvis man gerne vil fjerne et af tallene, som eks. kunne
> ligge i variablen "fjern"? Der anvendes kun 4-cifrede tal i session'en.
Jeg lavede engang en funktion til en indkøbskurv du kan sikkert snildt bruge
den med lidt modifikationer:
Function SletEmne( Emneid )
Dim i, temparr, emner
'Emnerne fra den kommasepererede liste i Sessionen samles i et array.
temparr = Split( Session( "Kurv" ), "," )
' Alle emner i kurven føres en for en over i en streng hvis det
ikke er den der skal slettes.
emner = ""
For i = 0 to UBound( temparr )
If temparr(i) <> Emneid Then
If emner = "" Then
emner = temparr(i)
Else
emner = emner & "," & temparr(i)
End If
End If
Next
' Vi læser strenge tilbage i vores session
Session( "Kurv" ) = emner
End Function