The term we use for an external asp file is "plugin"
It's usually put in the asp/plugins directory.
I'm not exactly sure what you are doing since you call it an external
file but you must be including it somewhere so that your in-template
call can find it.
is all that code you wrote in a content class or in a physical file on
the server?
However you're doing, it, just add the render tag I gave you into your
call as one of the parameters.
It should work since it will be replaced before the call is made with
the real guid.
<%=strLinkingScheduleBanner("<%info_LiveChatSessionKey%>","<
%info_LiveChatLoginGUID%>", "<%info_LiveChatPageGUID%>", <%!!
Context:CurrentMasterPage.Id> !!%>)%>
On Jul 1, 4:05 pm, Bill Rishsew <[email protected]> wrote:
> Not sure what you mean by plugin.
> What I've done is write a separate ASP page with a few functions in it.
> I then call the function from within the Template where I can gather the
> unigue values required by the function.
> I've included examples below.
> Just seems like I should be able to grab the outermost page guid.
> I checked for Session Variables and didn't find any. You know of some?
> Better way to do this?
>
> *In the Template*
>
> <!IoRangeRedDotMode><%=strLinkingScheduleBanner("<%info_LiveChatSessionKey%>",
> "<%info_LiveChatLoginGUID%>", "<%info_LiveChatPageGUID%>")%><
> !/IoRangeRedDotMode>
>
> *In the External ASP File*
>
> <%
> Function xmlPage(XMLString)
> set objData = server.CreateObject("RDCMSASP.RdPageData") ' *
> objData.XMLServerClassname="RDCMSServer.XmlServer" ' *
> xmlPage = objData.ServerExecuteXML(XMLString, sErrors)
> End Function
>
> Function DecodeDate(OldDate)
> Dim objIO
> Set objIO = CreateObject("RDCMSAsp.RDPageData")
> DecodeDate = objIO.decodedate(OldDate)
> End Function
>
> Function getParentPageGUID(strSessionKey, strLoginGUID, strPageGUID)
> XMLString = ""
> XMLString = XMLString & "<IODATA loginguid='" & strLoginGUID & "'
> sessionkey='" & strSessionKey & "' format='0'>"
> XMLString = XMLString & " <PAGE action='load' guid='" & strPageGUID &
> "' />"
> XMLString = XMLString & "</IODATA>"
> xmlFile = xmlPage(XMLString)
> Response.Write("<!-- " & strPageGUID & " -->") & vbCrLf
> Response.Write("<!-- " & xmlFile & " -->")
> Set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.4.0")
> xmlDoc.loadXML(xmlFile)
> Set RDxmlNodeList = xmlDoc.getElementsByTagName("PAGE")
> getParentPageGUID = RDxmlNodeList(0).getAttribute("parentguid")
> End Function
>
> Function strLinkingSchedule(strSessionKey, strLoginGUID, strLinkPageGUID,
> strParentPageGUID)
> If strSessionKey = "" Or strLoginGUID = "" Or strLinkPageGUID = "" Then
> strLinkingSchedule = "[<img src='http://reddot/cms/Icons/TimeState.gif'
> align='absmiddle' style='display:inline' /> Linking information not
> available]"
> Else
> XMLString = ""
> XMLString = XMLString & "<IODATA sessionkey='" & strSessionKey & "'
> loginguid='" & strLoginGUID & "'>"
> XMLString = XMLString & " <PAGE guid='" & strLinkPageGUID & "'>"
> 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")
> If (StrComp(strCurrentPageGUID, strParentPageGUID, 1) = 0) Then
> With RDxmlNodeList(x)
> RdBeginDate = .getAttribute("datebegin")
> RdEndDate = .getAttribute("dateend")
> RdDateState = .getAttribute("datestate")
> End With
> End If
> Next
> strLinkingSchedule = strLabel(RdDateState, RdBeginDate, RdEndDate)
> End If
> 'Response.Write("<!-- PageGUID: " & strLinkPageGUID & " -->") & vbCrLf
> 'Response.Write("<!-- ParentPageGUID: " & strParentPageGUID & " -->")
> & vbCrLf
> 'Response.Write("<!-- " & xmlFile & " -->")
> End If
> End Function
>
> Function strLinkingScheduleBanner(strSessionKey, strLoginGUID,
> strPageGUID)
> If strSessionKey = "" Or strLoginGUID = "" Or strPageGUID = "" Then
> strLinkingScheduleBanner = "[<img
> src='http://reddot/cms/Icons/TimeState.gif'align='absmiddle'
> style='display:inline' /> Linking information not available]"
> 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")
> strParentPageGUID = getParentPageGUID(strSessionKey, strLoginGUID,
> strPageGUID)
> If RDxmlNodeList.length > 0 Then
> For x = 0 to (RDxmlNodeList.length - 1)
> strCurrentPageGUID = RDxmlNodeList(x).getAttribute("pageguid")
> If (StrComp(strCurrentPageGUID, strParentPageGUID, 1) = 0) Then
> With RDxmlNodeList(x)
> RdBeginDate = .getAttribute("datebegin")
> RdEndDate = .getAttribute("dateend")
> RdDateState = .getAttribute("datestate")
> End With
> End If
> Next
> strLinkingScheduleBanner = strLabel(RdDateState, RdBeginDate,
> RdEndDate)
> End If
> Response.Write("<!-- PageGUID: " & strPageGUID & " -->") & vbCrLf
> Response.Write("<!-- ParentPageGUID: " & strParentPageGUID & " -->") &
> vbCrLf
> 'Response.Write("<!-- " & xmlFile & " -->")
> End If
> End Function
>
> Function strLabel(RdDateState, RdBeginDate, RdEndDate)
> 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 ""
> strIconMsg = "An error has occurred"
> Case Else
> strIconMsg = "Story has expired"
> End Select
>
> If RdBeginDate = "0" Then
> If RdEndDate = "0" Then
> strLabel = " [<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
> strLabel = " [<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
> If RdEndDate = "" Then
> strLabel = " [<img alt='" & strIconMsg & "'
> src='http://reddot/cms/Icons/TimeState"; & RdDateState & ".gif'
> align='absmiddle'
> style=""display:inline"" /> <span style=""font-size: 7pt;"">An error has
> occurred</span>]"
> Else
> strLabel = " [<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>]"
> End If
> Else
> strLabel = " [<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 Function
> %>
>
> On Thu, Jul 1, 2010 at 2:52 PM, Wayne Bouwmeester <
>
> [email protected]> wrote:
> > Not sure where the render tag doc'n comes from - should be available
> > from OpenText.
>
> > Where is your ASP code? In a template or in a separate file in the
> > Plugins directory?
>
> > If your code is in a template, just paste the code in.
> > If it's in a file that you are calling with a url, add it as a url
> > parameter abcd.asp?parentPageGUID="<%!!
> > Context:CurrentMasterPage.Id> !!%>
>
> > If you're calling the plugin from the actions menu or someting, you're
> > kinda hooped.
> > You might be able to parse it out of one of the session variables, but
> > I didn't see one that had the current outer page guid.
>
> > I'd suggest creating a form, adding parentpageguid as a hidden field
> > along with anything else you need, setting the action of the form to
> > the asp file in the plugins directory, and giving the user a submit
> > button.
> > set the target to _blank and you should be good. You can get fancy
> > with javascript later if you want to control window size and options.
>
> > On Jul 1, 3:17 pm, Bill Rishsew <[email protected]> wrote:
> > > Render tags? Is there documentation for them?
>
> > > How do I insert CurrentParentPageGuid = "<%!!
> > Context:CurrentMasterPage.Id
> > > !!%>" inside of ASP code? I've tried a variety of ways to no avail.
>
> > > And Thanks.
> > > On Thu, Jul 1, 2010 at 1:54 PM, Wayne Bouwmeester <
>
> > > [email protected]> wrote:
> > > > You should be able to get it via render tags, and render it as part of
> > > > your code.
> > > > Paste this into your code (assuming the code is within the banner
> > > > class)
> > > > Otherwise, you'll need to put it in the URL you use to call your
> > > > plugin as a query parameter.
> > > > CurrentParentPageGuid = "<%!! Context:CurrentMasterPage.Id !!%>"
>
> > > > On Jul 1, 2:31 pm, Bill Rishsew <[email protected]> wrote:
> > > > > I used
>
> > > > > <IODATA loginguid="[!guid_login!]" sessionkey="[!key!]">
> > > > > <PAGE action="load" guid="[!guid_page!]"/>
> > > > > </IODATA>
>
> > > > > And pulled the *parentguid* (GUID of the element with which the page
> > is
> > > > > connected.)
>
> > > > > The problem here is that it is pulling the parentguid for the "main
> > link"
> > > > in
> > > > > the list of links!
>
> > > > > There has to be a way to get the parent link of the current page!!
> > Right?
>
> > > > > I've been all through the RQL documentation and just don't see it.
>
> > > > > On Thu, Jul 1, 2010 at 10:26 AM, Bill Rishsew <
> > [email protected]
> > > > >wrote:
>
> > > > > > Craig,
> > > > > > Thanks for the input. I think I should better explain myself. I
> > can
> > > > do
> > > > > > so now because of all of the attempts I've made at this. I'm a home
> > > > schooled
> > > > > > student in RedDot and I'm the teacher too. The more I dig, the more
> > I
> > > > > > understand. So I don't think
>
> ...
>
> read more »
--
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.
