xoae1_id = vervang (Request.Form („MM_recordId“),“ '„,“ '' „)
het sConnString = MM_conn_STRING
Reeks objConn = Server.CreateObject („ADODB.Connection“)
objConn.Open (het sConnString)
sSQL = „(UITGEZOCHTE gebruikersbenaming ALS xusername, patient_id_oae1 ALS xpatient_id_oae1, specify1 ALS xspecify1, oae1_grade ALS xoae1_grade VAN tbl_oae_1 WAAR oae1_id = „“ & xoae1_id & „“ „
response.write sSQL
Vastgestelde rs=objConn.execute (sSQL)
als niet rs.eof toen
sSQL1 = „NEEM IN (gebruikersbenaming, patient_id_oae1, specify1, oae1_grade) WAARDEN tbl_oae_1_log (CONCAT („“ & vervang (rs („xusername“),““ „,“ '' „) &“ „,“ DELETED'), CONCAT („„& vervang (rs („xpatient_id_oae1“),““ „,“ '' „) &“ „,“ DELETED'), CONCAT („„& vervang (rs („xspecify1“) op,““ „,“ '' „) &“ „,“ DELETED'), CONCAT („„& vervang (rs („xoae1_grade“),““„,“ '' „) &“ „,“ DELETED')) „
response.write sSQL1
objConn.execute (sSQL1)
sSQL2 = „SCHRAP VAN tbl_oae_1 WAAR oae1_id = „“ & xoae1_id & „“ „
response.write sSQL2
objConn.execute (sSQL2)
beëindig als
Als err.number=0 toen
response.write het „gegeven werd met succes geschrapt.“
Beëindig als
objConn.Close
Plaats objConn = niets
|