Canadian Coast Guard World Wide Web

<% 'Dim myObj, myFile, reqx reqx = Request.ServerVariables("URL") Set myObj= Server.CreateObject("Scripting.FileSystemObject") Set myFile= myObj.GetFile(Server.MapPath(reqx)) %> <% Dim bc Set bc = Server.CreateObject("MSWC.BrowserType")%> <%if bc.ccgCss then %>

Please update your browser to view this page correctly.

<% end if %>

<%if bc.ccgCss then %>

Canadian Coast Guard

<% else %> <% end if %>Home

Maritime Services

Fleet

<%if bc.ccgCss then %>

Updated: <%= FormatDateTime(objFile.dateLastModified, 2)%>

<% Set objFile = Nothing Set objFSO = Nothing Set x= Nothing %>

Important Notices

<% end if %><%Set bc = Nothing %>