Foros del Web » Programando para Internet » ASP Clásico »

Captura de error en ASP

Estas en el tema de Captura de error en ASP en el foro de ASP Clásico en Foros del Web. Hola a todos/as, Estoy modificando una página Web en ASP, y me gustaría capturar los errores VBScript que se producen en la página y enviar ...
  #1 (permalink)  
Antiguo 16/01/2006, 12:03
 
Fecha de Ingreso: enero-2006
Mensajes: 1
Antigüedad: 19 años, 3 meses
Puntos: 0
Pregunta Captura de error en ASP

Hola a todos/as,

Estoy modificando una página Web en ASP, y me gustaría capturar los errores VBScript que se producen en la página y enviar un correo a webmaster con la información que la ha producido. Para que no salga el pantallazo de error predeterminado del IIS.

Una de las opciones que puedo utilizar es la de configurar el IIS (errores personalizados) y que todos redirijan a una página intermedia que recopile el error y redirija a un aviso.

Pero me parecería más interesante que se pudiera hacer como en ASP .NET, en una función de error en el global.asax así no necesitaría configurar el IIS, cada vez que cambiara mi página de servidor. O tenerlo presente siempre...

¿Alguien conoce otra posibilidad de captura y aviso de errores en ASP sin ser necesaria la configuración del IIS?

Muchas Gracias y saludos.
  #2 (permalink)  
Antiguo 16/01/2006, 15:03
 
Fecha de Ingreso: noviembre-2004
Mensajes: 371
Antigüedad: 20 años, 6 meses
Puntos: 0
este es un pequeño ejemplo de como evitar los pantallasos manejando errores que se presenten en la pagina. investiga sobre On Error Resume Next, es muy simple.

if rs_prg2("id_pregunta") = cint(varPregAct) then
On Error Resume Next
rs_prg2.MovePrevious
If Err = 0 Then
varPregAnt = rs_prg2("id_pregunta")
End If
end if
  #3 (permalink)  
Antiguo 16/01/2006, 17:23
Avatar de a n g e l u s  
Fecha de Ingreso: enero-2006
Ubicación: Chile
Mensajes: 237
Antigüedad: 19 años, 3 meses
Puntos: 1
CON ESTO PUEDES CREAR UN LOG, Y TE DA LAS BASES PARA ENVIAR POR CORREO SI QUIERES AGREGANDOLE LA OPCION DE ENVIO (EN EL FORO VI UNA REGUENA BUSCALA)

ESTA CONSULTA TE VA A DAR UN ERROR:

sql = "select * from tabla where"
on error resume next
set rs = db.execute(sql)

if err <> 0 then
dim elerror
elerror = err.description
manejoerrores(sql,elerror)
response.write elerror
response.end
else
ejecucion del codigo
end if

function manejoerrores(sql,elerror)

'creamos el textstream del archivo
archivo = request.serverVariables("APPL_PHYSICAL_PATH") & "log\log.txt"

set confile = createObject("scripting.filesystemobject")
set fich = confile.CreateTextFile(archivo)

'escribo en el archivo
fich.WriteLine(now())
fich.WriteLine("SQL"&chr(9)&": "&sql)
fich.WriteLine("ERROR"&chr(9)&": "&elerror)
fich.WriteLine("--------------------------------------------------------")

'cerramos el fichero
fich.close()
end function
__________________
Atte,
A n g e l u s
Concepción - Chile
más vale respuestas bien pensadas, que 7000 post
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 07:56.