|
|||
|
|
|
|
|
|||
|
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 Recherche et sauvetage Programme des bateaux de sauvetage côtiers |
<%
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")) %>
Recherche et sauvetage
Le Programme de recherche et de sauvetage (RES) de la Garde côtière canadienne a pour mission DE PROTÉGER ET DE SAUVEGARDER la vie humaine et le milieu marin. Le contrôle des secteurs maritimes RES, en vue de la détermination des signaux de détresse, la coordination des mesures d'intervention dans les cas de détresse maritime, l'affectation de navires RES spécialisés à l'appui des opérations RES, et le parrainage de la Garde auxiliaire côtière canadienne figurent au nombre des services de recherche et de sauvetage. Parmi les activités supervisées par la Région du Centre et de l'Arctique de la Garde côtière qui pourraient nécessiter des mesures de recherche et de sauvetage, mentionnons le trafic des navires de commerce, les activités des navires d'excursion, les activités des bateaux de pêche et des grandes embarcations de plaisance, ainsi que le trafic aérien au-dessus des eaux. La Région compte plus de la moitié des plaisanciers du Canada, et se caractérise par le plus haut pourcentage d'incidents RES nécessitant l'intervention de la GCC. La Région possède une flotte constituée de neuf (9) navires primaires de recherche et sauvetage et, pendant la haute saison estivale, de six (6) petitsbateaux de sauvetage côtiers. La mission de tous ces bâtiments consiste à prêter secours aux navigateurs en difficulté. Tout navire de la Garde côtière, et d'ailleurs tout autre navire se trouvant en mer, peut recevoir la mission d'intervenir en cas d'incident RES, s'il y a lieu et selon le besoin. Afin d'appuyer les ressources de la Garde côtière, la Garde côtière auxiliaire canadienne fournit plus de 100 navires dans les secteurs des Grands Lacs, du lac Winnipeg et de l'Arctique. Ce groupe de bénévoles dévoués répond à plus du quart des appels en rapport avec la recherche et le sauvetage reçus dans la Région du Centre et de l'Arctique. La Garde côtière bénéficie également du soutien du 424e Escadron de transport et de sauvetage de Trenton. Le centre commun de coordination des opérations de sauvetage établi à Trenton, et dont le personnel se compose d'employés de la Garde côtière et d'officiers des Forces armées, assure la coordination des interventions RES dans l'ensemble de la Région. |
|
|||
| <% 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 | |
