<%
this_month = Trim(CStr(Month(Date)))
this_day = Trim(CStr(Day(Date)))
if Len(this_month) = 1 then
this_month = "0" & this_month
end if
if Len(this_day) = 1 then
this_day = "0" & this_day
end if
input_date = Year(Date) & this_month & this_day
weekday_date = Year(Date) & "/" & this_month & "/" & this_day
strDayName = WeekdayName(DatePart("W", weekday_date))
if input_date >= "20041006" and input_date <= "20041020" then
if strDayName = "Wednesday" then %>
<% else %>
<% end if %>
<% else %>
<% end if %>
|
