<%@ Language = VBScript %> <% Response.Buffer = True dim PageTitle PageTitle = "GCC pour les jeune" %> <% 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%>

	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

GCC pour les jeune

Activités

Bateaux et bases

Histoires

Ce que fait la GCC

Questions et réponses

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