tilldela session efter abandon

hejsan...

har en massa sessions som jag vill doda men behalla en utav de, har testat allt mojligt men det funkar inte:
dessa funkar inte fattar inte varfor

<%
Session.Abandon
Session("xxx") = "DAMN"
%>

For Each objSession In Session.Contents
  If objSession <> session("xxx") = "DAMN"  Then
    Session.Contents.Remove(objSession)
  End If
Next

strSession = Session("xxx")
Session.Abandon
Session("xxx") = strSession

nar jag kollar min session check sa e alla sessions doda, e det sa att man inte kan tilldela en session efter session.abandon??

Testat att skriva den andra versionen rätt? ;)

For Each objSession In Session.Contents
  If LCase(objSession) <> "xxx" Then
    Session.Contents.Remove(objSession)
  End If
Next

sebbe skriv in din andra version sa att jag kan acceptera den som slutgiltig

Säger du det så. ;)

strSession = Session("secure")
Session.Contents.RemoveAll
Session("secure") = strSession