%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% filename = "default-1.asp" %> <% Function lastMod(filename) ' Dim FileObj, objFSO, objFile Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(Server.MapPath(filename)) lastMod = objFile.DateLastModified lastModDate = FormatDateTime(lastMod, vbLongDate) lastModTime = FormatDateTime(lastMod, vbLongTime) lastMod = lastModDate & " " & lastModTime Set objFSO = Nothing Set objFile = Nothing End Function %> <% Function lastModDt(filename) ' Dim FileObj, objFSO, objFile Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(Server.MapPath(filename)) lastMod = objFile.DateLastModified lastModDt = FormatDateTime(lastMod, vbShortDate) Set objFSO = Nothing Set objFile = Nothing End Function %> <% Function lastModLongDt(filename) ' Dim FileObj, objFSO, objFile Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(Server.MapPath(filename)) lastModLong = objFile.DateLastModified lastModLongDt = FormatDateTime(lastModLong, vbLongDate) Set objFSO = Nothing Set objFile = Nothing End Function %> <% lastModified = lastMod(filename) %>
|
||
Oilfield Site Restoration Commission The Oilfield Site Restoration Commission was created by Act 404 of 1993 and, with fees collected and deposited in the Oilfield Site Restoration Fund, provides for the proper and timely cleanup, closure, and restoration of abandoned oilfield sites. Further, the Commission supervises the creation of voluntary site specific accounts to provide for future site restoration thus facilitating the transfer of well ownership. News Release: Abandoned Oilfield Site Near LSU Now Under Cleanup and Restoration by DNR
Revised on Tuesday December 05 2006 |
||