<% If (Request.Cookies("ADMIN_LOGGED") <> "YES") then Response.Redirect("../default.asp") End If If Request("DeleteItem") <> "" Then '---- SUPPRESSION Set RS_update = Server.CreateObject("ADODB.Recordset") SQL_update = "UPDATE EVENEMENTS SET EVENEMENTS_TopSuppression = 'Y' WHERE EVENEMENTS_Id = " & Request("DeleteItem") RS_update.Open SQL_update, Connect, 1 End If '---- 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 %> <%If RS_listEvents.Recordcount > 0 Then%> <%For i = 1 To RS_listEvents.Recordcount%> <%RS_listEvents.MoveNext%> <%Next%> <%Else%> <%End If%>

Liste des évenements

" Border="0"> <%=RS_listEvents("EVENEMENTS_Description")%> ' );">[ Supprimer cet évenement ]

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

Aucun évenement pour le moment.

[ Accueil ]