xoae1_id = sostituiscono (Request.Form (“MM_recordId„),„ '“,„ '' ")
sConnString = MM_conn_STRING
Regolare il objConn = Server.CreateObject (“ADODB.Connection„)
objConn.Open (sConnString)
sSQL = “(username PRESCELTO COME xusername, patient_id_oae1 COME xpatient_id_oae1, specify1 COME xspecify1, oae1_grade COME xoae1_grade da tbl_oae_1 DOVE oae1_id = “„ & xoae1_id & “„ “
sSQL di response.write
Regolare rs=objConn.execute (sSQL)
se non rs.eof allora
sSQL1 = “INSERTO NEI VALORI di tbl_oae_1_log (username, patient_id_oae1, specify1, oae1_grade) (CONCAT (“„ & sostituire (rs (“xusername„),„„ “,„ '' ") &„ “,„ nel DELETED'), IN CONCAT (““& sostituire (rs (“xpatient_id_oae1„),„„ “,„ '' ") &„ “,„ in DELETED'), CONCAT (““& sostituire (rs (“xspecify1„),„„ “,„ '' ") &„ “,„ DELETED'), CONCAT (““& sostituire (rs (“xoae1_grade„),„„ “,„'' ") &„ “,„ DELETED')) “
response.write sSQL1
objConn.execute (sSQL1)
sSQL2 = “CANCELLAZIONE da tbl_oae_1 DOVE oae1_id = “„ & xoae1_id & “„ “
response.write sSQL2
objConn.execute (sSQL2)
concluder se
Se err.number=0 allora
response.write “i dati è stato cancellato con successo.„
Concluder se
objConn.Close
Regolare il objConn = niente
|