Tools
Accessibility
Skip to:
- Navigation |
- Content |
- Footer
<%
Dim strParentPages
strParentPages="/cps/rde/dpi/hs.xsl/30_8024_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/30_8024_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 = 5460
sHeading = "Services"
'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
%>
<!IoRangePreExecute><%= getMetadata("hdl_page_title") %><!/IoRangePreExecute>
" />
" />
" />
" />
" />
" />