OK, let me ask the question a different way:

Does anybody know how (if it is possible at all) to integrate Render
Tags and RQL within a content class that is called by the Navigation
Manager as a Navigation Area?

My latest attempt is below, which does not work correctly: while the
output of the render tags appears as it should, no output appears from
the ASP code at all.

_________________________________

<reddot:cms>
    <htmltext>
      <url>
        <loc>http://www.example.com/cms/<%!!
Escape:HtmlEncode(Context:CurrentIndex.GetUrl()) !!%></loc>

        <lastmod>
    </htmltext>

<!IoRangePreExecute><%
curIndexGuid = <%!! Context:CurrentIndex.Id !!%>

function sendXML(XMLString)
    sErrors = ""
    set XMLDom = Server.CreateObject("RDCMSAspObj.RDObject")
    set RQLObject = Server.CreateObject("RDCMSServer.XmlServer")
    sendXML = RQLObject.Execute(XMLString, sErrors)
    RQLObject = NULL
end function

function getElementAttribute( pageguid, nodename, attname, attvalue,
resAtt )
    XMLData = "<IODATA loginguid='<%inf_loginguid%>' sessionkey='<
%inf_sessionkey%>'>" &_
            "<PAGE guid='" & pageguid & "'>" &_
                "<ELEMENTS action='load'/>" &_
            "</PAGE>" &_
            "</IODATA>"
    resultXML = sendXML(XMLData)
    Set xmlDoc = CreateObject("msxml2.DOMDocument")
    xmlDoc.loadXML(resultXML)
    Set ElemList = xmlDoc.getElementsByTagName(nodename)
    For counter = 0 To (ElemList.length - 1)
        if ElemList.item(counter).getAttribute(attname) = attvalue
then
            elementValue = ElemList.item(counter).getAttribute(resAtt)
        end if
    Next
    ElemList = NULL
    xmlDoc = NULL
    getElementValue = elementValue
end function

Response.Write( getElementAttribute(curIndexGuid, "ELEMENT", "name",
"info_modified", "value") )
%><!/IoRangePreExecute>

    <htmltext>
            </lastmod>

        <changefreq>monthly</changefreq>
        <priority>5</priority>
      </url>
    </htmltext>
<if>
    <query valuea="Context:CurrentIndex.HasChildren()" operator="=="
valueb="Bool:True">
        <htmltext>
            <%!!Escape:Newline!!%>
              <navigation:nextlevel>
            <%!!Escape:Newline!!%>
      </htmltext>
    </query>
</if>
</reddot:cms>

-- 
You received this message because you are subscribed to the Google Groups 
"RedDot CMS Users" group.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to 
[email protected].
For more options, visit this group at 
http://groups.google.com/group/reddot-cms-users?hl=en.

Reply via email to