<% ' Auto-generated Controller: Categories ' Generated on 5/2/2026 9:47:37 PM ' Generator: generateController.vbs v1.0 ' ' Remember to: ' 1. Add to app/controllers/autoload_controllers.asp ' 2. Register in core/lib.ControllerRegistry.asp ' 3. Add routes in public/Default.asp Class CategoriesController_Class Private m_useLayout Private m_title Private Sub Class_Initialize() m_useLayout = True m_title = "Categories" End Sub Public Property Get useLayout useLayout = m_useLayout End Property Public Property Let useLayout(v) m_useLayout = v End Property Public Property Get Title Title = m_title End Property Public Property Let Title(v) m_title = v End Property '--------------------------------------------------------------- ' Action: Index '--------------------------------------------------------------- Public Sub Index() ' TODO: Implement Index action Response.Write "Index action called" End Sub '--------------------------------------------------------------- ' Action: Show '--------------------------------------------------------------- Public Sub Show(id) ' TODO: Implement Show action Response.Write "Show called
" Response.Write "Parameters:
" Response.Write "id = " & Server.HTMLEncode(CStr(id)) & "
" End Sub '--------------------------------------------------------------- ' Action: New '--------------------------------------------------------------- Public Sub New() ' TODO: Implement New action Response.Write "New action called" End Sub '--------------------------------------------------------------- ' Action: Create '--------------------------------------------------------------- Public Sub Create() ' TODO: Implement Create action Response.Write "Create action called" End Sub '--------------------------------------------------------------- ' Action: Edit '--------------------------------------------------------------- Public Sub Edit(id) ' TODO: Implement Edit action Response.Write "Edit called
" Response.Write "Parameters:
" Response.Write "id = " & Server.HTMLEncode(CStr(id)) & "
" End Sub '--------------------------------------------------------------- ' Action: Update '--------------------------------------------------------------- Public Sub Update(id) ' TODO: Implement Update action Response.Write "Update called
" Response.Write "Parameters:
" Response.Write "id = " & Server.HTMLEncode(CStr(id)) & "
" End Sub '--------------------------------------------------------------- ' Action: Delete '--------------------------------------------------------------- Public Sub Delete(id) ' TODO: Implement Delete action Response.Write "Delete called
" Response.Write "Parameters:
" Response.Write "id = " & Server.HTMLEncode(CStr(id)) & "
" End Sub End Class ' Singleton instance Dim CategoriesController_Class__Singleton Function CategoriesController() If IsEmpty(CategoriesController_Class__Singleton) Then Set CategoriesController_Class__Singleton = New CategoriesController_Class End If Set CategoriesController = CategoriesController_Class__Singleton End Function %>