Think Outside The Box

<%@ TRANSACTION=Required%> '꼭 맨앞에..위치
<%
Option Explicit
        On Error Resume Next
Dim oConn, oRS

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=SQLOleDB;server=servername;Initial Catalog=pubs;uid=<username>;pwd=<strong password>"
if err.Number <> 0 Then
    Response.Write "<BR>Error Occurred Opening Connection...<BR>"
    Response.Write "<BR>Error Description: " & err.Description & "...<BR>"
            ObjectContext.SetAbort
    Response.End
else
    Response.Write "Connection Opened Successfully...<BR>"
    ObjectContext.SetComplete
End If


   oConn.Execute "Select * from Authors"
if err.Number <> 0 Then
    Response.Write "<BR>Error Occurred Executing Query...<BR>"
    Response.Write "<BR>Error Description: " & err.Description & "...<BR>"
    oConn.Close
    Set oConn = Nothing
            ObjectContext.SetAbort
            Response.End
else
    Response.Write "<BR>Query Completed Successfully...<BR>"
    ObjectContext.SetComplete
End If

oConn.Close
Response.Write "<BR>Connection Closed Successfully...<BR>"
set oConn = Nothing
Response.Write "<BR>Test Completed Successfully...<BR>"

    Sub OnTransactionCommit() '처리가 성공됐을 경우 이벤트 발생
        Response.Write "<p><b>The Transaction just committed</b>."
Response.Write "This message came from the "
        Response.Write "OnTransactionCommit() event handler."
    End Sub

    Sub OnTransactionAbort() '오류가 생길경우..이 이벤트가 발생..
         Response.Write "<p><b>The Transaction just aborted</b>."
        Response.Write "This message came from the "
        Response.Write "OnTransactionAbort() event handler."
    End Sub

%>