diff --git a/comp/src/gb.web/.src/WebPage.class b/comp/src/gb.web/.src/WebPage.class index 8e2657aa5..e4bb5f34b 100644 --- a/comp/src/gb.web/.src/WebPage.class +++ b/comp/src/gb.web/.src/WebPage.class @@ -14,6 +14,13 @@ Private $bBuffered As Boolean Static Public Sub Main() Dim hObject As WebPage + Dim sPath As String + + sPath = Mid$(Request.Path, 2) + If sPath And If Exist("../.public/" &/ sPath) Then + Response.SendFile("../.public/" &/ sPath) + Return + Endif Try hObject = Application.Startup.AutoCreate() If Not hObject Then Return