After further testing I don't believe it's the code.
I opened up IE and entered the URL
http://<server>/CMS/Plugins/Torrance_Interface.asp
That's when I get the 500 Internal Server Error
Here's the ASP code:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled</title>
</head><body>
<%
'on error resume next
Dim objIO, objXMLDOM, xmlData, sError, PageGuid, ParentPageGuid,
ParentPageHeadline
'set objIO = CreateObject("RDCMSASP.RdPageData")
'objIO.XmlServerClassName = "RDCMSServer.XmlServer"
'**********************************************************
' On 12/18/2013 -
' Changed RDCMSASP.RdPageData to OTWSMS.AspLayer.PageData
' Removed objIO.XmlServerClassName = RDCMSServer.XmlServer
'
' In templates Main Foundation, Dept/Div, Advantage and Councilmember -
line 99
' Changed
' guid=dot.previousSibling.firstChild.getAttribute("innerHTML") + "";
' to
' guid=dot.previousSibling.firstChild.innerHTML;
'**********************************************************
set objIO = CreateObject("OTWSMS.AspLayer.PageData")
set oXML=CreateObject("Microsoft.XMLDOM")
set objXMLDOM=CreateObject("Microsoft.XMLDOM")
set objXMLDOM2=CreateObject("Microsoft.XMLDOM")
set objXMLDOM3=CreateObject("Microsoft.XMLDOM")
set objXMLDOM4=CreateObject("Microsoft.XMLDOM")
Function FindParentPage(thePageGuid, theLinkName)
dim theParentPageGuid
theParentPageGuid=""
FindParentPage=""
'Obtain the parent page guid
xmlData = "<IODATA sessionkey=""" & request("sessionkey") & """><PAGE
guid=""" & thePageGuid & """><LINKSFROM action=""load"" /></PAGE></IODATA>"
xmlData = objIO.ServerExecuteXml(xmlData, strError)
objXMLDOM4.LoadXml(xmlData)
If
TypeName(objXMLDOM4.SelectSingleNode("//LINK[@ismainlink='1']"))<>"Nothing"
Then
theParentPageGuid=objXMLDOM4.SelectSingleNode("//LINK[@ismainlink='1']").getAttribute("pageguid")
Else
theParentPageGuid=objIO.getAttribute("LINK", "pageguid", xmlData)
End If
If theParentPageGuid<>"" Then
'List Structure elements of parent page
xmlData = "<IODATA sessionkey=""" & request("sessionkey") & """><PAGE
guid=""" & theParentPageGuid & """ ><LINKS
action=""load""/></PAGE></IODATA>"
xmlData = objIO.ServerExecuteXml(xmlData, strError)
objXMLDOM4.LoadXml(xmlData)
If TypeName(objXMLDOM4.SelectSingleNode("//LINK[@name='" & theLinkName &
"']"))<>"Nothing" Then
FindParentPage=theParentPageGuid
Else
FindParentPage=FindParentPage(theParentPageGuid,theLinkName)
End If
End If
End Function
Select Case Request("action")
Case "ReferenceParentNav"
Call ReferenceParentPageLink("Left_Nav")
Call ReferenceParentPageElement("opt_DepartmentStyle")
Case "ReferenceParentSubNav"
Call ReferenceParentPageLink("SubNavList")
Call ReferenceParentPageElement("stf_PageNavTitle")
Case "DisconnectReference"
xmlData="<IODATA sessionkey=""" & request("sessionkey") & """><LINK
guid=""" & Request("LinkGuid") & """><LINK action=""unlink"" /><URL
action=""unlink""/></LINK></IODATA>"
xmlData=objIO.ServerExecuteXML(xmlData, strError)
'Get Parent Page of this page
xmlData="<IODATA sessionkey=""" & request("sessionkey") & """><PAGE
guid=""" & request("pageguid") & """><LINKSFROM action=""load""
/></PAGE></IODATA>"
xmlData=objIO.ServerExecuteXML(xmlData, strError)
objXMLDOM.LoadXml(xmlData)
ParentPageGuid=""
For Each Link in objXMLDOM.GetElementsByTagName("LINK")
If Link.getAttribute("ismainlink")="1" Then
ParentPageGuid=Link.GetAttribute("pageguid")
Exit For
End If
Next
'List Elements of Parent Page
xmlData="<IODATA sessionkey=""" & request("sessionkey") & """><PAGE
guid=""" & ParentPageGuid & """><ELEMENTS action=""load""/></PAGE></IODATA>"
xmlData=objIO.ServerExecuteXML(xmlData, strError)
objXMLDOM.LoadXml(xmlData)
ParentPageElementGuid=""
For Each Element in objXMLDOM.GetElementsByTagName("ELEMENT")
If Element.GetAttribute("name")="stf_PageNavTitle" Then
ParentPageElementGuid=Element.getAttribute("guid")
Exit For
End If
Next
'List Elements of Page
xmlData="<IODATA sessionkey=""" & request("sessionkey") & """><PAGE
guid=""" & request("pageguid") & """><ELEMENTS
action=""load""/></PAGE></IODATA>"
xmlData=objIO.ServerExecuteXML(xmlData, strError)
objXMLDOM.LoadXml(xmlData)
For Each Element in objXMLDOM.GetElementsByTagName("ELEMENT")
If Element.GetAttribute("name")="stf_PageNavTitle" Then
'Delete Element Reference
xmlData="<IODATA sessionkey=""" & request("sessionkey") & """><ELEMENT
action=""unlink"" guid=""" & Element.getAttribute("guid") & """><ELEMENT
guid=""" & ParentPageElementGuid & """/></ELEMENT></IODATA>"
xmlData=objIO.ServerExecuteXML(xmlData, strError)
Exit For
End If
Next
End Select
'================ SUBROUTINES =======================
Sub ReferenceParentPageLink(LinkElementName)
PageGuid=Request("pageguid")
'Get Parent Page of this page
'xmlData="<IODATA sessionkey=""" & request("sessionkey") & """><PAGE
guid=""" & PageGuid & """><LINKSFROM action=""load"" /></PAGE></IODATA>"
'xmlData=objIO.ServerExecuteXML(xmlData, strError)
'objXMLDOM.LoadXml(xmlData)
'ParentPageGuid=""
'For Each Link in objXMLDOM.GetElementsByTagName("LINK")
'If Link.getAttribute("ismainlink")="1" Then
'ParentPageGuid=Link.GetAttribute("pageguid")
'ParentPageHeadline=Link.GetAttribute("pageheadline")
'Exit For
'End If
'Next
ParentPageGuid=FindParentPage(PageGUID, LinkElementName)
'List Links of Parent Page
xmlData="<IODATA sessionkey=""" & request("sessionkey") & """><PAGE
guid=""" & ParentPageGuid & """><LINKS action=""load""/></PAGE></IODATA>"
xmlData=objIO.ServerExecuteXML(xmlData, strError)
objXMLDOM.LoadXml(xmlData)
ParentSubNavGuid=""
LeftNavFound=false
SubNavFound=false
For Each Link in objXMLDOM.GetElementsByTagName("LINK")
If Link.getAttribute("name")=LinkElementName Then
ParentSubNavGuid=Link.getAttribute("guid")
'Create Reference
xmlData="<IODATA sessionkey=""" & request("sessionkey") & """><CLIPBOARD
action=""ReferenceToLink"" guid=""" & request("linkguid") & """
type=""link"" descent=""unknown""><ENTRY guid=""" & ParentSubNavGuid & """
type=""link"" descent=""unknown"" /></CLIPBOARD></IODATA>"
xmlData=objIO.ServerExecuteXML(xmlData, strError)
Exit For
End If
Next
End Sub
Sub ReferenceParentPageElement(ElementName)
'ASSIGN SAME STYLE AS PARENT
'ListElements of Page
xmlData="<IODATA sessionkey=""" & request("sessionkey") & """><PAGE
guid=""" & PageGuid & """><ELEMENTS action=""load""/></PAGE></IODATA>"
xmlData=objIO.ServerExecuteXML(xmlData, strError)
objXMLDOM.LoadXml(xmlData)
ThisPageElementGuid=""
For Each Element in objXMLDOM.GetElementsByTagName("ELEMENT")
If Element.GetAttribute("name")=ElementName Then
ThisPageElementGuid=Element.GetAttribute("guid")
Exit For
End If
Next
'List Elements of Parent Page (assign style)
xmlData="<IODATA sessionkey=""" & request("sessionkey") & """><PAGE
guid=""" & ParentPageGuid & """><ELEMENTS action=""load""/></PAGE></IODATA>"
xmlData=objIO.ServerExecuteXML(xmlData, strError)
objXMLDOM.LoadXml(xmlData)
For Each Element in objXMLDOM.GetElementsByTagName("ELEMENT")
If Element.GetAttribute("name")=ElementName Then
'Reference Elements
xmlData="<IODATA sessionkey=""" & request("sessionkey") & """><CLIPBOARD
action=""ReferenceToElement"" guid=""" & ThisPageElementGuid & """
type=""element"" descent=""unknown""><ENTRY guid=""" &
Element.GetAttribute("guid") & """ type=""element"" /></CLIPBOARD></IODATA>"
xmlData=objIO.ServerExecuteXML(xmlData, strError)
Exit For
End If
Next
End Sub
%>
<script>
top.opener.location.reload();
window.close();
</script>
</body>
</html>
On Thursday, April 24, 2014 4:20:30 PM UTC-7, Mark Iinuma wrote:
>
> I'm receiving a "500 Internal Server Error" when trying to run a plugin
> which is supposed to get the left nav from the parent page. I'm using
> version 10.1
> I think it has to do with this code.
>
> function clickDot(dot,actionString) {
> guid=dot.previousSibling.firstChild.innerHTML;
> guid=guid.substr(guid.indexOf("GUID=")+5,32);
> window.open("/CMS/Plugins/Torrance_Interface.asp?action=" +
> actionString + "&linkguid=" + guid + "&sessionkey=<%SessionKey%
> >&loginguid=<%LoginGuid%>&pageguid=<%PageGuid%
> >","","toolbar=0,location=0,directories=0,status=1,menubar=0,scrollbars=1,resizable=1,width=10,height=10,screenX=10,screenY=10,left=10,top=10");
> }
>
>
--
You received this message because you are subscribed to the Google Groups
"RedDot CMS Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To post to this group, send email to [email protected].
Visit this group at http://groups.google.com/group/reddot-cms-users.
For more options, visit https://groups.google.com/d/optout.
