Collegare parole chiave ad un risultato

L'oggetto Dictionary permette di collegare delle parole chiave ad un risultato:

<%

Dim siti

Set siti= CreateObject("Scripting.Dictionary")

siti.Add "f", "Font.it"

siti.Add "h", "html.it"

siti.Add "e", "emerchant.it"

siti.Add "w", "wapitalia.it"

Response.Write " 'h' = " siti.Item("h")

%>

Risultato:

h = html.it