<% public function CAL_DisplayDateDrop() ' Create month navigation ' If View2 or View3 is enabled (Month view) if blView2 or blView3 then dim sH : sH = "" dim StartMonth, OptMonth dim i dim strSELECTED dim strSTYLE StartMonth=dateserial(year(date()), month(date()),1) sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "

" & VbCrLf sH = sH & " " & VbCrLf for i =-12 to 24 step 1 OptMonth = dateadd("m", i, StartMonth) strSELECTED="" strSTYLE="" if i=0 then strSTYLE=" STYLE='COLOR:RED' " if year(OptMonth) = year(dtDate) AND month(OptMonth)=month(dtDate) then strSELECTED=" SELECTED " sH = sH & " " & year(OptMonth) & ", " & monthname(month(OptMonth)) & "" & VbCrLf next sH = sH & " " & VbCrLf sH = sH & "

" & VbCrLf sH = sH & " " & VbCrLf sH = sH & "

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