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.
