<%@ LANGUAGE="VBSCRIPT"%> <%Response.buffer = true Function getFileName() Dim lsPath, arPath ' Obtain the virtual file path lsPath = Request.ServerVariables("SCRIPT_NAME") ' Split the path along the /s. This creates an ' one-dimensional array arPath = Split(lsPath, "/") ' The last item in the array contains the file name GetFileName =arPath(UBound(arPath,1)) End Function dim template dim ImgWidth dim fileupdate 'fileupdate=GetLastUpdate() lang=Request.ServerVariables("PATH_INFO") lang = mid(lang, instrrev(lang,".")-1, 1) template = Request.Querystring("template") %> <% newpage = "http://www.cci-icc.gc.ca/publications/newsletters/news33/" & getFileName() newpage = replace(newpage,".shtml", ".aspx") Response.Status="301 Moved Permanently" Response.AddHeader "Location", newpage %> <% If template = "print" Then %> <% function GetLastUpdate() dim fs, f set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.GetFile(Server.MapPath(Request.ServerVariables("PATH_INFO"))) GetLastUpdate = f.DateLastModified GetLastUpdate = left(GetLastUpdate, instr(GetLastUpdate, " ")) set f=nothing set fs=nothing end function %> <% function changeWin(host) if Instr(host, "_e.") <> 0 then changeWin = replace(host, "_e.", "_f.") end if if Instr(host, "_f.") <> 0 then changeWin = replace(host, "_f.", "_e.") end if if len(trim(request.querystring()))>0 then changeWin=changeWin & "?" & request.querystring end if end function function getURL(host) if host <> "" then deliPos = Instr(host, "/") do while deliPos <> 0 hostLast = host deliPosLast = deliPos host = mid(hostLast, deliPos+1) deliPos = Instr(host, "/") loop getURL = mid(hostLast, deliPosLast+1) else deliPosLast = 0 getURL = "" end if end function function lastDate() dim fs, f set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.GetFile(Server.MapPath(lcase(request.servervariables("URL")))) lastDate=CSTR(FormatDateTime(f.DateLastModified, 2)) set f = nothing set fs = nothing end function function update(string, deliPos) updatedDay = mid(string, 1, deliPos-1) if len(updatedDay)=2 then updatedDay2 = updatedDay else updatedDay2 = "0" & updatedDay end if update = updatedDay2 end function function stringDate(string) if len(string) = 2 then stringDate = string else stringDate = "0" & string end if end function function getDate() str = lastDate() mon = stringDate(datePart("m", str)) day1 = stringDate(datePart("d", str)) year1 = year(str) getDate = year1 & "-" & mon & "-" & day1 end function function updatedDate(host) url = getURL(host) modifiedTime=CStr(FormatDateTime(lastDate(),2)) deliPos = Instr(modifiedTime, "/") mon = update(modifiedTime, deliPos) restTime = mid(modifiedTime, deliPos+1) deliPos = Instr(restTime, "/") day1 = update(restTime, deliPos) year1 = mid(restTime, deliPos+1) updatedDate = year1 & "-" & mon & "-" & day1 end function %>

		<% ImgWidth=582 End If %> <% If template = "" Then ImgWidth=603 %>

Last Updated: 2005-5-13 Important Notices

Home | What’s New | About CCI | Who We Are | CCI In Action | Virtual Tour | Services | Learning Opportunities | CCI Library | Publications | The Bookstore | Conservation Information Database | CCI Newsletter | CCI Notes | Technical Bulletins | Resources | Preserving My Heritage Website | BCIN | Links of Interest | Tools | Preservation Framework Online | Analytical Hierarchy Process (AHP) Program | Downloads | Feedback | Tell a Colleague About The Site

<% End If %>