<%@ Language=VBScript %> <% root_filename = Request.ServerVariables("SCRIPT_NAME") ' This string is of the type "/virtual/root/filename.???" only_filename = LCASE(RIGHT(root_filename, LEN(root_filename)-InStrRev(root_filename, "/"))) ' This takes only what comes after the very final "/" Set SumInfoObject = Server.CreateObject("IISSample.SummaryInfos") ' Create Object SumInfoObject.SetFileSpec ".", only_filename ' Create Collection with this folder and this specific filename. FOR EACH document IN SumInfoObject lastmod = document.LastSaveTime NEXT Response.Write lastmod & "<P>" %>