<% dim myweekday,mydatemydate=now()myweekday=weekday(now())select case myweekdaycase "1"response.write &
