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