%@ Language = "VBScript" %> <% Response.Buffer = True dim PageTitle PageTitle = "Aides à la navigation" %>
<% dim objFSO1, objFile1, x1 x1 = Request.ServerVariables("path_info") set objFSO1 = Server.CreateObject("Scripting.FileSystemObject") set objFile1 = objFSO1.GetFile(Server.MapPath(x1)) dim date1, getday1, getmonth1, getyear1 date1 = objFile1.DateLastModified if DateDiff("d", objFile1.DateCreated, date1) < 0 then date1 = objFile1.DateCreated getday1 = Day(date1) if Len(getday1) < 2 then getday1 = "0" & getday1 getmonth1 = Month(date1) if Len(getmonth1) < 2 then getmonth1 = "0" & getmonth1 getyear1 = Year(date1) set objFSO1 = nothing set objFile1 = nothing %> "> <% dim strBrowser strBrowser = LCase(Request.servervariables("HTTP_USER_AGENT")) if InStr(strBrowser,"gecko") <> 0 then Response.write vbCrLf & "" elseif InStr(strBrowser,"msie 6") <> 0 then Response.write vbCrLf & "" elseif InStr(strBrowser,"msie 5") <> 0 then Response.write vbCrLf & "" elseif InStr(strBrowser,"mac") <> 0 then Response.write vbCrLf & "" elseif InStr(strBrowser,"opera") <> 0 then Response.write vbCrLf & "" else Response.write vbCrLf & "" end if %>![]() |
|||
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
English | ![]() |
Contactez-nous | ![]() |
Aide | ![]() |
Recherche | ![]() |
Site du Canada |
![]() |
![]() |
Accueil | ![]() |
À notre sujet | ![]() |
Nouveautés | ![]() |
Plan du site | ![]() |
Accueil GCC |
![]() |
|||||||||
![]() |
Sécurité nautique |
![]() |
Recherche et sauvetage |
![]() |
Aides à la navigation |
![]() |
Programmes et services |
![]() |
Liens |
![]() |
|||||||||
![]() |
Déglaçage | ![]() |
PPEN | ![]() |
Environnement | ![]() |
SCTM | ![]() |
Accueil MPO |
Site national Aides à la navigation Contactez nous Processus d'examen Services offerts Glossaire de terminologie Aides à la navigation privées Système de poistionnement global différentiel Feux et stations de phare Avis aux navigateurs |
<%
Function BreadCrumb(FullPath)
dim arrDirectories
dim i
'##get current Full Path
FullPath = Request.ServerVariables("Path_info")
'## get array of directories
arrDirectories = split(FullPath, "/")
'## Create an array of letters in the alphabet.
Letters = array("a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z")
'##set starting path
DirPath = ""
'## replace udnerscores with spaces and upshift the following character
for each letter in letters
strTmpPath = Replace(Trim(strTmpPath),"_" & lcase(letter)," " & UCase(letter))
next
'## split the next one out
FullPath = mid(FullPath,instr(1,FullPath,"/")+1,Len(FullPath)-Len(tmpPath))
'##loop through directory of arrays - AV
Dim dirPath
for i = 0 to ubound(arrDirectories) - 1
strTmpPath = arrDirectories(i)
if i = 0 then
response.write "Accueil"
else
if i = 1 then
locPath = arrDirectories(i)
else
locPath = locPath & "/" & arrDirectories(i)
end if
Response.write ""
SELECT CASE lcase(arrDirectories(i))
CASE "amherstburg"
Response.write "Bases de la GCC sur le Web"
CASE "er-ie"
Response.write "Environnement"
CASE "spilldrill"
Response.write "Milieu marin"
CASE "scenarios"
Response.write "Scénarios"
CASE "ice-glace"
Response.write "Déglaçage"
CASE "kids-jeunes"
Response.write "GCC pour les jeune"
CASE "activities"
Response.write "Activités"
CASE "questions"
Response.write "Questions et réponses"
CASE "stories-histoire"
Response.write "Histoire"
CASE "links-liens"
Response.write "Liens"
CASE "mcts-sctm"
Response.write "Services de communications et de trafic maritimes"
CASE "mcts-services"
Response.write "Services"
CASE "mns-snm"
Response.write "Aides à la navigation"
CASE "light-phare"
Response.write "Feux et stations de phare"
CASE "huron"
Response.write "Carte/Guide"
CASE "client"
Response.write "Renseignements aux clients"
CASE "obs-bsn"
Response.write "Bureau de la sécurité nautique"
CASE "photos"
Response.write "Photos, histoire et plus"
CASE "us-nous"
Response.write "Qui nous sommes "
CASE "sar-res"
Response.write "Recherche et sauvetage"
CASE "irbp-pbsc"
Response.write "Programme des bateaux de sauvetage côtiers"
CASE "services"
Response.write "Services"
END SELECT
Response.write ": "
end if
next
'response.write "" & strTmpPath & ""
'Loop
IF PageTitle = "" THEN
response.write "Current Page"
ELSE
response.write "" & PageTitle & ""
END IF
End Function %>
<% = BreadCrumb(Request.ServerVariables("PATH_INFO")) %>
Notre mandatLe programme des aides maritimes à la navigation a pour mandat en vertu de de différents textes de loi, sans pour autant y être tenue, de fournir des aides à la navigation dans la région du Centre et de l'Arctique, de façon à faciliter la circulation sûre et rapide des navires. ![]() Sur le plan géographique, la région du Centre et de l'Arctique s'étend sur près des deux tiers du territoire canadien. Elle comprend l'Ontario, le Manitoba, la Saskatchewan, l'Alberta, le Nunavut et les Territoires du Nord-Ouest. Comme dans le cas du bureau régional de Sarnia, l'entretien des aides à la navigation de la région du Centre et de l'Arctique est assuré par les bases de la Garde côtière établies à Prescott, Parry Sound et Hay River, ainsi que par les bases secondaires de Amherstberg, Thunder Bay, Kenora et Selkirk. À partir de ces bases, on voit à l'entretien d'environ 8 500 aides à la navigation fixes et flottantes à courte portée, telles que des bouées, des alignements, des balises radar (RACON) et des phares, utilisées par la marine marchande, les bateaux affrétés et les plaisanciers. |
![]() |
|||
<% dim objFSO2, objFile2, x2 x2 = Request.ServerVariables("path_info") set objFSO2 = Server.CreateObject("Scripting.FileSystemObject") set objFile2 = objFSO2.GetFile(Server.MapPath(x2)) dim date2, getday2, getmonth2 date2 = objFile2.DateLastModified if DateDiff("d", objFile2.DateCreated, date2) < 0 then date2 = objFile2.DateCreated getday2 = Day(date2) if Len(getday2) < 2 then getday2 = "0" & getday2 getmonth2 = Month(date2) if Len(getmonth2) < 2 then getmonth2 = "0" & getmonth2 Response.Write "Dernière mise à jour: " & Year(date2) & "-" & getmonth2 & "-" & getday2 set objFSO2 = nothing set objFile2 = nothing%> |
![]() |
Avis importants |