Imports System
Imports com.neokernel.nk
Public Class SimplePage
Inherits RequestAgent
Public Overrides Sub initProps()
setDefault("service_name", "/simple.agent")
setDefault("title", "SimplePage")
setDefault("body", "This is output from the SimplePage agent.")
End Sub
Public Overrides Sub handleRequest(ByVal request As AgentRequest)
Dim title As System.String = getString("title")
Dim body As System.String = getString("body")
request.println("<HTML>\n<HEAD>");
request.println("<TITLE>" + title + "</TITLE>");
request.println("</HEAD>\n<BODY>");
request.println("<H1>" + title + "</H1>");
request.println("<P>" + body + "</P>");
request.println("</BODY>\n</HTML>");
End Sub
End Class