Control de errores

[Ayoze2006]

Tengo que añadir una gestion de errores a una intranet. He hecho una prueba y no me funciona por lo que el problema está en mi código. La prueba es la siguiente

DIM XERROR,N1,N2
On error Resume Next
if err.number<>0 then muestraerror()
N1=10
N2=0
RESPONSE.Write("valor=" & n1/n2)

function muestraerror()
response.Write("Error : " & err.number & "-" & err.DESCRIPTION)
end function

Me debería dar un error e imprimirmelo en la rutina muestraerror pero no lo hace. (siempre err.number es 0). El caso es que si quito el control de errores si me aparece el error. "Division por cero"

¿ Donde está el problerma?

Gracias

[Adler]

Prueba así

On error Resume Next

DIM N1,N2
N1=10
N2=0
RESPONSE.Write("valor=" & n1/n2)

if err.number<>0 then muestraerror()

function muestraerror()
response.Write("Error : " & err.number & "-" & err.DESCRIPTION)
end function

Primero ha de producirse el error

Suerte

[JuanRAPerez]

ummmm

sabes en la seccion de FAQ o en la de funciones hay una que te detalla un monton de cosas es sobre gestion de errores

buscala

suerte

[Ayoze2006]

Muchas gracias por la ayuda, gracias a ella he solucionado el problema