%
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
TOURISM & RECREATION STRATEGIC PLAN 2003-2007
The Montana Tourism and Recreation Strategic Plan 2003-2007 has
been finalized. Below, you will find the plan's 6
chapters, an executive summary, and numerous appendices.
Thanks to everyone who has participated in this process. We look
forward to working together to implement the plan for the betterment
of Montana.
The online survey, which concluded in May 2002, is not part of the final Strategic Plan document.
You may download the information from the following links: