Got it, thanks. Works well.
Is there a way to get the information in a single XML.
I'm using
<IODATA sessionkey=[!key!] loginguid=[!guid_login!]'>
<PAGE guid=[!guid_element!]'>
<LINKSFROM action='load' />
</PAGE>
</IODATA>
and
<IODATA loginguid="[!guid_login!]" sessionkey="[!key!]" format="0">
<ELT action="load" guid="[!guid_element!]" />
</IODATA>
On Wed, Jun 30, 2010 at 7:59 AM, Wayne Bouwmeester <
[email protected]> wrote:
> <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]<reddot-cms-users%[email protected]>
> .
> For more options, visit this group at
> http://groups.google.com/group/reddot-cms-users?hl=en.
>
>
--
Work Hard! Play Harder!!
--
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.
