Caution:  All the presentations can be displayed properly only with the Internet Explorer browser. If you have further problems regarding the presentations, please contact:

Follow this link to download the presentations in Microsoft Powerpoint format

State of Lake Huron in 1999


Symposium agenda disclaimer
Introduction to Lake Huron
Lake Huron Fish-Community Objectives and Guiding Principles
Lake Huron Initiative: A Work in Process
Critical Pollutants Related to the Fisheries of Lake Huron
Contaminant and Population Levels of Fish-eating Birds of Lake Huron
Physical Habitat of the Lake Huron Watershed
Connectivity of Tributary Habitat to Lake Huron
The Status of Phytoplankton and Zooplankton Communities in Lake Huron
Using a GIS to Develop a Binational, Multi-discipline Decision Support System for The Huron Basin
The Fisheries of Lake Huron
Status of Lake Trout in the Main Basin of Lake Huron: A Summary of (SCAA) Models and Projections
Status of Lake Trout (Salvelinus namaycush)
Natural Reproduction of Lake Trout in  Lake Huron
State of Chinook Salmon in Lake Huron  in 1999
State of the Brown Trout Fishery
Lake Huron Rainbow Trout
Status of Burbot in Lake Huron
State of the Lake Huron Prey Fish Community in 1999: Progress toward Fish Community Objectives
Predator-prey interactions: Prey consumption by key predators in Lake Huron
Status of Coregonines in Lake Huron, 1999
State of Lake Huron Percids
Esocids and Centrarchids
The State of Lake Sturgeon(Acipenser fulvescens) In Lake Huron,1995-1999
Status of Aquatic Nuisance Species in Lake Huron in 1999
Issues Related to Achievement of Fish Community Objectives on Lake Huron
<% ' Graphical Hit Counter Example By ' Declare variables Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits Dim FixedDigitCount Dim DigitCount Dim DigitCountLength Dim DigitZerosToAdd Dim DigitZeroCount Dim ShowDigits Dim DigitPath ' (FixedDigitCount) will add zeros to the front of your count ' if the count is less then the (FixedDigitCount) ' just like "frontpage" counters let you do FixedDigitCount = 5 DigitPath = "digits/face" On Error Resume Next Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("st1999counter.txt") Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True) If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If ReadCounterFile.Close Set ReadCounterFile = Nothing CounterHits = CounterHits + 1 Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing Set ObjCounterFile = Nothing DigitCountLength = Len(CounterHits) If DigitCountLength < FixedDigitCount Then DigitZerosToAdd= FixedDigitCount - DigitCountLength DigitZeroCount = 1 For DigitZeroCount = DigitZeroCount to DigitZerosToAdd ShowDigits = ShowDigits & "" Next End If DigitCount = 1 For DigitCount = DigitCount to DigitCountLength ShowDigits = ShowDigits & "" Next %>

This page has been accessed <% =ShowDigits %> times since August 2nd, 2001