%@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
<%
rs_news_mod.MOVENEXT
LOOP
%>
<%end if%>
|