%
'--------------------------------------------------------------------
' Procedure stockée pour ajouter un type de document
'--------------------------------------------------------------------
if request("produit")<>"" then
SET cmd=server.CreateObject ("adodb.command")
cmd.ActiveConnection=Application("conn")
cmd.commandtype=&h0004
cmd.commandtext="add_produits"
SET prm=cmd.createparameter ("input",200,&h0001,100,request("produit"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,8000,request("description"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,8000,request("avantage"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",3,&h0001,4,request("prix"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",3,&h0001,4,1)
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("garante"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",3,&h0001,4,request("famille"))
cmd.parameters.append prm
cmd.execute
END IF
'--------------------------------------------------------------------
' Procedure stockée pour modifier un type de document
'--------------------------------------------------------------------
if request("produit2")<>"" then
SET cmd=server.CreateObject ("adodb.command")
cmd.ActiveConnection=Application("conn")
cmd.commandtype=&h0004
cmd.commandtext="modif_produit"
SET prm=cmd.createparameter ("input",3,&h0001,4,request("modifier"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,100,request("produit2"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,8000,request("description2"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,8000,request("avantage2"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",3,&h0001,4,request("prix2"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("garante2"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",3,&h0001,4,request("famille2"))
cmd.parameters.append prm
cmd.execute
RESPONSE.Redirect("?")
END IF
'--------------------------------------------------------------------
' Procedure stockée pour supprimer un type de document
'--------------------------------------------------------------------
IF request("chec")<>"" 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="supp_produit"
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 le type de document a modifier
'--------------------------------------------------------------------
IF request("modifier")<>"" THEN
SET rs_type_document_mod= server.CreateObject ("adodb.recordset")
SET cmd=server.CreateObject ("adodb.command")
cmd.ActiveConnection=Application("conn")
cmd.commandtype=&h0004
cmd.commandtext= "select_produit_modif"
SET prm=cmd.createparameter ("input",3,&h0001,4,request("modifier"))
cmd.parameters.append prm
SET rs_type_document_mod=cmd.execute
END IF
'--------------------------------------------------------------------
' Procedure stockée pour afficher les News
'--------------------------------------------------------------------
Set rs_type_document = Server.CreateObject("ADODB.RecordSet")
Set cmd = Server.CreateObject("ADODB.Command")
Set prm = Server.CreateObject("ADODB.Parameter")
cmd.ActiveConnection= Application("conn")
cmd.CommandText= "select_produit"
cmd.CommandType=&H0004
Set rs_type_document=cmd.execute
Set rs_famille = Server.CreateObject("ADODB.RecordSet")
Set cmd = Server.CreateObject("ADODB.Command")
Set prm = Server.CreateObject("ADODB.Parameter")
cmd.ActiveConnection= Application("conn")
cmd.CommandText= "ADM_LISTE_FAMILLE"
cmd.CommandType=&H0004
Set rs_famille=cmd.execute
%>
:::Administration News
|
<%if request("modifier")="" and request("ajouter")<>"" then %>
<<RETOUR
<%END IF
if request("modifier")<>"" and request("ajouter")="" then
%>
<% DO WHILE NOT rs_type_document_mod.EOF%>
<<RETOUR
<%
rs_type_document_mod.MOVENEXT
LOOP
%>
<%end if%>
|