<%@ Language=VBScript %> <% ' +------------------------------------------------------------------------------------------+ ' | BO STANDARD ' +------------------------------------------------------------------------------------------+ ' | Fichier : actualite.asp ' | Date : 27/10/2004 ' | Version : 1.0 ' | Auteur : J.ZARIOUH ' +------------------------------------------------------------------------------------------+ ' | Page d'accueil du backoffice ' +------------------------------------------------------------------------------------------+ ' | Modifications: ' | DATE VERSION AUTEUR MODIFS APPORTEES ' +------------------------------------------------------------------------------------------+ %>

Les prochains grands évènements : <% SQL = "select actualite_lien,actualite_titre_fr,actualite_titre_en,actualite_article_fr,actualite_article_en,actualite_date_fr,actualite_date_en,actualite_image "&_ " FROM dbo.TBL_ACTUALITE "&_ " WHERE actualite_active = 1 and actualite_archive = 0 " set rs = conn.Execute(SQL) if not rs.eof then do while not rs.eof if session("lang") <> "en" then actualite_titre = rs("actualite_titre_fr") actualite_article = rs("actualite_article_fr") actualite_date = rs("actualite_date_fr") else actualite_titre = rs("actualite_titre_en") actualite_article = rs("actualite_article_en") actualite_date = rs("actualite_date_en") end if actualite_image = rs("actualite_image") actualite_lien = rs("actualite_lien") %> <%if actualite_image <> "" then if actualite_lien <> "" then %> <%else %> <%end if end if if actualite_lien <> "" then %> <%=actualite_titre%> <%else %> <%=actualite_titre%> <%end if %> <%=nl2br(actualite_article)%> <%=actualite_date%> <%rs.MoveNext loop end if %>