Primary navigation

<% Dim strParentPages strParentPages="/cps/rde/dpi/hs.xsl/4791_4915_ENA_HTML.htm" 'The delimiter between values in the breadcrumb is different in preview and published versions of the pages. 'The sessionkey determines which state you are in. If ""<>"" Then 'Preview Mode Token="&" Else 'Published Token=" " End If 'FUNCTION TO CHECK IF NAV ITEMS IS "ACTIVE" (links to the current page or a parent/ancestor of the current page) Function isActive(strURL) 'Checks if strURL is anywhere in the strParentPages string. If InStr(strURL, Token & "pageguid=") > 0 Then If InStr(strParentPages, Mid(strURL, InStrRev(strURL, Token & "pageguid="), 42)) > 0 Then isActive = True Else isActive = False End If Else isActive = False End If End Function 'FUNCTION TO CHECK IF NAV ITEMS IS "CURRENT" (links to the current page) Function isCurrent(strURL) 'Checks if strURL (path/filename of nav item) is the current page If InStr(strURL, Token & "pageguid=") > 0 Then If InStr("/cps/rde/dpi/hs.xsl/4791_4915_ENA_HTML.htm", Mid(strURL, instrrev(strURL, Token & "pageguid="), 42)) > 0 Then isCurrent = True Else isCurrent = False End If Else isCurrent = False End If End Function Dim iPrimaryPageID, sHeading iPrimaryPageID = 4791 sHeading = "Research" 'Function to write out the corresponding document icon for a media element. Function medElementIcon(filename) Select Case LCase(Mid(filename, InStrRev(filename, ".") + 1)) Case "pdf" 'medElementIcon = "src=""/images/Base/ico_pdf.gif"" alt=""PDF download""" medElementIcon = "(PDF," Case "doc", "dot" 'medElementIcon = "src=""/images/Base/ico_doc.gif"" alt=""DOC download""" medElementIcon = "(DOC," Case "fla" 'medElementIcon = "src=""/images/Base/ico_fla.gif"" alt=""FLA download""" medElementIcon = "(FLA," Case "gif" 'medElementIcon = "src=""/images/Base/ico_gif.gif"" alt=""GIF download""" medElementIcon = "(GIF," Case "jpg" 'medElementIcon = "src=""/images/Base/ico_jpg.gif"" alt=""JPG download""" medElementIcon = "(JPG," Case "mov" 'medElementIcon = "src=""/images/Base/ico_mov.gif"" alt=""MOV download""" medElementIcon = "(MOV," Case "mpg" 'medElementIcon = "src=""/images/Base/ico_mpg.gif"" alt=""MPG download""" medElementIcon = "(MPG," Case "png" 'medElementIcon = "src=""/images/Base/ico_png.gif"" alt=""PNG download""" medElementIcon = "(PNG," Case "ppt" 'medElementIcon = "src=""/images/Base/ico_ppt.gif"" alt=""PPT download""" medElementIcon = "(PPT," Case "sbl" 'medElementIcon = "src=""/images/Base/ico_sbl.gif"" alt=""SBL download""" medElementIcon = "(SBL," Case "swf" 'medElementIcon = "src=""/images/Base/ico_swf.gif"" alt=""SWF download""" medElementIcon = "(SWF," Case "wmv" 'medElementIcon = "src=""/images/Base/ico_wmv.gif"" alt=""wmv download""" medElementIcon = "(WMV," Case "xls" 'medElementIcon = "src=""/images/Base/ico_xls.gif"" alt=""XLS download""" medElementIcon = "(XLS," Case "zip" 'medElementIcon = "src=""/images/Base/ico_zip.gif"" alt=""ZIP download""" medElementIcon = "(ZIP," Case Else 'medElementIcon = "src=""/images/Base/ico_otherfile.gif"" alt=""File download""" medElementIcon = "(FILE)" End Select End Function 'Sub routine to write out the file size of media element and warning if greater than "iMaxFileSize" kilobytes. Sub getFileSize(iFileSize) iMaxFileSize = 1024 If iFileSize > 0 Then iFileSize = CInt(iFileSize) Select Case True Case iFileSize <= iMaxFileSize Response.Write(iFileSize & " kB)") Case Else Response.Write(iFileSize & " kB) Large file warning") End Select End If End Sub 'Sub routine to determine whether an image should be right aligned or not at all depending on its size. Sub getImageWidth(imageWidth) If imageWidth > 0 Then imageWidth = CInt(imageWidth) Select Case True Case imageWidth <= 325 Response.Write("image right") Case Else Response.Write("image nowrap") End Select End If End Sub 'Function to create a summary from a longer piece of text. Function getCharacters(str,strlen) str = Trim(str) spcloc = InStr(strlen,str," ") If Len(str) > strlen And spcloc <> 0 Then getCharacters = Left(str, InStr(strlen,str," ")) & "..." Else getCharacters = str End If End Function Function getFeedbackBreadCrumb(str) Dim strBreadCrumb, arrBreadCrumb, iBC, strArrayValue, intArrayValueStart, intArrayValueEnd, strPageHeadline, strFeedbackBreadCrumb arrBreadCrumb = Split( str, "|" ) For iBC = 0 to UBound( arrBreadCrumb ) strArrayValue = arrBreadCrumb( iBC ) If Left( strArrayValue, 4 ) = "<" Then intArrayValueStart = InStr( strArrayValue, ">" ) + 4 intArrayValueEnd = InStr( InStr( strArrayValue, ">" ), strArrayValue, "<" ) strPageHeadline = Mid( strArrayValue, intArrayValueStart ) strPageHeadline = Left( strPageHeadline, Len( strPageHeadline ) - 10 ) getFeedbackBreadCrumb = getFeedbackBreadCrumb & strPageHeadline & " > " Else getFeedbackBreadCrumb = getFeedbackBreadCrumb & Replace( strArrayValue, "&", "&" ) End If Next End Function %> " /> " /> " /> " /> " /> " />

<%= getTitle() %>