<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

		" onmouseover="changer_image('cmd07','images/secondaire/cmd07_on.jpg')" onmouseout="changer_image('cmd07','images/secondaire/cmd07.jpg')">

<% If Request.QueryString("id") = "" Then%> <% SQL = "Select ID, Date_Affichage, Titre_En, Contenu_En, Photo " & _ "From Nouvelle " & _ "Where Date_Affichage <= Convert(Char(10), GetDate(), 23) " & _ "Order By Date_Affichage Desc" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQL, Connexion, 1, 3 While Not RS.EOF %> <%=RS("Date_Affichage")%> <%=RS("Titre_En")%> <%If Not IsNull(RS("Contenu_En")) Or Not IsNull(RS("Photo")) Then%> " class="nouvelle_detail">Detail>> <%End If%> <% RS.MoveNext WEnd %> <<Home <% Else SQL = "Select ID, Date_Affichage, Titre_En, Contenu_En, Photo, Dimension_Dom, Alignement_Dom " & _ "From Nouvelle " & _ "Where ID = " & Request.QueryString("id") & " And Date_Affichage <= Convert(Char(10), GetDate(), 23)" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQL, Connexion, 1, 3 %> <%=RS("Date_Affichage")%> <%=RS("Titre_En")%> <%If Not IsNull(RS("Photo")) Then%> <%If RS("Alignement_Dom") = 57 Then Response.Write(" align=""right""")%>> -Photo.<%=Mid(RS("Photo"), InStrRev(RS("Photo"), ".") + 1)%>')">-Photo.<%=Mid(RS("Photo"), InStrRev(RS("Photo"), ".") + 1)%>"<%If RS("Dimension_Dom") = 55 Then Response.Write(" width=""200""")%> alt="<%=RS("Titre_En")%>" border="1" style="border-collapse:collapse;border-color:#336699"> <%End If%> <%=RS("Contenu_En")%> <<Return to other news <% End If RS.Close Set RS = Nothing Connexion.Close Set Connexion = Nothing %>