<%
'--------------------------------------------------------------------
' Procedure stockée pour ajouter un type de QUESTION_FAQ
'--------------------------------------------------------------------
IF request("QUESTION_FAQ")<>"" THEN
SET cmd=server.CreateObject ("adodb.command")
cmd.ActiveConnection=Application("conn")
cmd.commandtype=&h0004
cmd.commandtext="ADM_ADD_QUESTION_FAQ"
SET prm=cmd.createparameter ("input",200,&h0001,6000,request("QUESTION_FAQ"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,600000,request("reponse"))
cmd.parameters.append prm
cmd.execute
END IF
'--------------------------------------------------------------------
' Procedure stockée pour modifier un type de QUESTION_FAQ
'--------------------------------------------------------------------
IF request("QUESTION_FAQ2")<>"" THEN
SET cmd=server.CreateObject ("adodb.command")
cmd.ActiveConnection=Application("conn")
cmd.commandtype=&h0004
cmd.commandtext="ADM_MODIF_QUESTION_FAQ"
SET prm=cmd.createparameter ("input",3,&h0001,4,request("modifier"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,5000,request("QUESTION_FAQ2"))
cmd.parameters.append prm
SET prm=cmd.createparameter ("input",200,&h0001,600000,request("reponse2"))
cmd.parameters.append prm
cmd.execute
RESPONSE.Redirect("?")
END IF
'--------------------------------------------------------------------
' Procedure stockée pour supprimer un type de QUESTION_FAQ
'--------------------------------------------------------------------
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="ADM_SUPP_QUESTION_FAQ"
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 QUESTION_FAQ a modifier
'--------------------------------------------------------------------
IF request("modifier")<>"" THEN
SET rs_QUESTION_FAQ_mod= server.CreateObject ("adodb.recordset")
SET cmd=server.CreateObject ("adodb.command")
cmd.ActiveConnection=Application("conn")
cmd.commandtype=&h0004
cmd.commandtext= "ADM_SELECT_QUESTION_FAQ"
SET prm=cmd.createparameter ("input",3,&h0001,4,request("modifier"))
cmd.parameters.append prm
SET rs_QUESTION_FAQ_mod=cmd.execute
END IF
'--------------------------------------------------------------------
' Procedure stockée pour afficher les QUESTION_FAQ
'--------------------------------------------------------------------
Set rs_QUESTION_FAQ = Server.CreateObject("ADODB.RecordSet")
Set cmd = Server.CreateObject("ADODB.Command")
Set prm = Server.CreateObject("ADODB.Parameter")
cmd.ActiveConnection= Application("conn")
cmd.CommandText= "ADM_LISTE_QUESTION_FAQ"
cmd.CommandType=&H0004
Set rs_QUESTION_FAQ=cmd.execute
%>
:::Administration News
<%if request("modifier")="" and request("ajouter")<>"" then %>
<<RETOUR
Ajout d'une QUESTION_FAQ
<%END IF
if request("modifier")<>"" and request("ajouter")="" then
%>
<% DO WHILE NOT rs_QUESTION_FAQ_mod.EOF%>
<<RETOUR