%@ Language = "VBScript" %> <% Response.Buffer = True dim PageTitle PageTitle = "Services de communications et de trafic maritimes (SCTM)" %>
<% 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 SCTM Lois, règlements et conventions Comment communiquer avec un centre des SCTM Système mondial de détresse et de sécurité en mer (SMDSM) Liens connexes Mission Cartes des zones de couverture radio Services Voies VHF des radios maritimes Centres des SCTM |
<%
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")) %>
Services de communications et de trafic maritimes (SCTM)Les services de communications et de trafic maritimes (SCTM) de la Garde côtière canadienne (GCC) diffusent des communiqués et des avis concernant la sécurité maritime, et veillent au trafic maritime. Par l'entremise des centres des SCTM situés à Inuvik, Iqaluit, Prescott, Sarnia et Thunder Bay, la région du Centre et de l'Arctique de la Garde côtière canadienne dispense des services de communications et de trafic maritimes dans le secteur de l'Arctique, du bassin hydrographique Athabasca - Mackenzie, de la baie d'Hudson, du lac Winnipeg et du bassin des Grands Lacs. ![]() Centres de communications maritimesLes centres des Services de communications et de trafic maritimes offrent un service de traitement des plans de navigation et d'alerte. On incite les navigateurs maritimes à confier leurs plans de navigation à une personne responsable. Lorsque cela n'est pas possible, on peut transmettre les plans de navigation à un centre des SCTM, par téléphone ou par radio maritime. Si un navire inscrit sur un plan de navigation n'arrive pas à destination tel que prévu, les mesures appropriées sont prises, ce qui peut donner lieu à une mission de recherche et de sauvetage. La participation à ce programme est facultative. |
![]() |
|||
<% 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 |