DB 트랜잭션 처리

DB.Errors.clear
DB.BeginTrans '트랜잭션 시작
DB.Execute (SQL) 'Execute
 
if DB.Errors.count>0 Then
   DB.RollbackTrans '에러가 발생한다면 트랜잭션 롤백시킨다.
   Set objError = Server.CreateObject("ADODB.Error")
   for each objError in DB.Errors
        Msg (objerror.Description)  '에러문 출력
   Next
   objError.close
   Set objError=Nothing
Else
   DB.CommitTrans '에러없이 진행한다면 트랜잭션 Commit 시킨다.
End if

[출처] [본문스크랩] [ASP] DB 트랜잭션 처리|작성자 디벨로퍼