<% ' ################################# public function CAL_ViewWeek() dim CatSET, loCATNAME, loCATBGCOLOR, loCATFGCOLOR, loCATTYPE dim sH : sH = "" dim dtPrev: dtPrev = dateadd("WW",-1,dtDate) dim dtNext: dtNext = dateadd("WW",+1,dtDate) dim DateFrom dim DateTo DateFrom = CAL_FirstWeekDay(DtDate) DateTo = DateAdd("d",+6,DateFrom) sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & "

" & VbCrLf sH = sH & " " sH = sH & application(session("LANG") & "_wcal13") & VbCrLf sH = sH & formatdatetime(DateFrom, vbLongDate) & " - " & formatdatetime(DateTo, vbLongDate) & VbCrLf sH = sH & "  " if session("FILTER_CATEGORY") <> "" then sH = sH & CAL_SHOWCATFILTERS() 'writes list of categories in filter end if sH = sH & "

" & VbCrLf sH = sH & CAL_ViewIcons(dtDate, "W; WS; M; MG; FT; Y;") sH = sH & "

" & VbCrLf sH = sH & ListEvents(DateFrom, DateTo) CAL_ViewWeek = sH end function %>