<% ' ################################# public function CAL_DisplayMonths() ' Create month navigation ' If View2 or View3 is enabled (Month view) if blView2 or blView3 then dim sH : sH = "" dim J,I dim AccMonth sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf For j = 0 to 3 sH = sH & "" & VbCrLf For i = 1 to 3 sH = sH & " " & VbCrLf next sH = sH & "" & VbCrLf next sH = sH & "" & VbCrLf sH = sH & "

" & VbCrLf AccMonth=DateSerial(year(VMonth), j*3+i, 1) sH = sH & "" & VbCrLf if blCUTMONTHNAMES then sH = sH & left(application(session("LANG") & "_MonthName" & j*3+i),intCUTMONTHNAMES) & VbCrLf else sH = sH & application(session("LANG") & "_MonthName" & j*3+i) & VbCrLf end if sH = sH & "" & VbCrLf sH = sH & "

" & VbCrLf CAL_DisplayMonths = funcs.BOXCreator("", sH, strDEFTHEME, "", "100%") end if end function %>