Captura de error en ASP

[a n g e l u s]

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