%
'--------------------------------------------------------------------
' Procedure stockée pour ajouter un type de document
'--------------------------------------------------------------------
if request("ref")<>"" then
SET cmd=server.CreateObject ("adodb.command")
cmd.ActiveConnection=Application("conn")
cmd.commandtype=&h0004
cmd.commandtext="add_Fiche_Produit"
SET prm=cmd.createparameter ("input",200,&h0001,100,request("ref"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("cap"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("puissance"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("poid"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("volume"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("borne"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("fixation"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("longueur"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("largeur"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("hauteur"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",3,&h0001,4,request("id_produit"))
cmd.parameters.append prm
cmd.execute
END IF
'--------------------------------------------------------------------
' Procedure stockée pour modifier un type de document
'--------------------------------------------------------------------
if request("ref2")<>"" then
SET cmd=server.CreateObject ("adodb.command")
cmd.ActiveConnection=Application("conn")
cmd.commandtype=&h0004
cmd.commandtext="modif_fiche_tech"
SET prm=cmd.createparameter ("input",3,&h0001,4,request("modifier"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,100,request("ref2"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("cap2"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("puissance2"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("poid2"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("volume2"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("borne2"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("fixation2"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("longueur2"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("largeur2"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,50,request("hauteur2"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",3,&h0001,4,request("id_produit2"))
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_fiche_tech"
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_fiche_tech_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_fiche_tech"
cmd.CommandType=&H0004
Set rs_type_document=cmd.execute
Set rs_prod = 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_prod=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%>
|