<% '---- RECUPERATION DES EVENNEMENTS ---- Set RS_listEvents = Server.CreateObject("ADODB.Recordset") SQL_listEvents = "SELECT * FROM EVENEMENTS WHERE EVENEMENTS_TopSuppression = 'N'" RS_listEvents.Open SQL_listEvents, Connect, 1 %>

NOS EVENEMENTS

<%If RS_listEvents.Recordcount > 0 Then%> <%For i = 1 To RS_listEvents.Recordcount%> <%RS_listEvents.MoveNext%> <%Next%> <%Else%> <%End If%>

" Border="0"> <%=RS_listEvents("EVENEMENTS_Description")%>

<%If i < RS_listEvents.Recordcount Then%> <%ElsE%>   <%End If%>

Aucun évenement pour le moment.

[ Accueil ]