<%@ Language = "VBScript" %> <% Response.Buffer = True dim PageTitle PageTitle = "Photos, histoire et plus" %> <% 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 %> <%=PageTitle%>
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
<% 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")) %>

Photos, histoire et plus

Navires

Brise-glace lourds

Opérations saisonnières prolongées possibles dans les glaces de la zone 6 de l'Arctique

Louis S. St-Laurent

Terry Fox

Brise-glace moyens

Opérations dans l'Arctique durant l'été

Des Groseillier

Henry Larsen

Pierre Radisson

Brise-glace légers/Grand baliseur

Escorte de navires sur les Grands Lacs, manutention de bouées et cargaison moyenne

Griffon

Samuel Risley

Baliseur moyen renforcé pour la navigation dans les glaces

Escorte de navires dans les eaux restreintes et peu profondes, déglaçage de port, manutention de bouées et cargaison moyenne

Simcoe

Recherche: Navires pour la recherche scientifique

Limnos

Shark

Petits baliseurs

Caribou Isle

Cove Isle

Gull Isle

Dumit

Eckaloo

Nahidik

Tembah

Bateaux de recherche et sauvetage

Advent

Cape Hurd

Westfort

Tobermory

Spindrift

Spray

CGR 100

Thunder Cape

Bittern

Waubuno

CG 119

Sora

Autres navires

en haut Bateaux de sauvetage côtier

       
<% 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