<%@ 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") %> Canadian Conservation Institute (CCI) - CCI Newsletters - CCI Newsletter No. 21 <% 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%>
Canadian Flag Canadian Heritage - Patrimoine canadien Canada Wordmark
Canadian Conservation Institue (CCI) Français Contact Us Help Search Canada Site

 Preserving My Heritage

 

You are here: Main : CCI Newsletters : CCI Newsletter No. 21    
<% End If %> CCI Newsletters No. 21 March 1998

CCI NEWSLETTER No. 21 March 1998
ISSN 1180-3223 

Contents

Newsletter Committee

Kate Helwig
Linda Leclerc 
Barbara Patterson
George Prytulak
Susanne Richter
Deborah Robichaud 
Mary-Lou Simac
David Tremain

English Editor: Barbara Patterson

French Editor: Linda Leclerc 

Design: Sophie Georgiev

The CCI Newsletter is published two times per year by the Canadian Conservation Institute. It is available free upon request. To change your subscription address, please send your former and current addresses to: 

Client Services, Canadian Conservation Institute 
1030 Innes Road 
Ottawa, ON K1A 0M5
Canada

(e-mail address: cci-icc_publications@pch.gc.ca) 
<% If template = "print" Then %>
<%If lang="e" THEN%> Last Updated: <%Else%> Mise à jour : <%End If%>
<% ELSE %>

Top of page
www.cci-icc.gc.ca

Last Updated: 2002-04-20 Important Notices

Home | What's New | Who We Are | CCI in Action | Virtual Tour | Service Listing | Learning Opportunities | Exhibit Transportation | The Bookstore | CCI Library | Conservation Information | CCI Newsletter | Preserving My Heritage | Links of Interest | Preservation Framework Online | Analytical Hierarchy Process (AHP) Program | Downloads
<% End If %>