<% dim col, n, i, s set col = server.CreateObject("Scripting.Dictionary") col.Add "gigi","1" col.Add "titi","2" col.Add "mimi","3" Response.Write(col.count) Response.Write(col.Item("gigi")) col.Key("gigi") = "fifi" n = col.Keys s = "" for i = 0 to col.Count - 1 s = s & n(i) next Response.Write(s) col.Remove "fifi" n = col.Items s = "" for i = 0 to col.Count - 1 s = s & n(i) next Response.Write(s) if col.Exists("titi") then col.RemoveAll end if Response.Write(col.count) %>