|
|||
|
|
|
|
|
|||
|
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")) %>
Ce que fait la GCC
La Région du Centre et de l'Arctique de la Garde côtière est responsable pour une grande
section du Canada, comme tu 
|
|
|||
| <% 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 | |