Как в хранимой процедуре получить текст ошибки? - Базы данных - Ответ 2551689

'---------------------------------------
Dim DBConn,DBCmd
On Error Resume Next
Set DBConn = Server.CreateObject("ADODB.Connection")
ADODB_connection.Open "Provider=SQLOLEDB;Data Source=NT_SERVER;Initial Catalog=eshop_dya;User Id=sa;Password=;"
Set DBcmd = Server.CreateObject("ADODB.Command")
DBCmd.CommandText="procTest"
DBCmd.CommandType=adCmdStoredProc
'----------------------------------------------
' Здесь в хранимую процедуру procTest передаются
' такие параметры: 
' clieID - код записи
' clieCCMonth - месяц (указываю 99!)
' clieCCYear - 0
'----------------------------------------------
DBCmd.Parameters.Append DBCmd.CreateParameter("clieID",adInteger,adParamInput,4,1)
DBCmd.Parameters.Append DBCmd.CreateParameter("clieCCMonth",adInteger,adParamInput,4,99)
DBCmd.Parameters.Append DBCmd.CreateParameter("clieCCYear",adInteger,adParamInput,4,0)
DBcmd.ActiveConnection=DBcon      
DBcmd.Execute
If DBconn.Errors.Count<>0 Then
   For i=0 to (DBconn.Errors.Count-1)
       Response.Write(DBconn.Errors(i).description)
       Response.Write("")
   Next 
End If