SiteMap.Provider.CurrentNode.Title

Collapse
This topic is closed.
X
X
Collapse
 
  • Page of 1
  • Time
  • Show
Clear All
new posts
Previous template Next
  • Mark B
    #1

    SiteMap.Provider.CurrentNode.Title

    In my Title and Description web.sitmap file I use:

    3255|Home
    5434|Support
    5342|Contact

    etc in the Title and Description properties. The number represents a phrase
    lookup ID in a function that returns a translated word in French, German
    etc.

    The following works to amend all SiteMap Node titles in memory.

    Function fSetMenuItems() As Boolean

    Dim siteNodes As SiteMapNodeColl ection
    siteNodes = SiteMap.RootNod e.GetAllNodes()
    Dim s As SiteMapNode

    For Each s In siteNodes
    SiteMap.Provide r.CurrentNode.R eadOnly = False
    s.ReadOnly = False
    s.Title = fGetLanguageIDV alue(Val(Left(s .Title,4)),
    strCurrentLangu ageCode) 'Return the translated word
    Next

    End Function


    After I have changed to French however and want to go to German, I need to
    know the original XML values of the Title and Description so I can run
    fSetMenuItems again.

    How can I get them?

    Tags: None
    • Mark B
      #2
      Re: SiteMap.Provide r.CurrentNode.T itle

      Never mind -- I just used a custom Site Node attribute to store the ID's.



      "Mark B" <none123@none.c omwrote in message
      news:%23HoPjP$G JHA.4296@TK2MSF TNGP02.phx.gbl. ..
      In my Title and Description web.sitmap file I use:
      >
      3255|Home
      5434|Support
      5342|Contact
      >
      etc in the Title and Description properties. The number represents a
      phrase lookup ID in a function that returns a translated word in French,
      German etc.
      >
      The following works to amend all SiteMap Node titles in memory.
      >
      Function fSetMenuItems() As Boolean
      >
      Dim siteNodes As SiteMapNodeColl ection
      siteNodes = SiteMap.RootNod e.GetAllNodes()
      Dim s As SiteMapNode
      >
      For Each s In siteNodes
      SiteMap.Provide r.CurrentNode.R eadOnly = False
      s.ReadOnly = False
      s.Title = fGetLanguageIDV alue(Val(Left(s .Title,4)),
      strCurrentLangu ageCode) 'Return the translated word
      Next
      >
      End Function
      >
      >
      After I have changed to French however and want to go to German, I need to
      know the original XML values of the Title and Description so I can run
      fSetMenuItems again.
      >
      How can I get them?
      >

        Comment

        Previous template Next
        Working...