Errors Errors Errors

-
We would always prefer to avoid all errors but if one happens we certainly want to know about it. Adding an error handler to the Global.asax file is slick - easy and works beautifully..... here is what you need:


Sub

Application_Error(ByVal sender As Object, ByVal e As EventArgs)

Try

Dim strFrom As String = System.Configuration.ConfigurationManager.AppSettings("EmailFrom")

Dim strTo As String = System.Configuration.ConfigurationManager.AppSettings("EmailTo") Dim msg As System.Net.Mail.MailMessage
Dim smtp As New System.Net.Mail.SmtpClient("mail.yourmailserver.com")

msg = New System.Net.Mail.MailMessage(strFrom, strTo, "Page Error My Application Name", BuildMessage())

msg.IsBodyHtml = True
smtp.Credentials = New System.Net.NetworkCredential("Username", "password", "mail.myserver.com")

smtp.Send(msg)

Catch

ex As Exception
EndTry
End Sub

The buildMessage Function in the global.asax file would look something like this:

Function BuildMessage() As String

Dim strMessage As New StringBuilder
strMessage.Append("<style type=""text/css"">")
strMessage.Append("<!--")
strMessage.Append(".basix {")
strMessage.Append("font-family: Verdana, Arial, Helvetica, sans-serif;")
strMessage.Append("font-size: 12px;")
strMessage.Append("}")
strMessage.Append(".header1 {")
strMessage.Append("font-family: Verdana, Arial, Helvetica, sans-serif;")
strMessage.Append("font-size: 12px;")
strMessage.Append("font-weight: bold;")
strMessage.Append("color: #000099;")
strMessage.Append("}")
strMessage.Append(".tlbbkground1 {")
strMessage.Append("background-color: #000099;")
strMessage.Append("}")
strMessage.Append("-->")
strMessage.Append("</style>")
strMessage.Append("<table width=""85%"" border=""0"" align=""center"" cellpadding=""5"" cellspacing=""1"" class=""tlbbkground1"">")
strMessage.Append("<tr bgcolor=""#eeeeee"">")
strMessage.Append("<td colspan=""2"" class=""header1"">Page Error</td>") strMessage.Append("</tr>")
strMessage.Append("<tr>")
strMessage.Append("<td width=""100"" align=""right"" bgcolor=""#eeeeee"" class=""header1"" nowrap>User</td>")
strMessage.Append("<td bgcolor=""#FFFFFF"" class=""basix"">" & Request.ServerVariables("REMOTE_USER") & "</td>")
strMessage.Append("</tr>")
strMessage.Append("<tr>")
strMessage.Append("<td width=""100"" align=""right"" bgcolor=""#eeeeee"" class=""header1"" nowrap>IP Address</td>")
strMessage.Append("<td bgcolor=""#FFFFFF"" class=""basix"">" & Request.ServerVariables("REMOTE_ADDR") & "</td>")
strMessage.Append("</tr>")
strMessage.Append("<tr>")
strMessage.Append("<td width=""100"" align=""right"" bgcolor=""#eeeeee"" class=""header1"" nowrap>User Agent</td>")
strMessage.Append("<td bgcolor=""#FFFFFF"" class=""basix"">" & Request.ServerVariables("HTTP_USER_AGENT") & "</td>")
strMessage.Append("</tr>")
strMessage.Append("<tr>")
strMessage.Append("<td width=""100"" align=""right"" bgcolor=""#eeeeee"" class=""header1"" nowrap>Page</td>")
strMessage.Append("<td bgcolor=""#FFFFFF"" class=""basix"">" & Request.Url.AbsoluteUri & "</td>")
strMessage.Append("</tr>")
strMessage.Append("<tr>")
strMessage.Append("<td width=""100"" align=""right"" bgcolor=""#eeeeee"" class=""header1"" nowrap>Time</td>")
strMessage.Append("<td bgcolor=""#FFFFFF"" class=""basix"">" & System.DateTime.Now & " EST</td>")
strMessage.Append("</tr>")
strMessage.Append("<tr>")
strMessage.Append("<td width=""100"" align=""right"" bgcolor=""#eeeeee"" class=""header1"" nowrap>Details</td>")
strMessage.Append("<td bgcolor=""#FFFFFF"" class=""basix"">" & Server.GetLastError().ToString & "</td>")
strMessage.Append("</tr>")
strMessage.Append("</table>")

Return

strMessage.ToString

End Function


Comments

Post a Comment

Popular posts from this blog

Grouping with Data Entities

-
I am really loving the data entity in my new projects but have come across a couple of issues already. Tonight I learned about using a field that is not a part of your database and not in the entity but is a consolidation field from a group.  Once I found some good samples it worked incredibly well and I had a little summary grid on the page in just a couple of minutes.  So here is what I did  using (myEntityName context = new myEntityName())     { //First I declared a couple of variables because I was looking at data between specific dates          DateTime startdate = DateTime.Parse("2014-02-01");             DateTime enddate = DateTime.Parse("2014-02-01");          var dbRecords = (from c in context.myTableName                           where (c.MemberStartDate >= startdate && c.MemberStart...
Read more

Linq - Data Entities - Records by Max Date with CASE

-
Image
 I needed to get essentially a summary by case statement for a given date.  As you can see I have defined the MAX date into a variable.  This example also shows using a substring of the first character in a LET statement  DateTime? maxDate =                 (from a in context.tbl_tslog                 orderby a.CurrentTime                 select (DateTime?) a.CurrentTime ).Max(); var dbRecords = (from c in context.tbl_testlog                            where (c.CurrentTime >=maxDate)                                         let range = (  c.Usr.ToUpper().Substring(0,1) == "B" ? "US" :                     ...
Read more

Linq Remove from list based on other table

-
One way to do it when you have two lists (repYearlyData and otherdata)       foreach (var yd in repYearlyData)             {                 for(int d=0;d<otherdata.Count;d++)                 {                     if (yd.AssignedRep == otherdata[d].AssignedRep)                     {                         otherdata.RemoveAt(d);                     }                 }             } var result = peopleList2 . Where ( p => ! peopleList1 . Any ( p2 => p2 . ID == p . ID ));         public List<TeamAverages> GetRepMonthlyAverages() ...
Read more