<%
' #################################
public Function CAL_FirstWeekDay(ByVal dtDate)
   Do Until WeekDay(dtDate) = session("FirstDayOfWeek") 
         dtDate = DateAdd("d", -1, dtDate)
      Loop
   CAL_FirstWeekDay = dtDate
End Function
%>