ASP Error Check

Set objError = Server.GetLastError

Dim ASPError_Number
Dim ASPError_Source
Dim ASPError_Category
Dim ASPError_File
Dim ASPError_Line
Dim ASPError_Column
Dim ASPError_Description
Dim sErrMsg, sQuery

ASPError_Number = Hex(objError.Number)
ASPError_Source = Server.HTMLEncode(objError.Source)
ASPError_Category = objError.Category
ASPError_File = objError.File
ASPError_Line = objError.Line
ASPError_Column = objError.Column
ASPError_Description = objError.Description

 

 

On Error Resume Next
Call Object

If Err.Number <> 0 Then
 Response.Write "오류내용 : " & err.Description
 Response.End
End if

출처 : Tong - 공원님의 ┣ ★ 먹고사는일(Web)통