Source
エラー発生源取得
文法
Errorオブジェクト.Source
機能説明
エラー発生元のオブジェクト名・アプリケーション名を取得
使用例
<%
'エラー発生時次行から処理続行
On Error Resume Next
Dim objConn, objRS, objErr
'データベース接続
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "test"
'エラー発生
Set objRS = Server.CreateObject("ADODB,Recordset")
objRS.Open "test1"
If objConn.Errors.Count > 0 then
Set objErr = Server.CreateObject("ADODB.Error")
For Each objErr In objConn.Errors
'エラー内容表示
Response.Write "エラー元 : " & objErr.Source & "
"
Next
Else
Response.Write "正常終了"
End If
'オブジェクト開放
objConn.Close
Set objErr = Nothing
Set objConn = Nothing
%>
Topへ