Class App Inherits WebApplication

EventHandler Function HandleURL(Request As WebRequest, Response As WebResponse) As Boolean Dim r As String = Request.Body Dim msg As String = "Received request with "+Str(Len(r))+" bytes attached." Dim c As Integer = SessionCount-1 For i As Integer = 0 To c Dim s As session = session(app.SessionAt(i)) s.WebPage1.ListBox1.AddRow msg Next Response.Status = 200 Return True 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