<% Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 ordre = Request.QueryString("ordre") erreur = 0 Set dcnDB = Server.CreateObject("ADODB.Connection") %> <% dcnDB.Open strDatabaseLocation strSQL = "SELECT * FROM Usagers " strSQL = strSQL & " WHERE " strSQL = strSQL & " Usager = '" & Session("UserID") & "' " strSQL = strSQL & " AND motdepasse = '" & Session("Motdepasse") & "' " Set rsProd = dcnDB.Execute(strSQL) If Session("suppauto") = FALSE Then erreur = 1 End If %> Suppression d'un enregistrement


<% If erreur = 0 Then dcnDB.Execute "DELETE FROM Questionnaire WHERE participantID = " & Session("numero") dcnDB.Execute "DELETE FROM Resultat_Question WHERE ID_participant = " & Session("numero") Response.Write "

Suppression effectuée.



" Else Response.Write "

La suppression n'est pas autorisée. Veuillez modifier cette option dans la table des usagers de la base de données.

" End If %>
<% rsProd.Close dcnDB.Close %>