xxxxxxxxxx
<html>
<body>
<FONT COLOR=#ff0000><%
dim d
set d=Server.CreateObject("Scripting.Dictionary")
d.Add "n", "Norway"
d.Add "i", "Italy"
d.Key("i") = "it"
Response.Write("The key i has been set to it, and the value is: " & d.Item("it"))
set d=nothing
%></FONT>
</body>
</html>