<%
Option Explicit
Dim TheExpireDate
If WeekDay(Date) = 1 then
  TheExpireDate = DateAdd("d", 5, Date)
ElseIf WeekDay(Date) = 2 then
  TheExpireDate = DateAdd("d", 4, Date)
ElseIf WeekDay(Date) = 3 then
  TheExpireDate = DateAdd("d", 3, Date)
ElseIf WeekDay(Date) = 4 then
  TheExpireDate = DateAdd("d", 2, Date)
ElseIf WeekDay(Date) = 5 then
  TheExpireDate = DateAdd("d", 1, Date)
ElseIf WeekDay(Date) = 6 then
  TheExpireDate = DateAdd("d", 7, Date)
Else
  TheExpireDate = DateAdd("d", 6, Date)
End If
Response.ExpiresAbsolute = TheExpireDate
%> 
