<% ' ################################# public function CAL_ViewDay() dim sH : sH = "" dim dtPrev: dtPrev = dateadd("D",-1,dtDate) dim dtNext: dtNext = dateadd("D",+1,dtDate) sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" sH = sH & "" & VbCrLf sH = sH & "

" & VbCrLf sH = sH & application(session("LANG") & "_wcal18") & VbCrLf sH = sH & " " & VbCrLf sH = sH & "  « " sH = sH & formatdatetime(dtDate,vbLongDate) & VbCrLf sH = sH & "  »  " if session("FILTER_CATEGORY") <> "" then sH = sH & CAL_SHOWCATFILTERS() 'writes list of categories in filter end if sH = sH & "

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

" & VbCrLf sH = sH & ListEvents(dtDate, dtDate) CAL_ViewDay = sH end function %>