Storing a Dictionary to a Session

[iBeko]

I created this function but it seems to give me a problem. I want to store a dictionary into an Session variable so I can access the dictionary throughout the website. I keep getting the error Object required: DictionaryObject or it will say This key already exist in the dictionary. Can someone please tell me what I am doing wrong?I did look storing dictionary in session at this posting but didn't really fit what I am trying to do!\[code\]Function LoadPermissions() Dim SQLString SQLString ="SELECT datafields here... FROM " & TBL_employees_permissions & " AS p WHERE p.eid = '" & Clng(12) & "';" If IsObject(Session("dicPermissions")) = True Then Set dicPermissions = Session("dicPermissions") Else Set dicPermissions = Server.CreateObject("Scripting.Dictionary") End If db_conn conn, rs ' Set myRS = conn.Execute (SQLString) For each item in myRS.Fields If IsObject(Session("dicPermissions")) = True AND DictionaryObject.Exists(Trim(item.Name)) = False Then dicPermissions.Add Trim(item.Name), Trim(myRS(item.Name)) End If Next db_disconn conn, rs Set Session("dicPermissions") = dicPermissions 'Store Dictionary to session array.End Function\[/code\]