skifte farve på een dag i kalender

Jeg har lavet en kalender hvor jeg nu vil have den til at skifte  farve til rød på de dage hvor der er det max antal meldt til, lad os bare sige 8. Jeg har prøvet lidt forskelligt men intet virker...can anyone help?

her tæller den op hvor mange der er på dagen.

strCount = "SELECT dte,Count(id) as antal from yearlycal WHERE year(dte) = " & year(dtCurViewMonth) &" AND month(dte)= " & month(dtCurViewMonth) &" AND gruppe= '" & session("gruppe")&  "' GROUP by dte"



  set rsyearly = my_conn.execute (stryear)
  set rs = my_conn.Execute (StrSql)
  set rsCount = my_conn.Execute(strCount)


Her tæller den hvor mange der er på den gældende dag.

  do until rscount.eof
    dictDte(Day(rsCount("dte"))-1, 1) = dictDte(Day(rsCount("dte"))-1, 1)&_
    rscount("antal")
    rscount.movenext
  loop
  rs.close
  rsCount.close


Her defineres farven på den pågældende dag:
  If Month(dtCurViewDay) = Month(dtCurViewMonth) Then
        If dtCurViewDay = dtToday Then
              sFontColor = "#000000"

            Else
              sFontColor = "#FFFFFF"
            End If



Filerne kan ses på www.roskildebus.dk/test/

Jeg har prøvet at lave en if-sætning lig med if (dictDte(Day(rsCount("dte"))-1, 1))>=8 then
sfontcolor ="#FF0000"
else
sfontcolor ="#FFFFFF"
end if

Men jeg kan ik få det til at virke..