oh, and if you wanted to avoid expiration dates on the weekend, you can add the following two lines after the DateAdd: If WeekDay(strTempDate)=1 ThenstrTempDate=DateAdd(""d"",-2,strTempDate)
If WeekDay(strTempDate)=7 ThenstrTempDate=DateAdd(""d"",-1,strTempDate)