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")) %>
Activities
Colour a CCG ship!
Colour the map
Connect the dots
Try our quiz!
What belongs on your boat?
|
