Optælling af tilmeldinger på forside af kalender "en lille fejl!"

hej jeg har på en tilmeldingskalender et problem med at få vist hvor mange der har meldt sig på hver dag:

De forskellige tilmeldinger kommer fint til at ligge i en database, men når de skal vises mangler der noget. De bliver vist alle måneder.
Her kan i se:
http://www.test.coutbound.dk/test2/

de enkelte tilmeldinger bliver altså vist alle måned/år!!


Det er her problemet er:

Dim iDay, iWeek, sFontColor, dictDte(31,2), intCount,strCount, rsCount
  strSql = "SELECT * FROM calendar WHERE year(dte) = " & year(dtCurViewMonth) &" AND month(dte)= " & month(dtCurViewMonth) & " ORDER BY Day(dte)"
  stryear = "select * FROM yearlycal Where month(dte)= " & month(dtCurViewMonth) & " ORDER BY Day(dte)" 
  strCount = "SELECT dte,Count(id) as antal from yearlycal GROUP by dte"

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

 

  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

håber nogle kan hjælpe: