Dictionary problem

Hej

Jeg har et lille problem... Jeg har lavet en funktion til at hente tekst til noget sprogstyring. Funktionen tror jeg sådan set virker fint. Problemet ligger i når jeg vil bruge funktionen. Jeg kalder funktionen med de rigtige parameter og der kommer ikke fejl. Vil jeg smide funktionens værdi ned i et nyt object kommer problemerne.. 

F.eks.

<%
intPageID = 1
Set textObject = Server.CreateObject(\"Scripting.Dictionary\")
textObject = getPageElements(intPageID)
%>

Dette resulterer i en fejl...
\"Object doesn\'t support this property or method: \'textObject.items\' \"

Hvad pokker gør jeg galt ????
Nå ja min funktion kommer lige her:



\'PRE:
\'POST:
\'NOTE:
function getPageElements(pageID)
    \'Get data
    Set rs = Server.CreateObject(\"ADODB.Recordset\")
    sql = \"SELECT * FROM page, page_element \"
    sql = sql & \"WHERE page.pageID=\" & pageID & \" AND page_element.languageID=\" & session(\"intLanguageID\")
    sql = sql & \" AND page.pageID=page_element.pageID\"
    rs.open sql, objCon
   
    \'Insert into dictionary object
    Set getPageElements = Server.CreateObject(\"Scripting.Dictionary\")
    while not rs.eof
        tmpKey = rs(\"KeyName\")
        tmpElement = rs(\"elementText\")
    if getPageElements.Exists(tmpKey) then
    else
        getPageElements.Add tmpKey, tmpElement
    end if
    rs.MoveNext
wend
rs.Close   
end function