ASP Set a key

Set a key

<html>
<body>

<%
dim d
set d=Server.CreateObject("Scripting.Dictionary")
d.Add "n", "Green"
d.Add "i", "Red"
d.Key("i") = "it"
Response.Write("Key: " & d.Item("it"))
set d=nothing
%>

</body>
</html>