|
|||
|
|
|
|
|
|||
|
Français | |
Contact Us | |
Help | |
Search | |
Canada Site |
|
|||||||||
|
Home | |
About Us | |
News | |
Site Map | |
CCG Home |
|
|||||||||
|
Boating Safety |
|
Search & Rescue |
|
Aids to Navigation |
|
Programs & Services |
|
Links |
|
|||||||||
|
Icebreaking | |
NWPP | |
Environment | |
MCTS | |
DFO Home |
|
CCG for Kids Activities Boats and Bases Stories What Canada's Coast Guard Does Questions and Answers |
<%
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 "Home"
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 "CCG Bases on the Net"
CASE "er-ie"
Response.write "Environment"
CASE "spilldrill"
Response.write "Spill Drill"
CASE "scenarios"
Response.write "Scenarios"
CASE "ice-glace"
Response.write "Icebreaking"
CASE "kids-jeunes"
Response.write "CCG for Kids"
CASE "activities"
Response.write "Activities"
CASE "questions"
Response.write "Questions and Answers"
CASE "stories-histoire"
Response.write "Stories"
CASE "links-liens"
Response.write "Links"
CASE "mcts-sctm"
Response.write "Marine Communications and Traffic Services"
CASE "mcts-services"
Response.write "Services"
CASE "mns-snm"
Response.write "Aids to Navigation "
CASE "light-phare"
Response.write "Lights and Lighthouses"
CASE "huron"
Response.write "Map/Location Guide"
CASE "client"
Response.write "Client Information"
CASE "obs-bsn"
Response.write "Boating Safety"
CASE "photos"
Response.write "Photos, Facts & History"
CASE "us-nous"
Response.write "About Us"
CASE "sar-res"
Response.write "Search & Rescue"
CASE "irbp-pbsc"
Response.write "Inshore Rescue Boat Program"
CASE "services"
Response.write "Programs & 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")) %>
CCG for KidsWelcome to the Central and Arctic Canadian Coast Guard just-for-kids website! To navigate this site just click on the titles on the chalkboard on the left or on the subject headings below. 
Activities
Boats and Bases
Stories
What Canada's Coast Guard Does
Questions and Answers
|
|
|||
| <% 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 "Last updated: " & Year(date2) & "-" & getmonth2 & "-" & getday2 set objFSO2 = nothing set objFile2 = nothing%> |
|
Important Notices | |