/ Published in: VB.NET
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
Public Class ERROR_LOGGING Public Shared Sub writeError(ByVal sPathName As String, ByVal sErrMsg As String) Dim LogFormat As String = DateTime.Now.ToShortDateString & " " & DateTime.Now.ToLongTimeString & " ==> " Dim year As String = DateTime.Now.Year.ToString Dim month As String = DateTime.Now.Month.ToString Dim day As String = DateTime.Now.Day.ToString Dim ErrorTime As String = month + "_" + day + "_" + year Dim fileName As String = sPathName + ErrorTime + ".log" 'Server.MapPath("TestMsg.txt") IO.File.AppendAllText(fileName, LogFormat + sErrMsg + ControlChars.NewLine + ControlChars.NewLine) End Sub End Class ' Example on its usage I use it in the global.asx file Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs) ' Code that runs when an unhandled error occurs Try ERROR_LOGGING.writeError(Server.MapPath("~/Logs/ErrorLog/"), Server.GetLastError.Message + Server.GetLastError.InnerException.ToString) Response.Redirect("~/security/index.aspx") Catch ex As Exception End Try End Sub