<%
Dim
objErrorInfo
Set
objErrorInfo = Server.GetLastError
Response.Write(
"ASPCode = "
& objErrorInfo.ASPCode)
"ASPDescription = "
& objErrorInfo.ASPDescription)
"Category = "
& objErrorInfo.Category)
"Column = "
& objErrorInfo.Column)
"Description = "
& objErrorInfo.Description)
"File = "
& objErrorInfo.File)
"Line = "
& objErrorInfo.Line)
"Number = "
& objErrorInfo.Number)
"Source = "
& objErrorInfo.Source)
%>