<%
Dim Conn
Dim strSql
Dim RS
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnect
strSql= "SELECT TOP 25 tblPressFrenchAr.Title, tblPressFrenchAr.TitleLink, tblPressFrenchAr.Symbol, tblPressFrenchAr.DateD, Datepart (mm,tblPressFrenchAr.DateD) AS [Month], Datepart (dd,tblPressFrenchAr.DateD) AS [Day], Datepart (yy,tblPressFrenchAr.DateD) AS [Year] FROM tblPressFrenchAr WHERE Title LIKE '%antisémitisme%' OR Title LIKE '%camps de concentration%' UNION SELECT TOP 25 tblPressFrench.Title, tblPressFrench.TitleLink, tblPressFrench.Symbol, tblPressFrench.DateD, Datepart (mm,tblPressFrench.DateD) AS [Month], Datepart (dd,tblPressFrench.DateD) AS [Day], Datepart (yy,tblPressFrench.DateD) AS [Year] FROM tblPressFrench WHERE Title LIKE '%antisémitisme%' OR Title LIKE '%camps de concentration%' ORDER BY DateD DESC"
Set RS = Conn.Execute(strSql)
%>
28e session extraordinaire de l'Assemblée générale des Nations Unies pour commémorer le 60e anniversaire de la libération des camps de concentration nazis (24 janvier 2005)
