<% 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 %> Canadian Coast Guard, Central and Arctic Region
Flag of Canada Fisheries and Oceans Canada Government of Canada
 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
Canadian Coast Guard Crest

Canadian Coast Guard
Central and Arctic Region

Welcome to the Central and Arctic Region of the Canadian Coast Guard. You can navigate this site using either the buttons at the top of the page or click on the headings below.

To learn more about the Central and Arctic Region go to our About Us page.

       
<% 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%> Top of Page Important Notices