xoae1_id = remplacent (Request.Form (« MM_recordId »), » '« , » '' ")
sConnString = MM_conn_STRING
Placer l'objConn = le Server.CreateObject (« ADODB.Connection »)
objConn.Open (sConnString)
sSQL = « (username CHOISI COMME xusername, patient_id_oae1 COMME xpatient_id_oae1, specify1 COMME xspecify1, oae1_grade COMME xoae1_grade de tbl_oae_1 OÙ oae1_id = « » et xoae1_id et « » «
sSQL de response.write
Placer rs=objConn.execute (le sSQL)
sinon rs.eof alors
sSQL1 = « INSERTION DANS LES VALEURS de tbl_oae_1_log (username, patient_id_oae1, specify1, oae1_grade) (CONCAT (« » et remplacer (rs (« xusername »), » » « , » '' ") et » « , le » DELETED'), le CONCAT (« « et remplacer (rs (« xpatient_id_oae1 »), » » « , » '' ") et » « , le » DELETED'), CONCAT (« « et remplacer (rs (« xspecify1 »), » » « , » '' ") et » « , » DELETED'), CONCAT (« « et remplacer (rs (« xoae1_grade »), » » « , »'' ") et » « , » DELETED')) «
response.write sSQL1
objConn.execute (sSQL1)
sSQL2 = « SUPPRESSION de tbl_oae_1 OÙ oae1_id = « » et xoae1_id et « » «
response.write sSQL2
objConn.execute (sSQL2)
finir si
Si err.number=0 alors
response.write « les données a été supprimé avec succès. »
Finir si
objConn.Close
Placer l'objConn = rien
|