<%
Dim strParentPages
strParentPages="/27_12568.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("/27_12568.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 = 27
sHeading = "Animals"
'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 12568 = iPrimaryPageID Then %>
<%= sHeading %> (You are here)
<% Else %>
<%= sHeading %>
<% End If %>
class="open"<% End If %>>
<% If 8770 <> 12568 Then %>
Relief assistance
<% Else %>
Relief assistance (You are here)
<% End If %>
class="open"<% End If %>>
<% If 126 <> 12568 Then %>
Identifying, moving & selling livestock
<% Else %>
Identifying, moving & selling livestock (You are here)
<% End If %>
class="open"<% End If %>>
<% If 4800 <> 12568 Then %>
Agvet chemicals & residues
<% Else %>
Agvet chemicals & residues (You are here)
<% End If %>
<% If isActive("/27_4800.htm") Then %>
<% If 4886 = 12568 Then %>
Licensing & permits (You are here)
<% Else %>
Licensing & permits
<% End If %>
<% If 4887 = 12568 Then %>
Chemical use (You are here)
<% Else %>
Chemical use
<% End If %>
<% If 4888 = 12568 Then %>
Chemical residues & contaminants (You are here)
<% Else %>
Chemical residues & contaminants
<% End If %>
<% End If %>
class="open"<% End If %>>
<% If 127 <> 12568 Then %>
Animal health & diseases
<% Else %>
Animal health & diseases (You are here)
<% End If %>
<% If isActive("/27_127.htm") Then %>
<% If 12612 = 12568 Then %>
A-Z list (You are here)
<% Else %>
A-Z list
<% End If %>
<% If 12144 = 12568 Then %>
Animal disease control (You are here)
<% Else %>
Animal disease control
<% End If %>
<% If 3149 = 12568 Then %>
Animal health surveillance (You are here)
<% Else %>
Animal health surveillance
<% End If %>
<% If 12933 = 12568 Then %>
Emergency animal diseases (You are here)
<% Else %>
Emergency animal diseases
<% End If %>
<% If 11548 = 12568 Then %>
Information for veterinarians (You are here)
<% Else %>
Information for veterinarians
<% End If %>
<% If 11655 = 12568 Then %>
Notifiable diseases (You are here)
<% Else %>
Notifiable diseases
<% End If %>
<% If 12938 = 12568 Then %>
Protect your animals (You are here)
<% Else %>
Protect your animals
<% End If %>
<% If 3148 = 12568 Then %>
Zoonoses (You are here)
<% Else %>
Zoonoses
<% End If %>
<% End If %>
class="open"<% End If %>>
<% If 4823 <> 12568 Then %>
Weeds, pest animals & ants
<% Else %>
Weeds, pest animals & ants (You are here)
<% End If %>
<% If isActive("/27_4823.htm") Then %>
<% If 20249 = 12568 Then %>
Weed identification (You are here)
<% Else %>
Weed identification
<% End If %>
<% If 18743 = 12568 Then %>
Wild dog management strategy (You are here)
<% Else %>
Wild dog management strategy
<% End If %>
<% If 8331 = 12568 Then %>
Weeds (You are here)
<% Else %>
Weeds
<% End If %>
<% If 8259 = 12568 Then %>
Pest animals (You are here)
<% Else %>
Pest animals
<% End If %>
<% If 6668 = 12568 Then %>
Pest management planning (You are here)
<% Else %>
Pest management planning
<% End If %>
<% If 7651 = 12568 Then %>
Legislation, policies & permits (You are here)
<% Else %>
Legislation, policies & permits
<% End If %>
<% If 8583 = 12568 Then %>
Educational resources & careers (You are here)
<% Else %>
Educational resources & careers
<% End If %>
<% If 9537 = 12568 Then %>
Pest mapping (You are here)
<% Else %>
Pest mapping
<% End If %>
<% If 10047 = 12568 Then %>
Invasive plant & animal science (You are here)
<% Else %>
Invasive plant & animal science
<% End If %>
<% If 8515 = 12568 Then %>
Marine pests (You are here)
<% Else %>
Marine pests
<% End If %>
<% End If %>
class="open"<% End If %>>
<% If 125 <> 12568 Then %>
Animal welfare & ethics
<% Else %>
Animal welfare & ethics (You are here)
<% End If %>
<% If isActive("/27_125.htm") Then %>
<% If 21334 = 12568 Then %>
Animal welfare (You are here)
<% Else %>
Animal welfare
<% End If %>
<% If 10411 = 12568 Then %>
Related organisations and contacts (You are here)
<% Else %>
Related organisations and contacts
<% End If %>
<% If 2698 = 12568 Then %>
Care & husbandry (You are here)
<% Else %>
Care & husbandry
<% End If %>
<% If 2697 = 12568 Then %>
Diseases & disorders (You are here)
<% Else %>
Diseases & disorders
<% End If %>
<% End If %>
class="open"<% End If %>>
<% If 120 <> 12568 Then %>
Sheep
<% Else %>
Sheep (You are here)
<% End If %>
class="open"<% End If %>>
<% If 5857 <> 12568 Then %>
Horses
<% Else %>
Horses (You are here)
<% End If %>
<% If isActive("/27_5857.htm") Then %>
<% If 14769 = 12568 Then %>
Horse health & disease management (You are here)
<% Else %>
Horse health & disease management
<% End If %>
<% If 7430 = 12568 Then %>
Registering your horse property (You are here)
<% Else %>
Registering your horse property
<% End If %>
<% If 14797 = 12568 Then %>
Events (You are here)
<% Else %>
Events
<% End If %>
<% If 125 = 12568 Then %>
Animal welfare & ethics (You are here)
<% Else %>
Animal welfare & ethics
<% End If %>
<% If 9036 = 12568 Then %>
Moving your horse (You are here)
<% Else %>
Moving your horse
<% End If %>
<% End If %>
class="open"<% End If %>>
<% If 124 <> 12568 Then %>
Bees
<% Else %>
Bees (You are here)
<% End If %>
<% If isActive("/27_124.htm") Then %>
<% If 10683 = 12568 Then %>
Beekeeping essentials (You are here)
<% Else %>
Beekeeping essentials
<% End If %>
<% If 10682 = 12568 Then %>
Hive management (You are here)
<% Else %>
Hive management
<% End If %>
<% If 10628 = 12568 Then %>
Diseases & pests (You are here)
<% Else %>
Diseases & pests
<% End If %>
<% If 11743 = 12568 Then %>
Bee swarms (You are here)
<% Else %>
Bee swarms
<% End If %>
<% End If %>
class="open"<% End If %>>
<% If 141 <> 12568 Then %>
Aquaculture
<% Else %>
Aquaculture (You are here)
<% End If %>
<% If isActive("/27_141.htm") Then %>
<% If 14811 = 12568 Then %>
Getting started (You are here)
<% Else %>
Getting started
<% End If %>
<% If 14574 = 12568 Then %>
Investment (You are here)
<% Else %>
Investment
<% End If %>
<% If 14775 = 12568 Then %>
Aquaculture planning & development (You are here)
<% Else %>
Aquaculture planning & development
<% End If %>
<% If 14276 = 12568 Then %>
Management & policies (You are here)
<% Else %>
Management & policies
<% End If %>
<% If 13322 = 12568 Then %>
Aquaculture species (You are here)
<% Else %>
Aquaculture species
<% End If %>
<% If 13249 = 12568 Then %>
Aquaculture approvals (You are here)
<% Else %>
Aquaculture approvals
<% End If %>
<% End If %>
class="open"<% End If %>>
<% If 15047 <> 12568 Then %>
Other animals
<% Else %>
Other animals (You are here)
<% End If %>
<% If isActive("/27_15047.htm") Then %>
<% If 17135 = 12568 Then %>
Kangaroos (You are here)
<% Else %>
Kangaroos
<% End If %>
<% If 17285 = 12568 Then %>
Flying foxes (You are here)
<% Else %>
Flying foxes
<% End If %>
<% If 11132 = 12568 Then %>
Exhibited animals (You are here)
<% Else %>
Exhibited animals
<% End If %>