xoae1_id = substituem (Request.Form (“MM_recordId”),” '“,” '' ")
sConnString = MM_conn_STRING
Ajustar o objConn = o Server.CreateObject (“ADODB.Connection”)
objConn.Open (sConnString)
sSQL = “(username SELETO COMO o xusername, patient_id_oae1 COMO xpatient_id_oae1, specify1 COMO xspecify1, oae1_grade COMO xoae1_grade de tbl_oae_1 ONDE oae1_id = “” & xoae1_id & “” “
sSQL de response.write
Ajustar rs=objConn.execute (o sSQL)
se não rs.eof então
sSQL1 = “INSERÇÃO NOS VALORES de tbl_oae_1_log (username, patient_id_oae1, specify1, oae1_grade) (CONCAT (“” & substituir (rs (“xusername”),”” “,” '' ") &” “, no” DELETED'), NO CONCAT (““& substituir (rs (“xpatient_id_oae1”),”” “,” '' ") &” “, no” DELETED'), CONCAT (““& substituir (rs (“xspecify1”),”” “,” '' ") &” “,” DELETED'), CONCAT (““& substituir (rs (“xoae1_grade”),”” “,”'' ") &” “,” DELETED')) “
response.write sSQL1
objConn.execute (sSQL1)
sSQL2 = “SUPRESSÃO de tbl_oae_1 ONDE oae1_id = “” & xoae1_id & “” “
response.write sSQL2
objConn.execute (sSQL2)
terminar se
Se err.number=0 então
response.write “os dados foi suprimido com sucesso.”
Terminar se
objConn.Close
Ajustar o objConn = nada
|