<% Option Explicit %> <% ' ################################### ' ### Déclaration des variables ### ' ################################### Dim IntIdYear, IntIdMonth Dim intLoop, strSql Dim rstListMonths, arrNewsMonths, arrNewsMonthsCount Dim rstNews, arrNews, arrNewsCount ' ####################################### ' ### Initialisation des variables ### ' ####################################### IntIdYear = 0 IntIdMonth = 0 ' ################################### ' ### Ouvertures Recordsets ### ' ################################### ' ### MonthsList ### Set rstListMonths = Server.CreateObject("ADODB.Recordset") GetConnection() strSql = "Select distinct month(dt_begindate) as newsmonth, year(dt_begindate) as yearmonth from news where dt_begindate <= date() order by year(dt_begindate) desc, month(dt_begindate) desc" rstListMonths.Open strSql, cnn, 1 If Not rstListMonths.Eof then arrNewsMonthsCount = rstListMonths.RecordCount arrNewsMonths = rstListMonths.GetRows rstListMonths.MoveFirst IntIdYear = arrNewsMonths(1,0) IntIdMonth = arrNewsMonths(0,0) End If rstListMonths.Close CloseConnection() Set rstListMonths = nothing ' ### News ### If Len(Request.QueryString("m"))>0 AND Len(Request.QueryString("y"))>0 then IntIdYear = Cint(Request.QueryString("y")) IntIdMonth = Cint(Request.QueryString("m")) End If Set rstNews = Server.CreateObject("ADODB.Recordset") GetConnection() strSql = "Select tx_title, mo_content, dt_begindate from news where month(dt_begindate) = " & Cint(IntIdMonth) & " AND year(dt_begindate) = " & Cint(IntIdYear) & " order by dt_begindate desc, dt_ldate desc" rstNews.Open strSql, cnn, 1 If Not rstNews.Eof then ArrNewsCount = rstNews.RecordCount ArrNews = rstNews.GetRows End If rstNews.Close CloseConnection() Set rstNews = nothing ' ################################### ' ### Affichage HTML ### ' ################################### %>

Challenge indoor