xoae1_id = ersetzen (Request.Form („MM_recordId“),“ '„,“ '' ")
sConnString = MM_conn_STRING
objConn = Server.CreateObject („ADODB.Connection“) einstellen
objConn.Open (sConnString)
sSQL = „(AUSERWÄHLTES username ALS xusername, patient_id_oae1 ALS xpatient_id_oae1, specify1 ALS xspecify1, oae1_grade ALS xoae1_grade VON tbl_oae_1, WO oae1_id = „“ u. xoae1_id u. „“ „
response.write sSQL
rs=objConn.execute (sSQL) einstellen
wenn nicht rs.eof dann
sSQL1 = „EINSATZ tbl_oae_1_log (username, patient_id_oae1, specify1, oae1_grade) IN WERTE (CONCAT („“ u. ersetzen (rs („xusername“),““ „,“ '' ") u.“ „,“ in DELETED'), IN CONCAT („„u. ersetzen (rs („xpatient_id_oae1“),““ „,“ '' ") u.“ „,“ in DELETED'), CONCAT („„u. ersetzen (rs („xspecify1“),““ „,“ '' ") u.“ „,“ DELETED'), CONCAT („„u. ersetzen (rs („xoae1_grade“),““ „,“'' ") u.“ „,“ DELETED')) „
response.write sSQL1
objConn.execute (sSQL1)
sSQL2 = „LÖSCHUNG VON tbl_oae_1, WO oae1_id = „“ u. xoae1_id u. „“ „
response.write sSQL2
objConn.execute (sSQL2)
beenden wenn
Wenn err.number=0 dann
response.write „die Daten wurde gelöscht erfolgreich.“
Beenden wenn
objConn.Close
objConn einstellen = nichts
|