 |
<%
saturday = DateAdd("d", 2 - Weekday(Now(), vbFriday), Now())
Response.Write Day(saturday) & " " & MonthName(Month(saturday)) & _
" " & Year(saturday)
If Month(saturday) < 10 Then
monthnum = "0" & Month(saturday)
Else
monthnum = Month(saturday)
End If
If Day(saturday) < 10 Then
daynum = "0" & Day(saturday)
Else
daynum = Day(saturday)
End If
covername = Year(saturday) & "-" & monthnum & "-" & daynum
%>
|
|
|
 |
|
|
|
