<IODATA loginguid="[!guid_login!]" sessionkey="[!key!]" format="0"> <ELT action="load" guid="[!guid_element!]" /> </IODATA>
look for the pageguid attribute in the returned ELT node. On Jun 30, 8:52 am, Bill Rishsew <[email protected]> wrote: > Okay, found the error in my way of doing this. > When the RQL returned the XML and then looked at it, it always zeroed > in on the 0th element. > I added a For loop to compare PageGUIDs and was able to display the > correct publishing (linking) information next to each link. > This was easy enough to do (see below) when an element was set up to > transfer element content of following pages. > The trouble is that not all elements can do this, so my next questions > is: > > How can I easily retrieve the Parent Page GUID for a link? > > Function strLinkingSchedule(strSessionKey, strLoginGUID, strPageGUID, > strThisPageGUID) > If strSessionKey = "" Or strLoginGUID = "" Or strPageGUID = "" > Then > strLinkingSchedule = "" > Else > XMLString = "" > XMLString = XMLString & "<IODATA sessionkey='" & strSessionKey & > "' loginguid='" & strLoginGUID & "'>" > XMLString = XMLString & " <PAGE guid='" & strPageGUID & "'>" > XMLString = XMLString & " <LINKSFROM action='load' />" > XMLString = XMLString & " </PAGE>" > XMLString = XMLString & "</IODATA>" > xmlFile = xmlPage(XMLString) > Set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.4.0") > xmlDoc.loadXML(xmlFile) > Set RDxmlNodeList = xmlDoc.getElementsByTagName("LINK") > If RDxmlNodeList.length > 0 Then > For x = 0 to (RDxmlNodeList.length - 1) > strCurrentPageGUID = > RDxmlNodeList(x).getAttribute("pageguid") > Response.Write "<!-- CurrentPageGUID: " & strCurrentPageGUID > & " - ThisPageGUID: " & strThisPageGUID & " -->" > If (StrComp(strCurrentPageGUID, strThisPageGUID, 1) = 0) > Then > With RDxmlNodeList(x) > RdBeginDate = .getAttribute("datebegin") > RdEndDate = .getAttribute("dateend") > RdDateState = .getAttribute("datestate") > End With > End If > Next > Dim strIconMsg : strIconMsg = "" > Select Case RdDateState > Case "1" > strIconMsg = "Unlimited appearance schedule" > Case "2" > strIconMsg = "Link is not yet active" > Case "3"' > strIconMsg = "Link is active" > Case Else > strIconMsg = "Story has expired" > End Select > If RdBeginDate = 0 Then > If RdEndDate = 0 Then > strLinkingSchedule = " [<img alt='" & > strIconMsg & "' src='http://reddot/cms/Icons/TimeState"; & RdDateState > & ".gif' align='absmiddle' style=""display:inline"" /> <span > style=""font-size: 7pt;"">Permanent</span>]" > Elseif RdEndDate <> 0 Then > strLinkingSchedule = " [<img alt='" & > strIconMsg & "' src='http://reddot/cms/Icons/TimeState"; & RdDateState > & ".gif' align='absmiddle' style=""display:inline"" /> <span > style=""font-size: 7pt;"">No start date - " & DecodeDate(RdEndDate) & > "</span>]" > End If > Else > If RdEndDate <> 0 Then > strLinkingSchedule = " [<img alt='" & > strIconMsg & "' src='http://reddot/cms/Icons/TimeState"; & RdDateState > & ".gif' align='absmiddle' style=""display:inline"" /> <span > style=""font-size: 7pt;"">" & DecodeDate(RdBeginDate) & " - " & > DecodeDate(RdEndDate) & "</span>]" > Else > strLinkingSchedule = " [<img alt='" & > strIconMsg & "' src='http://reddot/cms/Icons/TimeState"; & RdDateState > & ".gif' align='absmiddle' style=""display:inline"" /> <span > style=""font-size: 7pt;"">" & DecodeDate(RdBeginDate) & " - No end > date</span>]" > End If > End If > End If > Response.Write "<!-- " & xmlFile & " -->" > End If > End Function -- 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.
