Class App Inherits WebApplication

EventHandler Function HandleURL(request As WebRequest, response As WebResponse) As Boolean #Pragma BackgroundTasks False If Request.Path = "Status" Then Dim j As New JSONItem Dim a As app = app j.Value("MemoryUsed") = runtime.MemoryUsed j.Value("ObjectCount") = runtime.ObjectCount j.Value("SessionCount") = a.SessionCount j.Value("Name") = a.ExecutableFile.Name Response.write j.ToString Response.Status = 200 Return True End If End EventHandler

End Class

Class Session Inherits WebSession

Const ErrorDialogCancel = "Do Not Send"

Const ErrorDialogMessage = "This application has encountered an error and cannot continue."

Const ErrorDialogQuestion = "Please describe what you were doing right before the error occurred:"

Const ErrorDialogSubmit = "Send"

Const ErrorThankYou = "Thank You"

Const ErrorThankYouMessage = "Your feedback helps us make improvements."

Const NoJavascriptInstructions = "To turn Javascript on, please refer to your browser settings window."

Const NoJavascriptMessage = "Javascript must be enabled to access this page."

End Class

Class WebPage1 Inherits WebPage

End Class

Sign

End Sign