archive d'infolettre

Profitez d'une source d'informations intéressantes sur l'actualité des nouvelles technologies, nos dernières réalisations, nos trucs et conseils pratiques et nos services offerts! Apprenez-en plus sur les sujets de l'heure comme le Web 2.0, le référencement sur les moteurs de recherche et tous les outils utiles.

<% dim tmp_year: tmp_year = "" dim rsArchives, rsArchivesAnnee: set rsArchivesAnnee = server.CreateObject("ADODB.Recordset") rsArchivesAnnee.open "SELECT dateEnvoi FROM TNewsletter WHERE langue = 'fr' AND archive = TRUE ORDER BY dateEnvoi DESC;", db, 3, 1 if not rsArchivesAnnee.bof and not rsArchivesAnnee.eof then while not rsArchivesAnnee.eof if tmp_year <> year(rsArchivesAnnee.fields("dateEnvoi")) then if tmp_year <> "" then response.write "
" tmp_year = year(rsArchivesAnnee.fields("dateEnvoi")) response.write "

Archive de l'année " & tmp_year & "

" set rsArchives = server.CreateObject("ADODB.Recordset") rsArchives.open "SELECT * FROM TNewsletter WHERE langue = 'fr' AND archive = TRUE AND year(dateEnvoi) = " & tmp_year & " ORDER BY dateEnvoi DESC;", db, 3, 1 if not rsArchives.bof and not rsArchives.eof then response.write "

" while not rsArchives.eof response.write "
• " & GetDateTexte(rsArchives.fields("dateEnvoi"), " ") & " - " & rsArchives.fields("objet") & "
" rsArchives.movenext wend response.write "

" else response.write "Aucune archive disponible pour le moment." end if rsArchives.close: set rsArchives = nothing end if rsArchivesAnnee.movenext wend end if rsArchivesAnnee.close: set rsArchivesAnnee = nothing %>