<% ' ################################# public function CAL_ViewIcons(AccDate, strICONS) dim sH dim AccToday : AccToday = Date() dim AccWeek : AccWeek = CAL_FirstWeekDay(AccDate) dim AccMonth : AccMonth = dateserial(year(AccDate),month(AccDate),1) dim AccYear : AccYear = dateserial(year(AccDate),1,1) if InStr(1,Request.ServerVariables("SCRIPT_NAME"),"CALENDAR_PRINT.asp",1)=0 then 'if day view is enabled if blView6 then sH = sH & "" else sH = sH & "" end if if InStr(1, strICONS, "W;")>0 and blView4 then sH = sH & "" if InStr(1, strICONS, "WS;")>0 and blView5 then sH = sH & "" if InStr(1, strICONS, "M;")>0 then sH = sH & "" if InStr(1, strICONS, "MG;")>0 and blView3 then sH = sH & "" if InStr(1, strICONS, "FT;")>0 and blView7 then sH = sH & "" if InStr(1, strICONS, "Y;")>0 and blView1 then sH = sH & "" if blAllowPrintLink then sH = sH & "" if blAllowExcelLink then sH = sH & "" if InStr(1, strICONS, "B;")>0 then sH = sH & "" end if CAL_ViewIcons = sH & VbCrLf end function %>