<% Dim strFileName Dim dtmLastModified Dim strLastModified strFileName = Request.ServerVariables("SCRIPT_NAME") strFileName = Replace(strFileName, "/", "\") strFileName = Server.MapPath(strFileName) Set objFileSystemObject = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFileSystemObject.GetFile(strFileName) dtmLastModified = objFile.DateLastModified Set objFile = Nothing Set objFileSystemObject = Nothing function DateToHTTPDate(ByVal OleDATE) Const GMTdiff = #07:00:00# OleDATE = OleDATE + GMTdiff DateToHTTPDate = engWeekDayName(OleDATE) & _ ", " & Right("0" & Day(OleDATE),2) & " " & engMonthName(OleDATE) & _ " " & Year(OleDATE) & " " & Right("0" & Hour(OleDATE),2) & _ ":" & Right("0" & Minute(OleDATE),2) & ":" & Right("0" & Second(OleDATE),2) & " GMT" End Function Function engWeekDayName(dt) Dim strDay Select Case WeekDay(dt,1) Case 1:strDay="Sun" Case 2:strDay="Mon" Case 3:strDay="Tue" Case 4:strDay="Wed" Case 5:strDay="Thu" Case 6:strDay="Fri" Case 7:strDay="Sat" End Select engWeekDayName = strDay End Function Function engMonthName(dt) Dim strMon Select Case Month(dt) Case 1:strMon="Jan" Case 2:strMon="Feb" Case 3:strMon="Mar" Case 4:strMon="Apr" Case 5:strMon="May" Case 6:strMon="Jun" Case 7:strMon="Jul" Case 8:strMon="Aug" Case 9:strMon="Sep" Case 10:strMon="Oct" Case 11:strMon="Nov" Case 12:strMon="Dec" End Select engMonthName = strMon End Function strLastModified = DateToHTTPDate(dtmLastModified) Response.AddHeader "cache-control", "private, no-cache, must-revalidate" Response.AddHeader "Last-Modified", strLastModified %>

Montana Historical Society

Website Main Menu

Mining Collection

All photographs are property of the Montana Historical Society Photograph Archives. Material may be protected by copyright law (Title 17 U.S. Code).

Entrance to 400 foot tunnel, Drumlummon Mine, Marysville,
Montana. William Hall, photographer. (No date.)