<% '*** This part of the code display's Current Day and Current Date
Dim mday, mm, myear, mdate, mweek
mday = Day(Date())
mm = Monthname(Month(Date()),2)
mweek = Weekdayname(Weekday(Date()),2)
myear = Year(Date())
mdate = mweek&" "& mm &" "& mday &", " & myear
%>
<%=mdate%>
 |
 |
|
|