calendar et style sur les jours

je viens de trouver la solution à mon pb, je la publie si cela peut servir

private sub cal_dayrender(sender As Object, e As System.Web.UI.WebControls.DayRenderEventArgs)
  ' connection a la base de donnees oracle '
  dim cn_string as string
  dim dbconn,sql,dbcomm,dbread
  cn_string=ConfigurationSettings.AppSettings("ebissa_cn")
  dbconn=New OleDbConnection(cn_string)
  dbconn.Open()
  ' requete liste des jours ou il y a une action '
  sql="select to_char(date_rea) as date_rea FROM w_action order by date_rea"
  dbcomm=New OleDbCommand(sql,dbconn)
  dbread=dbcomm.ExecuteReader(CommandBehavior.CloseConnection)
  
  While dbread.Read()
   if CType(dbread.GetString(0),DateTime).ToString("dd/MM/yyyy") < today() then
    if e.day.date = CType(dbread.GetString(0),DateTime).ToString("dd/MM/yyyy") then
     e.cell.backcolor = System.Drawing.Color.FromName("red")
    end if
   else
    if e.day.date = CType(dbread.GetString(0),DateTime).ToString("dd/MM/yyyy") then
     e.cell.backcolor = System.Drawing.Color.FromName("#00ff00")
    end if
   end if

  End While