<% 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 %> Gare côtière canadienne, région du centre et de l'Artique
Drapeau du Canada Pêches et Océans Canada Gouvernement du Canada
 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
Garde côtière canadienne

Garde côtière canadienne
Région du Centre et de l'Arctique

Bienvenue dans la région du Centre et de l'Arctique de la Garde côtière canadienne. Pour consulter le site, utilisez les boutons du haut de la page ou cliquez sur les liens suivants.

Pour en savoir plus sur la région du Centre et de l'Arctique, consultez la page Qui nous sommes.

       
<% 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%> Haute de page Avis importants