Sub Handle(req As ServletRequest, resp As ServletResponse)
mreq = req
mresp = resp
Dim sessionid As String = req.GetSession.Id
' Log("Request Session ID: " & sessionid)
Log("Request URI:" & req.RequestURI)
' Log("Request FullRequestURI: " & req.FullRequestURI)
' Log("Request ContentType: " & req.ContentType)
Dim s As String = req.RequestURI
If s.Contains(".html") Then
Dim htm As String = buildpage.BuildCurrentPage(req.RequestURI)
If htm <> Null Then resp.Write(s)
' Else
' resp. .Write(s)
End If
End Sub