SELECT TOP 40 New.Numero,New.Type,New.Titre,New.Message,New.Month,New.Year,New.Page,;
 New.Url,New.Creation,New.Titre_P,New.Titre_S,New.Message_P,New.Message_S FROM New;
 INNER JOIN NewAll ON New.Numero=NewAll.NoNews;
 WHERE NewAll.NoClient=tnZone AND New.Status=1 AND (NOT INLIST(New.Type,7,10);
  OR (New.Type=7 AND New.Date>=ldDateEvent) OR;
 (New.Type=10 AND New.Date<=ldDateEvent AND New.DateFin>=ldDateEvent));
UNION;
SELECT New.Numero,New.Type,New.Titre,New.Message,New.Month,New.Year,New.Page,;
  New.Url,New.Creation,New.Titre_P,New.Titre_S,New.Message_P,New.Message_S FROM New;
 INNER JOIN New AS New2 ON New.NoUserGrou=New2.Numero;
 INNER JOIN NewAll ON New2.Numero=NewAll.NoNews;
 WHERE NewAll.NoClient=tnZone AND New.Status=1 AND INLIST(New.Type,13,15) AND;
  LEN(New.Message)>100;
 GROUP BY 1 ORDER BY 9 DESC INTO CURSOR Temp