%@ LANGUAGE=VBScript %>
<%
currentpage = "news"
%>
<% 'save to seperate file as include w/ .asp
Function StringDate()
'this is the quick and dirty way to do it like: Day, Month day, Year:
'StringDate = FormatDateTime(date, 1)
Dim StrMo, StrDay, StrToday
StrMo = MonthName(Month(Date))
'StrDay = WeekDayName(WeekDay(Date))
'this is for, Month day, Year
StringDate = StrMo & " " & Day(Date) & ", " & Year(Date)
End Function
Function DateMod(page)
Dim objFSO
Dim objFile
Dim dateModified
' Creates the object and assigns it to our variable.
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Get access to the file
Set objFile = objFSO.GetFile(Server.MapPath(page))
' Get last modified property
dateModified = objFile.DateLastModified
DateMod = FormatDateTime(dateModified, 1)
' Kill our objects
Set objFile = Nothing
Set objFSO = Nothing
End Function
Function CheckDate(sdate)
'CDate changes the dates to variant of Date which allows a comparison
If CDate(sdate) => CDate(date) then
CheckDate = true
Else
CheckDate = false
End If
End Function
%>
DGYLF - News and Events
|
|