-
Notifications
You must be signed in to change notification settings - Fork 1
/
sent_supp_clip.asp
31 lines (23 loc) · 981 Bytes
/
sent_supp_clip.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
<%
'Déclaration Variables
dim aut_clip_supp, tit_clip_supp, SQLs, Conns, RS
aut_clip_supp = Request.QueryString("auteur")
tit_clip_supp = Request.QueryString("titre")
'Création de la connection
Set Conns = Server.CreateObject ("ADODB.Connection")
'Ouverture de la connection
Conns.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath("bd1.mdb") & ";"
'Requête SQL pour séléctionner les clips dont l'auteur ou le titre correspond au valeurs du formulaire
SQLs = "SELECT * FROM [Clips] where (Auteur = '"&aut_clip_supp&"') and (Titre = '"&tit_clip_supp&"')"
'Création de l'objet Serveur
Set RS = Server.CreateObject ("ADODB.RecordSet")
'Ouverture RS, SQLs, Conns
RS.Open SQLs, Conns, 1, 2, 1
'On efface l'enregistrement
RS.delete
'On affiche un message comme quoi ca s'est bien passé
Response.Redirect "clips.asp?sent=ok_suppr&plus=true"
'Fermeture et Destruction RS & Conns
RS.Close : Set RS = Nothing
Conns.Close : Set Conns = Nothing
%>