ASP: Oggetto Dictionary

Dim objDict , strValue
'creo un'istanza
Set objDict = Server.CreateObject("Scripting.Dictionary")
'aggiungo 3 elementi
objDict.Add "Sito1" , "http://www.sito1.it"
objDict.Add "Sito2" , "http://www.sito2.it"
objDict.Add "Sito3" , "http://www.sito3.asp"
'Ora impostiamo la chiave da cercare
strValue = objDict.Item("Sito2")
'stampo il risultato
Response.Write "Risultato = " & strValue
Set objDict = Nothing


Il risultato sarà http://www.sito2.it