xoae1_id = заменяют ть (Request.Form («MM_recordId»),» '«,» '' ")
sConnString = MM_conn_STRING
Установите objConn = Server.CreateObject («ADODB.Connection»)
objConn.Open (sConnString)
sSQL = «(ОТБОРНЫЙ username КАК xusername, patient_id_oae1 КАК xpatient_id_oae1, specify1 КАК xspecify1, oae1_grade КАК xoae1_grade ОТ tbl_oae_1 ГДЕ oae1_id = «» & xoae1_id & «» «
sSQL response.write
Установите rs=objConn.execute (sSQL)
если не rs.eof после этого
sSQL1 = «ВСТАВКА В ЗНАЧЕНИЯ tbl_oae_1_log (username, patient_id_oae1, specify1, oae1_grade) (CONCAT («» & замените (rs («xusername»),»» «,» '' ") &» «,» DELETED'), CONCAT (««& замените (rs («xpatient_id_oae1»),»» «,» '' ") &» «,» DELETED'), CONCAT (««& замените (rs («xspecify1»),»» «,» '' ") &» «,» DELETED'), CONCAT (««& замените (rs («xoae1_grade»),»» «,»'' ") &» «,» DELETED')) «
response.write sSQL1
objConn.execute (sSQL1)
sSQL2 = «DELETE ОТ tbl_oae_1 ГДЕ oae1_id = «» & xoae1_id & «» «
response.write sSQL2
objConn.execute (sSQL2)
закончитесь если
Если err.number=0 после этого
response.write «данные было уничтожено успешно.»
Закончитесь если
objConn.Close
Установите objConn = ничего
|