xoae1_id = byter ut (Request.Form (”MM_recordId”),” '”,” '' ”)
sConnString = MM_conn_STRING
Fastställd objConn = Server.CreateObject (”ADODB.Connection”)
objConn.Open (sConnString)
sSQL = ”(VALD username SOM xusername, patient_id_oae1 SOM xpatient_id_oae1, specify1 SOM xspecify1, oae1_grade SOM xoae1_grade FRÅN tbl_oae_1 VAR oae1_id = ”” & xoae1_id & ”” ”,
response.write-sSQL
Uppsättning rs=objConn.execute (sSQL)
om inte rs.eof därefter
sSQL1 = ”MELLANLÄGGET IN I tbl_oae_1_log (username, patient_id_oae1, specify1, oae1_grade) VÄRDERAR (CONCAT (”” & byt ut (rs (”xusername”),”” ”,” '' ”) &” ”,” DELETED'), CONCAT (””& byt ut (rs (”xpatient_id_oae1”),”” ”,” '' ”) &” ”,” DELETED'), CONCAT (””& byt ut (rs (”xspecify1”),”” ”,” '' ”) &” ”,” DELETED'), CONCAT (””& byt ut (rs (”xoae1_grade”),””,”” '' ”) &” ”,” DELETED')) ”,
response.write sSQL1
objConn.execute (sSQL1)
sSQL2 = ”BORTTAGNINGS FRÅN tbl_oae_1 VAR oae1_id = ”” & xoae1_id & ”” ”,
response.write sSQL2
objConn.execute (sSQL2)
avsluta om
Om err.number=0 därefter
response.write ”datan togs bort lyckat.”,
Avsluta om
objConn.Close
Fastställd objConn = ingenting
|