<%
Private Sub SqlExec(ByVal ConnString, ByVal SQL)
    Dim objCn, bErr1, bErr2, strErrDesc
    On Error Resume Next
    Set objCn = Server.CreateObject("ADODB.Connection")
    objCn.Open ConnString
    If Err Then 
        bErr1 = True
    Else
        objCn.Execute SQL
        If Err Then 
            bErr2 = True
            strErrDesc = Err.description
        End If
    End If
    objCn.Close
    Set objCn = Nothing
    On Error GoTo 0
    If bErr1 Then
        Err.Raise 5109, "SqlExec Statement", "Bad connection " & _
                "string. Database cannot be accessed."
    ElseIf bErr2 Then
        Err.Raise 5109, "SqlExec Statement", strErrDesc
    End If
End Sub
%>