% Dim fso Dim f1 Dim f1d Dim f2 Dim f2d Dim f3 Dim f3d Dim fp Set fso = CreateObject("Scripting.FileSystemObject") f1d = "December 18" f2d = "December 18" f3d = "December 18" fp = fso.GetParentFolderName(Request.ServerVariables("PATH_TRANSLATED")) on error resume next Err.Clear Set f1 = fso.GetFile(fp&"\2007\klondike2007_towns.htm") if ( Err.Number = 0 ) Then f1d = f1.DateLastModified f1.close End If set f1 = nothing Err.Clear Set f2 = fso.GetFile(fp&"\2007\klondike2007_provisions.htm") if ( Err.Number = 0 ) Then f2d = f2.DateLastModified f2.close End If set f2 = nothing Err.Clear Set f3 = fso.GetFile(fp&"\2007\Registration_2007.htm") if ( Err.Number = 0 ) Then f3d = f3.DateLastModified f3.close End If set f3 = nothing set fso = nothing %>
11th
Annual (2010)
|