<% On Error Resume Next Dim dbCon, SQL, Rs, msg, isError Set dbCon = Server.CreateObject("ADODB.Connection") if (not ConnectDB(dbCon, msg)) then  printError msg  response.wirte "DB 연결 실패" end if </P> <P>dbcon.BeginTrans</P> <P> SQL = " 쿼리 1 " dbCon.Execute sql, 0 if dbCon.Errors.Count > 0 then  ErrorProc "A 테이블 삽입/수정 오류" Else  isError = "F" End If ' 에러 메시지 출력 Sub errorProc(msg)     dbCon.RollbackTrans  dbCon.close  set dbcon = nothing    isError = "T"    strHtml =  " 처리도중 오류가 발생하였습니다. " end Sub If isError <> "T" Then End If %>