<% Response.Buffer = True %> <% ' FP_ASP -- Script ASP généré automatiquement par un composant FrontPage. Ne pas modifier. FP_CharSet = "windows-1252" FP_CodePage = 1252 %> Resultats -- Supprimer <% If Request("btnAction") = "Nouveau" Then Response.Redirect "" End If %> <% If Request.QueryString("Clé") = "" Then fp_sMyQry = "" nCount = 0 For Each Field In Request.Form If Request.Form(Field) = "ON" Then If nCount = 0 Then fp_sMyQry = "" & Field & "" Else fp_sMyQry = fp_sMyQry & "%20OR%20Clé=" & Field & "" End If nCount = nCount + 1 End If Next 'Field If Len(fp_sMyQry) > 0 Then sRedirect = "delete.asp?Clé=" & fp_sMyQry Response.Redirect sRedirect End If End If %> <% if Len(Request("ConfirmDelete")) = 0 then %> <% if 0 then %> <% end if %> <% fp_sQry="SELECT * FROM Resultats WHERE Clé = ::Clé::" fp_sDefault="" fp_sNoRecords="" fp_sDataConn="basededonnees1" fp_iMaxRecords=256 fp_iCommandType=1 fp_iPageSize=5 fp_fTableFormat=True fp_fMenuFormat=False fp_sMenuChoice="" fp_sMenuValue="" fp_iDisplayCols=4 fp_fCustomQuery=False BOTID=0 fp_iRegion=BOTID %>
Clé Nom Choix 
No records returned.
<%=FP_FieldVal(fp_rs,"Clé")%> <%=FP_FieldVal(fp_rs,"Nom")%> <%=FP_FieldVal(fp_rs,"Choix ")%>
<%select case fp_iCount %> <%case 0:%>

Cliquez sur OK pour actualiser.

<%case 1:%>

Voulez-vous vraiment supprimer cet enregistrement ?

<%case else:%>

Voulez-vous vraiment supprimer ces enregistrements ?

<%end select%>
<% Response.end ElseIf Request("ConfirmDelete") = "Annuler" Then Response.Clear Response.Redirect "detail.asp" End If %> <% if 0 then %> <% end if %> <% fp_sQry="DELETE FROM Resultats WHERE Clé = ::Clé::" fp_sDefault="" fp_sNoRecords="Record deleted from table." fp_sDataConn="basededonnees1" fp_iMaxRecords=1 fp_iCommandType=1 fp_iPageSize=0 fp_fTableFormat=False fp_fMenuFormat=False fp_sMenuChoice="" fp_sMenuValue="" fp_iDisplayCols=16 fp_fCustomQuery=True BOTID=1 fp_iRegion=BOTID %>