<%
Dim strParentPages
strParentPages="/28_11239.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("/28_11239.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 = 28
sHeading = "Fisheries"
'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
%>
<%= getMetadata("hdl_page_title") %>
" />
" />
" />
" />
" />
" />
<% If 11239 = iPrimaryPageID Then %>
<%= sHeading %> (You are here)
<% Else %>
<%= sHeading %>
<% End If %>
class="open"<% End If %>>
<% If 141 <> 11239 Then %>
Aquaculture
<% Else %>
Aquaculture (You are here)
<% End If %>
<% If isActive("/28_141.htm") Then %>
<% If 15101 = 11239 Then %>
Overview (You are here)
<% Else %>
Overview
<% End If %>
<% If 14811 = 11239 Then %>
Getting started (You are here)
<% Else %>
Getting started
<% End If %>
<% If 14574 = 11239 Then %>
Investment (You are here)
<% Else %>
Investment
<% End If %>
<% If 14775 = 11239 Then %>
Planning & development (You are here)
<% Else %>
Planning & development
<% End If %>
<% If 14276 = 11239 Then %>
Management & policies (You are here)
<% Else %>
Management & policies
<% End If %>
<% If 13322 = 11239 Then %>
Aquaculture species (You are here)
<% Else %>
Aquaculture species
<% End If %>
<% If 13249 = 11239 Then %>
Aquaculture approvals (You are here)
<% Else %>
Aquaculture approvals
<% End If %>
<% End If %>
class="open"<% End If %>>
<% If 140 <> 11239 Then %>
Commercial fisheries
<% Else %>
Commercial fisheries (You are here)
<% End If %>
<% If isActive("/28_140.htm") Then %>
<% If 16064 = 11239 Then %>
Queensland's commercial fisheries (You are here)
<% Else %>
Queensland's commercial fisheries
<% End If %>
class="open"<% End If %>>
<% If 139 <> 11239 Then %>
Recreational fishing
<% Else %>
Recreational fishing (You are here)
<% End If %>
<% If isActive("/28_139.htm") Then %>
<% If 2981 = 11239 Then %>
Fishing rules & regulations (You are here)
<% Else %>
Fishing rules & regulations
<% End If %>
<% If 1213 = 11239 Then %>
Fishing tips & responsibilities (You are here)
<% Else %>
Fishing tips & responsibilities
<% End If %>
<% If 16269 = 11239 Then %>
Community activities (You are here)
<% Else %>
Community activities
<% End If %>
<% End If %>
class="open"<% End If %>>
<% If 144 <> 11239 Then %>
Exotic pest fish
<% Else %>
Exotic pest fish (You are here)
<% End If %>
class="open"<% End If %>>
<% If 147 <> 11239 Then %>
Fisheries services
<% Else %>
Fisheries services (You are here)
<% End If %>
class="open"<% End If %>>
<% If 142 <> 11239 Then %>
Habitats
<% Else %>
Habitats (You are here)
<% End If %>
<% If isActive("/28_142.htm") Then %>
<% If 9100 = 11239 Then %>
Fisheries development (You are here)
<% Else %>
Fisheries development
<% End If %>
<% If 5628 = 11239 Then %>
Marine plants including mangroves (You are here)
<% Else %>
Marine plants including mangroves
<% End If %>
<% If 9102 = 11239 Then %>
Policies & guidelines (You are here)
<% Else %>
Policies & guidelines
<% End If %>
<% If 9106 = 11239 Then %>
Research & scholarships (You are here)
<% Else %>
Research & scholarships
<% End If %>
<% If 9105 = 11239 Then %>
Education resources (You are here)
<% Else %>
Education resources
<% End If %>
<% If 10383 = 11239 Then %>
Instream structures & fish passage (You are here)
<% Else %>
Instream structures & fish passage
<% End If %>
<% If 1238 = 11239 Then %>
Declared fish habitat areas (You are here)
<% Else %>
Declared fish habitat areas
<% End If %>
<% If 16451 = 11239 Then %>
Freshwater wetlands (You are here)
<% Else %>
Freshwater wetlands
<% End If %>
<% End If %>
class="open"<% End If %>>
<% If 143 <> 11239 Then %>
Policy & legislation
<% Else %>
Policy & legislation (You are here)
<% End If %>
<% If isActive("/28_143.htm") Then %>
<% If 13175 = 11239 Then %>
Policies (You are here)
<% Else %>
Policies
<% End If %>
<% If 13164 = 11239 Then %>
Legislation (You are here)
<% Else %>
Legislation
<% End If %>
<% If 14105 = 11239 Then %>
Recent changes (You are here)
<% Else %>
Recent changes
<% End If %>
<% If 14606 = 11239 Then %>
Consultations (You are here)
<% Else %>
Consultations
<% End If %>
<% End If %>
class="open"<% End If %>>
<% If 146 <> 11239 Then %>
Fisheries and aquaculture research
<% Else %>
Fisheries and aquaculture research (You are here)
<% End If %>
<% If isActive("/28_146.htm") Then %>
<% If 6836 = 11239 Then %>
Research centres (You are here)
<% Else %>
Research centres
<% End If %>
<% If 5148 = 11239 Then %>
Research projects (You are here)
<% Else %>
Research projects
<% End If %>
<% If 16201 = 11239 Then %>
Scientific capabilities (You are here)
<% Else %>
Scientific capabilities
<% End If %>
<% End If %>
class="open"<% End If %>>
<% If 630 <> 11239 Then %>
Species identification
<% Else %>
Species identification (You are here)
<% End If %>
class="open"<% End If %>>
<% If 10714 <> 11239 Then %>
Monitoring our fisheries
<% Else %>
Monitoring our fisheries (You are here)
<% End If %>
<% If isActive("/28_10714.htm") Then %>