<% Function InheritContainers(PageGuid) '***1. Get the guid of the element opt_TriggerInherit strField = "opt_TriggerInherit" XMLString = _ "" & _ "" & _ "" & _ "" & _ "" XMLData = objIO.ServerExecuteXml (XMLString, sError) Elements = Split(XMLData, " 0 Then ElementGuid = Split(ElementData, " guid=""")(1) ElementGuid = Left(ElementGuid, Instr(ElementGuid, """") - 1) '*** Set opt_TriggerInherit to FALSE so this doesn't run again. XMLString = _ "" & _ "" & _ "" & _ "" & _ "" XMLData = objIO.ServerExecuteXml (XMLString, sError) End If Next End Function If bTriggerInherit = "TRUE" Then set objIO = Server.CreateObject("RDCMSASP.RdPageData") objIO.XmlServerClassName = "RDCMSServer.XmlServer" SessionKey = "" LoginGUID = "" InheritContainers(MyPageGuid) End If %>