<% 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
%>
Within
Alaska, observed suspicious behaviors, security breaches, or transportation security
incidents should be immediately reported to: Local First Responders (Police/Fire),
U.S. Coast Guard, FBI, and the National Response Center.
Police
........
911
U.S.
Coast Guard - Alaska
........
1-800-478-5555
or 1-907-463-2000 or VHF-FM Channel 16
FBI
........
1-907-276-4441
National
Response Center
........
1-800-424-8802
or 1-202-267-2675
SouthEast
Alaska Pilots' Association 1621 Tongass Avenue, Suite 300 Ketchikan,
Alaska 99901 ph. 907-225-9696 fax 907-247-9696
pilots@seapa.com
Within
Alaska, observed suspicious behaviors, security breaches, or transportation security
incidents should be immediately reported to: Local First Responders (Police/Fire),
U.S. Coast Guard, FBI, and the National Response Center.
