Deng-i.net

[code]
<%
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

dbcon.BeginTrans

 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
%>
[/code]