Hur hanterar man eventuella fel på bästa sätt?
Jag försöker att använda On Error Resume Next och sedan fånga upp felen och skicka ett mail till mig själv med felinformation som jag trodde jag skulle få med Server.GetlastError(). Det verkar dock som aspError-objektet ät tomt. Är jag helt fel ute eller?
Här är lite kod:
<%
If Err.Number <> 0 Then
'Call the GetLastError() method to trap the error
dim objerr
set objerr = Server.GetLastError()
'The variable objerr now contains the ASPError object
strBody = "ASP Code = " & objerr.ASPCode
strBody = strBody & vbcrlf & vbcrlf
strBody = strBody & "Number = " & objerr.Number
strBody = strBody & vbcrlf & vbcrlf
strBody = strBody & "Source = " & objerr.Source
strBody = strBody & vbcrlf & vbcrlf
strBody = strBody & "Filename = " & objerr.File
strBody = strBody & vbcrlf & vbcrlf
strBody = strBody & "LineNumber = " & objerr.Line
Set objEmail = Server.CreateObject("Dundas.Mailer")
'add specified To field to collection, if user did not enter a value redirect to the error page
objEmail.TOs.Add "jag@telia.com"
'set FromAddress property
objEmail.FromName = "Avsändare"
objEmail.FromAddress = "a.a.se"
'set the Subject property
objEmail.Subject = "Felmeddelande"
'set the message body
objEmail.Body = strBody
'now send the email
objEmail.SendMail
Set objEmail = Nothing
Err.Clear
Response.Redirect("error.asp?msg=" & Server.URLEncode("Ett oväntat fel har inträffat. Felet är rapporterat till administratören"))
End If
%>
Mailet jag får ser ut så här:
ASP Code =
Number = 0
Source =
Filename =
LineNumber = 0
Tacksam för hjälp