Session cleaning problem

[Dan King]

At a summary page, I am trying to clean up Session.Contents so the user can
go back to the main page and not retain any unnecessary info.
I have entered this into my summary page, but it seems to only eliminate
every other or every third entry. If I refresh the page about 0 times
everything eventually clears out. Anyone know why it would do this?

I don't want to use Session.Abandon because there are a few Session.Contents
I want to retain, like usernams and passwords.

<%
----snip----
For Each objItem in Session.Contents
Session.Contents.Remove objItem
Next
----snip----
%>

Session.Contents are being added like this:

<%
----snip----
Session("uName") = uName 'put info into a session variable
Session("uEmail") = uEmail 'put info into a session variable
Session("uPass") = uPass 'put info into a session variable
Session("uDomain") = uDomain 'put info into a session variable
----snip----
%>

Thanks

 

[Dan King]

I found my answer.
---------
arrSessionsToKeep = array("uName","uPass","uEmail","uDomain")
strSessionsToDelete = ""
for each objItem in Session.Contents
OkayToDelete = True
for each arrItem in arrSessionsToKeep
if arrItem = objItem Then
OkayToDelete = False
exit for
end if
next
if OkayToDelete then
strSessionsToDelete = strSessionsToDelete & objItem & ","
End If
next
arrSessionsToDelete = Split(strSessionsToDelete, ",")
for each arrItem in arrSessionsToDelete
Session.Contents.remove(CStr(arrItem))
next