<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <%Session.LCID=&H040C%> <% '-------------------------------------------------------------------- ' Procedure stockée pour ajouter une News '-------------------------------------------------------------------- IF request("resume")<>"" AND request("news")<>"" AND request("titre")<>"" THEN news=replace(request("news"),""" AND request("news2")<>"" AND request("titre2")<>"" THEN news=replace(request("news2"),"class=link_left_left","") news=replace(news,""" THEN total=request("chec").count FOR i=1 TO total SET cmd=server.CreateObject ("adodb.command") cmd.ActiveConnection=Application("conn") cmd.commandtype=&h0004 cmd.commandtext="ADM_SUPP_NEWS" set prm=cmd.createparameter ("input",3,&h0001,4,request("chec")(i)) cmd.parameters.append prm cmd.execute NEXT END IF '-------------------------------------------------------------------- ' Procedure stockée pour afficher la News a modifier '-------------------------------------------------------------------- IF request("modifier")<>"" THEN SET rs_news_mod= server.CreateObject ("adodb.recordset") SET cmd=server.CreateObject ("adodb.command") cmd.ActiveConnection=Application("conn") cmd.commandtype=&h0004 cmd.commandtext= "ADM_SELECT_NEWS" SET prm=cmd.createparameter ("input",3,&h0001,4,request("modifier")) cmd.parameters.append prm SET rs_news_mod=cmd.execute END IF '-------------------------------------------------------------------- ' Procedure stockée pour afficher les News '-------------------------------------------------------------------- Set rs_news = Server.CreateObject("ADODB.RecordSet") Set cmd = Server.CreateObject("ADODB.Command") Set prm = Server.CreateObject("ADODB.Parameter") cmd.ActiveConnection= Application("conn") cmd.CommandText= "ADM_LISTE_NEWS" cmd.CommandType=&H0004 Set rs_news=cmd.execute %> :::Administration News
 
<%if request("modifier")="" and request("ajouter")<>"" then %>
   
 
 
   
   
 
 
     
   
<%END IF if request("modifier")<>"" and request("ajouter")="" then %>
<% DO WHILE NOT rs_news_mod.EOF%> <<RETOUR
   
  ">
 
  " size="10" readonly="">  
  " size="10" readonly="">  
 
  <%SELECTION=rs_news_mod("priorite")%>
     
  ">  
<% rs_news_mod.MOVENEXT LOOP %> <%end if%>
<% DIM i DIM BG_COLOR i=1 BG_COLOR="#FFFFFF" DO WHILE NOT rs_news.EOF IF i MOD 2 = 0 THEN BG_COLOR="#F1F1F8" ELSE BG_COLOR="#F4FCFF" END IF %> <% rs_news.MOVENEXT i=i+1 LOOP %>
<%=rs_news("titre")%>
<%=rs_news("date_d")%>
<%=rs_news("date_f")%>
">