Seitenübersicht <% IF (id_portal_fr <> nav_level3_id AND id_portal_en <> nav_level3_id) THEN %> <% END IF %>

Auf dieser Seite finden Sie die beiden ersten Inhaltsebenen des Portals in der Übersicht dargestellt.

<% ' /francais.htm pageguid_start = "504F3D882F4B4F81B4FC950A003BCBB4" ' Globale Variablendefinitionen projectguid = "9453DB6269284C8F891A76A18567818C" projectvariantguid = "E73718DF4AA442B69D60C0A6C841C5E6" languagevariant = "DEU" C_LIST_SUBPAGES = "LISTE_subpages" is_smartedit = "" DIM StopWatch(10) SET d_Filenames = CreateObject("Scripting.Dictionary") StartTimer 1 ' ============================================================================= ' PROZEDUR: ' Startet den Timer x ' ============================================================================= SUB StartTimer(x) StopWatch(x) = timer END SUB ' ============================================================================= ' FUNKTION: ' Stoppt den Timer x und liefert die Zeitspanne zurück ' ============================================================================= FUNCTION StopTimer(x) EndTime = Timer 'Watch for the midnight wraparound... IF EndTime < StopWatch(x) THEN EndTime = EndTime + (86400) END IF StopTimer = EndTime - StopWatch(x) END FUNCTION ' ============================================================================= ' FUNKTION: ' Führt ein Login am RedDot-Server durch ' ============================================================================= FUNCTION login (l_username, l_password) SET l_xmlrqldoc = Server.CreateObject("Msxml2.DOMDocument.4.0") RQLStatement = "" & _ "" & _ "" RQLRequest = RQLQuery (RQLStatement) ' Load Result Into XML DOM l_xmlrqldoc.loadXML (CStr(RQLRequest)) SET l_objNode = l_xmlrqldoc.selectSingleNode("//LOGIN") IF l_objNode IS NOTHING THEN login = "" ELSE login = l_objNode.getAttribute("guid") END IF END FUNCTION ' ============================================================================= ' FUNKTION: ' Meldet sich an einem Projekt an ' ============================================================================= FUNCTION logonProject (projectguid) SET lp_xmlrqldoc = Server.CreateObject("Msxml2.DOMDocument.4.0") RQLStatement = "" & _ "" & _ "" & _ "" & _ "" RQLRequest = RQLQuery (RQLStatement) ' Load Result Into XML DOM lp_xmlrqldoc.loadXML (CStr(RQLRequest)) SET lp_objNode = lp_xmlrqldoc.selectSingleNode("//SERVER") IF lp_objNode IS NOTHING THEN logonProject = "" ELSE logonProject = lp_objNode.getAttribute("key") END IF END FUNCTION ' ============================================================================= ' FUNKTION: ' Führt ein Logout am RedDot-Server durch ' ============================================================================= FUNCTION logout () RQLStatement = "" & _ "" & _ "" RQLRequest = RQLQuery (RQLStatement) END FUNCTION ' ============================================================================= ' FUNKTION: ' Erstellt aus der SeitenGUID "glfp_pageguid" oder dem Dateinamen "glfp_pageguid" einen Link ' ============================================================================= FUNCTION getLink (glfp_pageguid, glfp_pageid) IF "" = "" THEN ' Seite wird publiziert IF d_Filenames.Exists(glfp_pageguid) THEN glfp_pagename = d_Filenames.Item(glfp_pageguid) END IF IF glfp_pagename <> "" THEN IF INSTR(glfp_pagename, ".") > 0 THEN getLink = "/" & glfp_pagename ELSE getLink = "/" & glfp_pagename & ".htm" END IF ELSE getLink = "/" & glfp_pageid & ".htm" END IF ELSE IF is_smartedit = "1" THEN ' Seite wird im SmartEdit angezeigt action = "RedDot" mode = "&Mode=1" ELSE ' Seite wird in der Seitenvorschau angezeigt action = "Preview" mode = "" END IF getLink = "/cms/ioRD.asp?Action=" & action & mode & "&projectguid=" & projectguid & "&editlinkguid=&parentpageguid=&pageguid=" & glfp_pageguid & "&targetcontainerguid=&containerpageguid=&projectvariantguid=" & projectvariantguid & "&languagevariantid=" & languagevariant & "&islink=10" END IF END FUNCTION ' ============================================================================= ' FUNKTION: ' Sendet eine RQL Anfrage an den Server und liefert das Ergebnis zurück ' ============================================================================= FUNCTION RQLQuery (Query) SET objData = Server.CreateObject("RDCMSAsp.RDPageData") objData.XmlServerClassName = "RDCMSServer.XmlServer" RQLQuery = objData.ServerExecuteXml(Query, sError) IF sError <> "" THEN 'Response.write "Es ist ein Fehler bei einer RQL-Anfrage aufgetreten: " & sError & "

" 'Response.write "RQL was:" & Server.HTMLEncode(Query) Response.write "<-- Error creating sitemap -->" END IF objData = Null END FUNCTION ' ============================================================================= ' SUB: ' Liefert alle Dateinamen von Seiten als Dictionary-Objekt ' ============================================================================= SUB getFilenames SET gf_xmlrqldoc = Server.CreateObject("Msxml2.DOMDocument.4.0") ' -------------------------------------------------------------------------- ' RQL: Alle Dateinamen bestimmen ' Benötigt: gf_ListGUID ' -------------------------------------------------------------------------- RQLStatement = "" + _ "" + _ "" + _ "" + _ "" RQLRequest = RQLQuery (RQLStatement) ' Load Result Into XML DOM gf_xmlrqldoc.loadXML (CStr(RQLRequest)) SET gf_objNodeList = gf_xmlrqldoc.selectNodes("//PAGE") ' Alle Unterseiten bestimmen FOR i = 0 TO (gf_objNodeList.length - 1) guid = gf_objNodeList.Item(i).getAttribute("guid") name = gf_objNodeList.Item(i).getAttribute("name") d_Filenames.Add guid, name NEXT SET gf_xmlrqldoc = NOTHING SET gf_objNodeList = NOTHING END SUB ' ============================================================================= ' FUNKTION: ' Liefert die GUID der Subpages-Liste in der Seite "gslg_pageid" zurück ' ============================================================================= FUNCTION getSubpageListGUID (gslg_pageid) SET gslg_xmlrqldoc = Server.CreateObject("Msxml2.DOMDocument.4.0") ' -------------------------------------------------------------------------- ' RQL: Alle links auf der Seite "gslg_pageid" laden ' Benötigt: ghifp_PageGUID ' -------------------------------------------------------------------------- RQLStatement = "" + _ "" + _ "" + _ "" + _ "" RQLRequest = RQLQuery (RQLStatement) ' Load Result Into XML DOM gslg_xmlrqldoc.loadXML (CStr(RQLRequest)) SET gslg_objNode = gslg_xmlrqldoc.selectSingleNode("//LINK[@name = '" & C_LIST_SUBPAGES & "']") IF gslg_objNode IS NOTHING THEN getSubpageListGUID = "" ELSE getSubpageListGUID = gslg_objNode.getAttribute("guid") END IF SET gslg_xmlrqldoc = NOTHING SET gslg_objNode = NOTHING END FUNCTION ' ============================================================================= ' FUNKTION: (nicht mehr genutzt) ' Liefert die Überschrift und ID der Seite "ghfp_PageGUID" zurück ' ============================================================================= FUNCTION getHeadlineIDNameFromPage (ghinfp_PageGUID) SET ghinfp_xmlrqldoc = Server.CreateObject("Msxml2.DOMDocument.4.0") ' -------------------------------------------------------------------------- ' RQL: Seiteninfos (einfach) von Seite "ghinfp_PageGUID" laden ' Benötigt: ghinfp_PageGUID ' -------------------------------------------------------------------------- RQLStatement = "" + _ "" + _ "" RQLRequest = RQLQuery (RQLStatement) ' Load Result Into XML DOM ghinfp_xmlrqldoc.loadXML (CStr(RQLRequest)) SET ghinfp_objNode = ghinfp_xmlrqldoc.selectSingleNode("//PAGE") IF ghinfp_objNode IS NOTHING THEN getHeadlineIDNameFromPage = "" ELSE DIM a_ghinfp(3) a_ghinfp(1) = ghinfp_objNode.getAttribute("headline") a_ghinfp(2) = ghinfp_objNode.getAttribute("id") a_ghinfp(3) = ghinfp_objNode.getAttribute("name") getHeadlineIDNameFromPage = a_ghinfp END IF SET ghinfp_xmlrqldoc = NOTHING SET ghinfp_objNode = NOTHING END FUNCTION ' ============================================================================= ' FUNKTION: ' Liefert alle GUIDs, Überschriften und IDs der Seiten in der Liste mit der GUID "gsfl_ListGUID" ' ============================================================================= FUNCTION getSubpagesFromList(gsfl_ListGUID) SET gsfl_xmlrqldoc = Server.CreateObject("Msxml2.DOMDocument.4.0") SubpagesGUIDs = "" ' -------------------------------------------------------------------------- ' RQL: Seiten des Listenelements auflisten ' Benötigt: gsfl_ListGUID ' -------------------------------------------------------------------------- RQLStatement = "" + _ "" + _ "" + _ "" + _ "" RQLRequest = RQLQuery (RQLStatement) ' Load Result Into XML DOM gsfl_xmlrqldoc.loadXML (CStr(RQLRequest)) SET gsfl_objNodeList = gsfl_xmlrqldoc.selectNodes("//PAGE[not(contains(@headline, '[PRE]') or contains(@headline, 'Pressemitteilung'))]") ' Alle Unterseiten bestimmen FOR i = 0 TO (gsfl_objNodeList.length - 1) guid = gsfl_objNodeList.Item(i).getAttribute("guid") headline = gsfl_objNodeList.Item(i).getAttribute("headline") id = gsfl_objNodeList.Item(i).getAttribute("id") SubpagesGUIDs = SubpagesGUIDs & guid & "||||" & headline & "||||" & id IF i < (gsfl_objNodeList.length - 1) THEN SubpagesGUIDs = SubpagesGUIDs & "####" END IF NEXT SET gsfl_xmlrqldoc = NOTHING SET gsfl_objNodeList = NOTHING getSubpagesFromList = SubpagesGUIDs END FUNCTION ' --------------------------------------------------------------- ' MAIN: Bestimmen und Darstellen der Sitemap ' --------------------------------------------------------------- IF "" = "" THEN loginguid = login("_sitemapper", "standardlogin") nmsid = logonProject(projectguid) getFilenames ELSE loginguid = "" nmsid = "" END IF IF nmsid <> "" AND pageguid_start <> "" THEN startingSubpagesListGUID = getSubpageListGUID(pageguid_start) startingSubpagesList = getSubpagesFromList(startingSubpagesListGUID) ' Ebene 1 a_subpages_l1 = SPLIT(startingSubpagesList, "####") Response.write "

" & headline_l1 & "" ' begin::Ebene 2 SubpagesListGUID_l2 = getSubpageListGUID(guid_l1) SubpagesList_l2 = getSubpagesFromList(SubpagesListGUID_l2) a_subpages_l2 = SPLIT(SubpagesList_l2, "####") IF SubpagesList_l2 <> "" THEN Response.write "
- " & headline_l2 & "
" END IF ' end::Ebene 2 Response.write "

" IF "" = "" THEN logout() END IF END IF Response.write "" %>

<% template_area = "right" %> "AE23D15E29394666842241971B025C01"

"9FD9D4DEB6324DAB9A6654F827A7C60E"