descricao de erros

Boas pessoal, estou a tentar fazer um script de erro que me identifique os erros e envie por email e escreva num txt.

Isto funciona bem com excepcao da identificação dos erros. Alguem sabe porque?

<%On Error Resume Next

a=1/0 '---> ERRO!!!

if Err<>0 then
call checaerro
end if

sub checaerro

dim objErr,msgerros,strCode
set objErr=Server.GetLastError

Thispage = "http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL")&"?"&Request.Querystring&Request.Form

strRemoteAddr = Request.ServerVariables("REMOTE_ADDR")
strRemoteHost = Request.ServerVariables("REMOTE_HOST")
strLocalAddr = Request.ServerVariables("LOCAL_ADDR")
strbrowser = Server.HTMLEncode(Request.ServerVariables("HTTP_USER_AGENT"))

msgerros=" ASPCode= " & objErr.ASPCode&"<br>"
msgerros=msgerros+" ASPDescription= " & objErr.ASPDescription&"<br>"
msgerros=msgerros+" Category= " & objErr.Category&"<br>"
msgerros=msgerros+" Column= " & objErr.Column&"<br>"
msgerros=msgerros+" Description= " & Err.Description&"<br>"
msgerros=msgerros+" File= " & objErr.File&"<br>"
msgerros=msgerros+" Line= " & objErr.line&"<br>"
msgerros=msgerros+" Browser= "&strbrowser&"<br>"
msgerros=msgerros+" Number= " & Err.Number&"<br>"
msgerros=msgerros+" Remote Address= " & strRemoteAddr&"<br>"
msgerros=msgerros+" Remote Host= " & strRemoteHost&"<br>"
msgerros=msgerros+" Local Address= " & strLocalAddr&"<br><br><br><br><br>"

session("msgerros")="<br>URL: "&Thispage&"<br><br>"&msgerros

response.write session("msgerros")

end sub