|
|
|
<%
SQL = "Select ID, Date_Affichage, Titre_Fr, Contenu_Fr, 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
For i = 1 To 3
If Not RS.EOF Then
%>
<%=RS("Date_Affichage")%>
<%=RS("Titre_Fr")%>
<%If Not IsNull(RS("Contenu_Fr")) Or Not IsNull(RS("Photo")) Then%>
" class="nouvelle_detail">Détail>>
<%End If%>
<%
RS.MoveNext
End If
Next
If Not RS.EOF Then
%>
Pour accéder aux autres nouvelles>>
<%
End If
RS.Close
Set RS = Nothing
Connexion.Close
Set Connexion = Nothing
%>
|
|
|
|
