<% ' Heavily rev by JebB 04/04/2007 ' New: NAV and Content.asp are now dis-engaged from Memphis ' IMPORTANT: relies on /Help/Include/Content.asp. sHelpContent = lcase( Request.QueryString ("display") ) If sHelpContent = "" Then sHelpContent = "default" End If ' sHelpContent values map to include names, and control the help "page". ' Said includes are Memphis docs. ' Construct appropriate title content - useful for google search appliance results. Select Case sHelpContent Case "newuser01" sTitleElement = "The Motley Fool Disclaimer" Case "newuser02" sTitleElement = "The Motley Fool's Rules" Case "newuser03" sTitleElement = "Privacy Statement" Case "newuser04" sTitleElement = "Registration FAQ" Case "reguser01" sTitleElement = "Subscription Email FAQ" Case "reguser02" sTitleElement = "Username & Password Help" Case "reguser03" sTitleElement = "Address & Account Help" Case "morehelp01" sTitleElement = "Site Map" Case "morehelp02" sTitleElement = "Secure Submission" Case "morehelp03" sTitleElement = "Current Feature Archives" Case "morehelp04" sTitleElement = "Older Archives" Case "gems02" sTitleElement = "Hidden Gems - Getting Started" Case "incomeinvestor02" sTitleElement = "Income Investor - Getting Started" Case "retirement02" sTitleElement = "Rule Your Retirement - Getting Started" Case "insidevalue02" sTitleElement = "Inside Value - Getting Started" Case "rulebreakers02" sTitleElement = "Rule Breakers - Getting Started" Case "stockadvisor02" sTitleElement = "Stock Advisor - Getting Started" Case "community01" sTitleElement = "The Fool Community Beginner's Tutorial" Case "community02" sTitleElement = "The Fool Community Advanced Features" Case "community03" sTitleElement = "The Fool Community Terms and Conditions" Case "community04" sTitleElement = "The Fool Community Posting Guidelines" Case "community05" sTitleElement = "The Fool Community FAQ" Case "community06" sTitleElement = "The Fool Community Mission" Case "myfool01" sTitleElement = "My Fool - My Boards" Case "myfool03" sTitleElement = "My Fool - Favorite Links" Case "about01" sTitleElement = "Contact Us" Case "about02" sTitleElement = "Fool Disclosure Policy" Case "about03" sTitleElement = "Stuff We Own" Case "emailnews" sTitleElement = "Contact Editorial" Case "emailsupport" sTitleElement = "Member Services" Case "default" sTitleElement = "Site Help" Case else sTitleElement = "Help Content" End Select If sTitleElement <> "" Then sTitleElement = " | " & sTitleElement End If %> <% ' ------------------------------------------------------------------------------------------------- ' NoSubAllowed ' This prevents publisher from doing replacements in this file. %> Help <% = sTitleElement %>
<% 'Important: Email Contact forms must be invoked here to avoid errors. select case Lcase(sHelpContent) case "emailnews" %> <% case "emailsupport" %> <% case else Call HelpIncludes end select %>