Fange og udskrive alle fejl
Hej EksperterEr det muligt at fange og udskrive alle fejl eller første fejl med VBScript i ASP?
Man kan selvfølgelig gøre det som nedensående, men så skal jeg lave et funktionskald for hver gang, der muligvis kan komme en fejl og det syndes jeg ikke er særlig køn kode.
function errorHandler(e)
If e.Number <> 0 Then
set fso = CreateObject("scripting.filesystemobject")
set file = fso.OpenTextFile("c:\mappointError.txt", 8, True)
file.Writeline "Date: " & Now & ", Error: " & e.Number & ": " & e.Description
file.Close
e.Clear
End If
End function
On Error Resume Next
dim N
Err.Numberd= 0
errorHandler(err)
N = 1/0
errorHandler(err)
Response.Write "DONE"
On Error GoTo 0
