Handy ASP.NET Routines
Trace Output
Sub Trace(ByVal errorString As String, Optional ByVal x As String = "title not set")
System.Web.HttpContext.Current.Trace.Write(x)
System.Web.HttpContext.Current.Trace.Write(errorString)
End Sub
Quickly Access Page Elements from Codebehind
Function PG() As HttpContext
'Ex:
'PG.Response.Redirect("...")
Return System.Web.HttpContext.Current
End Function
Quickly Access Application Settings
Function AP(ByVal x As String) As String
'Ex:
'MailMessage.To.Add(New MailAddress(AP("SupportAddress")))
Return System.Configuration.ConfigurationManager.AppSettings(x)
End Function