<% ' ################################# public function CAL_ViewYear() dim sH : sH = "" dim dtYear dim I dim J dim MaxDay dim href dim dtDate1 dim dtDate2 dim dtDate3 dim bgCol dim EventList dim CATSEt dim loCATNAME dim loCATBGCOLOR dim loCATFGCOLOR dim loCATTYPE server.scripttimeout = 90 ' We should CHANGE timeout for this script if Request("Q_DATE")="" then dtYear = year(date()) else dtYear = year(Request("Q_DATE")) end if sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "

" & application(intCalendarLang & "_wcal1") & "

" & dtYear & "

" sH = sH & "" & VbCrLf sH = sH & " " ' vynecháme sloupec pro dny sH = sH & " " & VbCrLf for i = 1 to 12 ' Jeden sloupec pro každý měsíc sH = sH & "" & VbCrLf next sH = sH & "

" & VbCrLf dtDate1 = dateSerial(dtYear,i,"1") dtDate2 = dateadd("m",1,dtDate1) MaxDay = day(dateadd("w",-1,dtDate2)) sH = sH & "" if blCUTMONTHNAMES then sH = sH & left(MonthName( i),intCUTMONTHNAMES) else sH = sH & MonthName( i) end if sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf for J = 1 to MaxDay dtDate3 = dateSerial(dtYear,i,j) BgCol= "Class=""CalYear""" if weekday(dtDate3) = vbSunday or weekday(dtDate3) = vbSaturday then BgCol= "Class=""CalYearWeekEnds" StrSql = "SELECT wcal_events.IDEvent as ID, wcal_events.IDUser, wcal_events.Place, wcal_events.EventName, wcal_eventrec.StartTime, wcal_eventrec.EndTime, wcal_eventrec.Description FROM (wcal_eventcat LEFT JOIN (wcal_events LEFT JOIN wcal_eventrec ON wcal_events.IDEvent = wcal_eventrec.IDEvent) ON wcal_eventcat.IDEvent = wcal_events.IDEvent) INNER JOIN wcal_category ON wcal_eventcat.IDCat = wcal_category.IDCat where (UserPrivate=0 OR UserPrivate=" & session("WCAL_USERID") & ") AND wcal_eventrec.Lang=" & intCalendarLang& " and wcal_eventrec.Client=" & session("Client") & " and EventDate = " & funcs.VDate(dtDate3) if Session("FILTER_CATEGORY") <> "" then StrSql = strSQL & " AND wcal_eventcat.IDCat IN (" & Session("FILTER_CATEGORY") & "0)" if Session("FILTER_LOCATION") <> "" then strSQL = strSQL & " AND wcal_events.Place like '%" & Session("FILTER_LOCATION") & "%'" 'if session("wcal_pers") <> "" then strSQL = strSQL & " AND wcal_events.Person = '" & session("wcal_pers") & "'" if blVIEWHOLIDAYSYEAR then StrSql = strSQL & " AND wcal_category.CatType<>3" set EventList = Server.CreateObject("ADODB.Recordset") EventList.CursorLocation = 3 EventList.Open strSql, my_conn EventList.CacheSize = 100 if NOT (EventList.BOF or EventList.EOF) then BgCol="Class=""CalYearEVENTYES""" sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf EventList.close set EventList = nothing next sH = sH & " " & VbCrLf sH = sH & " " & day(dtDate3) & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & "

" & VbCrLf CAL_ViewYear = sH end function %>