<% dim d set d=Server.CreateObject("Scripting.Dictionary") d.Add "o", "Orange" d.Add "a", "Apple" if d.Exists("o")= true then Response.Write("Key exists.") else Response.Write("Key does not exist.") end if set d=nothing %>