<%@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) %>
Louisiana Department of Natural Resources - Web Site Map
