<% Const IMGS_DIR = "/cover/" Dim objFSO, objFolderObject, objFileCollection, objFile Dim intFileNumberToUse, intFileLooper Dim objImageFileToUse Dim strimagesrcText Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR)) Set objFSO = Nothing Set objFileCollection = objFolderObject.Files Set objFolderObject = Nothing Randomize() intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1 intFileLooper = 1 For Each objFile in objFileCollection If intFileLooper = intFileNumberToUse Then Set objImageFileToUse = objFile Exit For End If intFileLooper = intFileLooper + 1 Next Set objFileCollection = Nothing strimagesrcText = IMGS_DIR & objImageFileToUse.Name Set objImageFileToUse = Nothing %>

Request A Pilot
Pilotage Exemptions
Tongass Narrows
VW Guide
Tracy Arm/Endicott
Arm Agreement
SE Alaska Voluntary Waterway Guide
Training Program
SEAPA Tide Book
Alaska Weather
Marine Weather
VHF Marine Radio
Maritime Security
Links of Interest
Pilot Ladders
Safety Info



courtesy International Maritime Pilots' Association
In accordance with I.M.O. requirements
and I.M.P.A. recommendations.

   Ketchikan Chamber of Commerce
        Ketchikan, Alaska
   Chamber of Commerce

SouthEast Alaska Pilots' Association
1621 Tongass Avenue, Suite 300
Ketchikan, Alaska 99901
ph. 907-225-9696
fax 907-247-9696



Rainforest Web Design, An Alaskan web design company in Ketchikan, Alaska
Rainforest Web Design, Ketchikan Alaska
© Southeast Alaska Pilots' Association All rights reserved.

This site hosted by the fine folks at AlaskaMade.com

Member's Login Email us today