ASP: сохранить обьект в Application

примерно так все это выглядитDim XML Set XML=Server.CreateObject("MSXML2.DOMDocument") Function getMenu(langID,itemName,subItemName) Dim Item Set Item=XML.createElement(itemName) 'тут подымаем меню с базы, строим дерево и все такое Set getMenu=Item Set Item=Nothing End Function If Application("menu")="" Then Application.Lock Set Application("menu")=getMenu(lang,"menu","menuitem") Application.UnLock End If Ругается на строчку Set Application("menu")=getMenu(lang,"menu","menuitem") следующими словами Error Type: Application object, ASP 0185 (0x80020003) A default property was not found for the object. фсем спасиба сделал так, работает:)Dim XML Dim XMLMenuSet XML=Server.CreateObject("MSXML2.DOMDocument") Set XMLMenu=Server.CreateObject("MSXML2.DOMDocument") Function getMenu(langID,itemName,subItemName) Dim Item Set Item=XML.createElement(itemName) 'тут подымаем меню с базы, строим дерево и все такое Set getMenu=Item Set Item=Nothing End Function If Application("menu")="" Then XMLMenu.appendChild(getMenu(lang,"menu","menuitem"))Application.Lock Application.Contents("menu")=CStr(XMLMenu.xml)Application.UnLock End If