Scripting.Dictionary nesnesini kullanarak yapabilirsin.
<%
Dim obj
Set obj = Server.CreateObject("Scripting.Dictionary")
obj("adi") = "oktay"
obj("soyadi") = "biyikli"

Response.Write(obj("adi") & " " & obj("soyadi"))
%>