scripting.dictionary

Zdraveite,
Kak da nakaram funkcia da mi varni vsicki elemnti ot hash sazdaden chrez scripting.dictionary ?
Tova dolu ne raboti...
ne ste da mi varni stoinoistta..
function userdatap(username)
path = preg_replace(sname,"[a-z0-9]*\.asp$","")
file = path & data_path & slash & username & ".pta"
Set d = CreateObject("Scripting.Dictionary")
lines = readfile(file)
for each line in lines
data = split(line,"=",-1,1)
d.add data(0), data(1)
next
userdatap = d
end function

Понеже на човека вече му отговориха, ще синтезирам отговора:
когато се ползват обекти, за присвояването им винаги трябва да се ползва Set. В случая:
Set userdatap=d

чети и дишай по-леко