<% 'Include Common Files @1-D6EDE132 %> <% 'End Include Common Files 'Initialize Page @1-204D1D2D ' Variables Dim PathToRoot, ScriptPath Dim FileName Dim Redirect Dim Tpl, HTMLTemplate Dim TemplateFileName Dim ComponentName Dim PathToCurrentPage ' Events Dim CCSEvents Dim CCSEventResult ' Connections Dim DBConnection1 ' Page controls Dim a_top Dim cat01 Dim products Dim a_cat_list Dim a_down Redirect = "" TemplateFileName = "a_product.html" Set CCSEvents = CreateObject("Scripting.Dictionary") PathToCurrentPage = "./" FileName = "a_product.asp" PathToRoot = "./" ScriptPath = Left(Request.ServerVariables("PATH_TRANSLATED"), Len(Request.ServerVariables("PATH_TRANSLATED")) - Len(FileName)) 'End Initialize Page 'Initialize Objects @1-3DB608A7 Set DBConnection1 = New clsDBConnection1 DBConnection1.Open ' Controls Set a_top = New clsa_top a_top.BindEvents a_top.Initialize Set cat01 = New clsGridcat01 Set products = New clsGridproducts Set a_cat_list = New clsa_cat_list a_cat_list.BindEvents a_cat_list.Initialize Set a_down = New clsa_down a_down.BindEvents a_down.Initialize cat01.Initialize DBConnection1 products.Initialize DBConnection1 CCSEventResult = CCRaiseEvent(CCSEvents, "AfterInitialize", Nothing) 'End Initialize Objects 'Execute Components @1-F5BB00AE a_top.Operations a_cat_list.Operations a_down.Operations 'End Execute Components 'Go to destination page @1-6D35F4FD If NOT ( Redirect = "" ) Then UnloadPage Response.Redirect Redirect End If 'End Go to destination page 'Initialize HTML Template @1-0155E1BE CCSEventResult = CCRaiseEvent(CCSEvents, "OnInitializeView", Nothing) Set HTMLTemplate = new clsTemplate Set HTMLTemplate.Cache = TemplatesRepository HTMLTemplate.LoadTemplate ScriptPath & TemplateFileName Set Tpl = HTMLTemplate.Block("main") CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Nothing) 'End Initialize HTML Template 'Show Page @1-76BA2669 a_top.Show Tpl, "a_top" cat01.Show Tpl products.Show Tpl a_cat_list.Show Tpl, "a_cat_list" a_down.Show Tpl, "a_down" HTMLTemplate.PParse "main", False 'End Show Page 'Unload Page @1-CB210C62 UnloadPage Set Tpl = Nothing Set HTMLTemplate = Nothing 'End Unload Page 'UnloadPage Sub @1-7F91E507 Sub UnloadPage() CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeUnload", Nothing) If DBConnection1.State = adStateOpen Then _ DBConnection1.Close Set DBConnection1 = Nothing Set a_top = Nothing Set cat01 = Nothing Set products = Nothing Set a_cat_list = Nothing Set a_down = Nothing End Sub 'End UnloadPage Sub Class clsGridcat01 'cat01 Class @29-727CDA26 'cat01 Variables @29-C212CD56 ' Private variables Private VarPageSize ' Public variables Public ComponentName, CCSEvents Public Visible, Errors Public DataSource Public PageNumber Public Command Public TemplateBlock Public Recordset Private CCSEventResult ' Grid Controls Public StaticControls, RowControls Dim cat_a 'End cat01 Variables 'cat01 Class_Initialize Event @29-889CD517 Private Sub Class_Initialize() ComponentName = "cat01" Visible = True Set CCSEvents = CreateObject("Scripting.Dictionary") Set Errors = New clsErrors Set DataSource = New clscat01DataSource Set Command = New clsCommand PageSize = CCGetParam(ComponentName & "PageSize", Empty) If IsNumeric(PageSize) And Len(PageSize) > 0 Then If PageSize <= 0 Then Errors.AddError(CCSRunTimeMessages.GetMessage("GridPageSizeError", Empty)) If PageSize > 100 Then PageSize = 100 End If If NOT IsNumeric(PageSize) OR IsEmpty(PageSize) Then _ PageSize = 10 _ Else _ PageSize = CInt(PageSize) PageNumber = CCGetParam(ComponentName & "Page", 1) If Not IsNumeric(PageNumber) And Len(PageNumber) > 0 Then Errors.AddError(CCSRunTimeMessages.GetMessage("GridPageNumberError", Empty)) PageNumber = 1 ElseIf Len(PageNumber) > 0 Then If PageNumber > 0 Then PageNumber = CInt(PageNumber) Else Errors.AddError(CCSRunTimeMessages.GetMessage("GridPageNumberError", Empty)) PageNumber = 1 End If Else PageNumber = 1 End If Set cat_a = CCCreateControl(ccsLabel, "cat_a", "cat_a", ccsText, Empty, CCGetRequestParam("cat_a", ccsGet)) End Sub 'End cat01 Class_Initialize Event 'cat01 Initialize Method @29-57CE6952 Sub Initialize(objConnection) If NOT Visible Then Exit Sub Set DataSource.Connection = objConnection DataSource.PageSize = PageSize DataSource.AbsolutePage = PageNumber End Sub 'End cat01 Initialize Method 'cat01 Class_Terminate Event @29-E1528F98 Private Sub Class_Terminate() Set DataSource = Nothing Set Command = Nothing Set Errors = Nothing End Sub 'End cat01 Class_Terminate Event 'cat01 Show Method @29-645C5705 Sub Show(Tpl) If NOT Visible Then Exit Sub Dim RecordCounter, ShownRecords Dim RowBlock With DataSource .Parameters("urlid") = CCGetRequestParam("id", ccsGET) End With CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeSelect", Me) Set Recordset = DataSource.Open(Command) Set TemplateBlock = Tpl.Block("Grid " & ComponentName) Set RowBlock = TemplateBlock.Block("Row") Set RowControls = CCCreateCollection(RowBlock, Null, ccsParseAccumulate, _ Array(cat_a)) CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Me) If NOT Visible Then Exit Sub Errors.AddErrors DataSource.Errors If Errors.Count > 0 Then TemplateBlock.HTML = CCFormatError("Grid cat01", Errors) Else ' Show NoRecords block if no records are found If Recordset.EOF Then TemplateBlock.Block("NoRecords").Parse ccsParseOverwrite End If While NOT Recordset.EOF AND ShownRecords < PageSize cat_a.Value = Recordset.Fields("cat_a") CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShowRow", Me) RowControls.Show Recordset.MoveNext ShownRecords = ShownRecords + 1 Wend TemplateBlock.Parse ccsParseOverwrite End If End Sub 'End cat01 Show Method 'cat01 PageSize Property Let @29-54E46DD6 Public Property Let PageSize(NewValue) VarPageSize = NewValue DataSource.PageSize = NewValue End Property 'End cat01 PageSize Property Let 'cat01 PageSize Property Get @29-9AA1D1E9 Public Property Get PageSize() PageSize = VarPageSize End Property 'End cat01 PageSize Property Get End Class 'End cat01 Class @29-A61BA892 Class clscat01DataSource 'cat01DataSource Class @29-09C533FE 'DataSource Variables @29-DAC342BD Public Errors, Connection, Parameters, CCSEvents Public Recordset Public SQL, CountSQL, Order, Where, Orders Public PageSize Public PageCount Public AbsolutePage Public Fields Dim WhereParameters Public AllParamsSet Private CurrentOperation Private CCSEventResult ' Datasource fields Public cat_a 'End DataSource Variables 'DataSource Class_Initialize Event @29-9912D22B Private Sub Class_Initialize() Set CCSEvents = CreateObject("Scripting.Dictionary") Set Fields = New clsFields Set Recordset = New clsDataSource Set Errors = New clsErrors AllParamsSet = True Set cat_a = CCCreateField("cat_a", "cat_a", ccsText, Empty, Recordset) Fields.AddFields Array(cat_a) Set Parameters = Server.CreateObject("Scripting.Dictionary") Set WhereParameters = Nothing SQL = "SELECT * " & _ "FROM cat" CountSQL = "SELECT COUNT(*) " & _ "FROM cat" Where = "" Order = "" End Sub 'End DataSource Class_Initialize Event 'BuildTableWhere Method @29-DE657CF2 Public Sub BuildTableWhere() Dim WhereParams If Not WhereParameters Is Nothing Then _ Exit Sub Set WhereParameters = new clsSQLParameters With WhereParameters Set .Connection = Connection Set .ParameterSources = Parameters Set .DataSource = Me .AddParameter 1, "urlid", ccsInteger, Empty, Empty, Empty, False .Criterion(1) = .Operation(opEqual, False, "id", .getParamByID(1)) .AssembledWhere = .Criterion(1) WhereParams = .AssembledWhere If Len(Where) > 0 Then If Len(WhereParams) > 0 Then _ Where = Where & " AND " & WhereParams Else If Len(WhereParams) > 0 Then _ Where = WhereParams End If End With End Sub 'End BuildTableWhere Method 'Open Method @29-F1D016EC Function Open(Cmd) Errors.Clear Set Recordset.DataSource = Me Set Cmd.Connection = Connection Cmd.CommandOperation = cmdOpen Cmd.PageSize = PageSize Cmd.ActivePage = AbsolutePage Cmd.CommandType = dsTable CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeBuildSelect", Me) Cmd.SQL = SQL Cmd.CountSQL = CountSQL BuildTableWhere Cmd.Where = Where Cmd.OrderBy = Order CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeExecuteSelect", Me) If Errors.Count = 0 And CCSEventResult Then _ Set Recordset = Cmd.Exec(Errors) CCSEventResult = CCRaiseEvent(CCSEvents, "AfterExecuteSelect", Me) Set Recordset.FieldsCollection = Fields Set Open = Recordset End Function 'End Open Method 'DataSource Class_Terminate Event @29-41B4B08D Private Sub Class_Terminate() If Recordset.State = adStateOpen Then _ Recordset.Close Set Recordset = Nothing Set Parameters = Nothing Set Errors = Nothing End Sub 'End DataSource Class_Terminate Event End Class 'End cat01DataSource Class @29-A61BA892 Class clsGridproducts 'products Class @17-3DDDFE1F 'products Variables @17-66653FE2 ' Private variables Private VarPageSize ' Public variables Public ComponentName, CCSEvents Public Visible, Errors Public DataSource Public PageNumber Public Command Public TemplateBlock Public Recordset Private CCSEventResult ' Grid Controls Public StaticControls, RowControls Dim price Dim id Dim product_name_a Dim Ingredients_a Dim img 'End products Variables 'products Class_Initialize Event @17-CE19033B Private Sub Class_Initialize() ComponentName = "products" Visible = True Set CCSEvents = CreateObject("Scripting.Dictionary") Set Errors = New clsErrors Set DataSource = New clsproductsDataSource Set Command = New clsCommand PageSize = CCGetParam(ComponentName & "PageSize", Empty) If IsNumeric(PageSize) And Len(PageSize) > 0 Then If PageSize <= 0 Then Errors.AddError(CCSRunTimeMessages.GetMessage("GridPageSizeError", Empty)) If PageSize > 100 Then PageSize = 100 End If If NOT IsNumeric(PageSize) OR IsEmpty(PageSize) Then _ PageSize = 10 _ Else _ PageSize = CInt(PageSize) PageNumber = CCGetParam(ComponentName & "Page", 1) If Not IsNumeric(PageNumber) And Len(PageNumber) > 0 Then Errors.AddError(CCSRunTimeMessages.GetMessage("GridPageNumberError", Empty)) PageNumber = 1 ElseIf Len(PageNumber) > 0 Then If PageNumber > 0 Then PageNumber = CInt(PageNumber) Else Errors.AddError(CCSRunTimeMessages.GetMessage("GridPageNumberError", Empty)) PageNumber = 1 End If Else PageNumber = 1 End If Set price = CCCreateControl(ccsLabel, "price", "price", ccsText, Empty, CCGetRequestParam("price", ccsGet)) Set id = CCCreateControl(ccsLabel, "id", "id", ccsInteger, Empty, CCGetRequestParam("id", ccsGet)) Set product_name_a = CCCreateControl(ccsLabel, "product_name_a", "product_name_a", ccsText, Empty, CCGetRequestParam("product_name_a", ccsGet)) Set Ingredients_a = CCCreateControl(ccsLabel, "Ingredients_a", "Ingredients_a", ccsText, Empty, CCGetRequestParam("Ingredients_a", ccsGet)) Set img = CCCreateControl(ccsLabel, "img", "img", ccsText, Empty, CCGetRequestParam("img", ccsGet)) End Sub 'End products Class_Initialize Event 'products Initialize Method @17-57CE6952 Sub Initialize(objConnection) If NOT Visible Then Exit Sub Set DataSource.Connection = objConnection DataSource.PageSize = PageSize DataSource.AbsolutePage = PageNumber End Sub 'End products Initialize Method 'products Class_Terminate Event @17-E1528F98 Private Sub Class_Terminate() Set DataSource = Nothing Set Command = Nothing Set Errors = Nothing End Sub 'End products Class_Terminate Event 'products Show Method @17-7C32FFEB Sub Show(Tpl) If NOT Visible Then Exit Sub Dim RecordCounter, ShownRecords Dim RowBlock With DataSource .Parameters("urlid") = CCGetRequestParam("id", ccsGET) End With CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeSelect", Me) Set Recordset = DataSource.Open(Command) Set TemplateBlock = Tpl.Block("Grid " & ComponentName) Set RowBlock = TemplateBlock.Block("Row") Set RowControls = CCCreateCollection(RowBlock, Null, ccsParseAccumulate, _ Array(price, id, product_name_a, Ingredients_a, img)) CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Me) If NOT Visible Then Exit Sub Errors.AddErrors DataSource.Errors If Errors.Count > 0 Then TemplateBlock.HTML = CCFormatError("Grid products", Errors) Else While NOT Recordset.EOF AND ShownRecords < PageSize price.Value = Recordset.Fields("price") id.Value = Recordset.Fields("id") product_name_a.Value = Recordset.Fields("product_name_a") Ingredients_a.Value = Recordset.Fields("Ingredients_a") img.Value = Recordset.Fields("img") CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShowRow", Me) RowControls.Show Recordset.MoveNext ShownRecords = ShownRecords + 1 Wend TemplateBlock.Parse ccsParseOverwrite End If End Sub 'End products Show Method 'products PageSize Property Let @17-54E46DD6 Public Property Let PageSize(NewValue) VarPageSize = NewValue DataSource.PageSize = NewValue End Property 'End products PageSize Property Let 'products PageSize Property Get @17-9AA1D1E9 Public Property Get PageSize() PageSize = VarPageSize End Property 'End products PageSize Property Get End Class 'End products Class @17-A61BA892 Class clsproductsDataSource 'productsDataSource Class @17-2A8671F7 'DataSource Variables @17-CBEB07DC Public Errors, Connection, Parameters, CCSEvents Public Recordset Public SQL, CountSQL, Order, Where, Orders Public PageSize Public PageCount Public AbsolutePage Public Fields Dim WhereParameters Public AllParamsSet Private CurrentOperation Private CCSEventResult ' Datasource fields Public price Public id Public product_name_a Public Ingredients_a Public img 'End DataSource Variables 'DataSource Class_Initialize Event @17-FBCAAE1E Private Sub Class_Initialize() Set CCSEvents = CreateObject("Scripting.Dictionary") Set Fields = New clsFields Set Recordset = New clsDataSource Set Errors = New clsErrors AllParamsSet = True Set price = CCCreateField("price", "price", ccsText, Empty, Recordset) Set id = CCCreateField("id", "id", ccsInteger, Empty, Recordset) Set product_name_a = CCCreateField("product_name_a", "product_name_a", ccsText, Empty, Recordset) Set Ingredients_a = CCCreateField("Ingredients_a", "Ingredients_a", ccsText, Empty, Recordset) Set img = CCCreateField("img", "img", ccsText, Empty, Recordset) Fields.AddFields Array(price, id, product_name_a, Ingredients_a, img) Set Parameters = Server.CreateObject("Scripting.Dictionary") Set WhereParameters = Nothing SQL = "SELECT * " & _ "FROM products" CountSQL = "SELECT COUNT(*) " & _ "FROM products" Where = "" Order = "" End Sub 'End DataSource Class_Initialize Event 'BuildTableWhere Method @17-74C4DE94 Public Sub BuildTableWhere() Dim WhereParams If Not WhereParameters Is Nothing Then _ Exit Sub Set WhereParameters = new clsSQLParameters With WhereParameters Set .Connection = Connection Set .ParameterSources = Parameters Set .DataSource = Me .AddParameter 1, "urlid", ccsInteger, Empty, Empty, Empty, False .Criterion(1) = .Operation(opEqual, False, "cat", .getParamByID(1)) .AssembledWhere = .Criterion(1) WhereParams = .AssembledWhere If Len(Where) > 0 Then If Len(WhereParams) > 0 Then _ Where = Where & " AND " & WhereParams Else If Len(WhereParams) > 0 Then _ Where = WhereParams End If End With End Sub 'End BuildTableWhere Method 'Open Method @17-F1D016EC Function Open(Cmd) Errors.Clear Set Recordset.DataSource = Me Set Cmd.Connection = Connection Cmd.CommandOperation = cmdOpen Cmd.PageSize = PageSize Cmd.ActivePage = AbsolutePage Cmd.CommandType = dsTable CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeBuildSelect", Me) Cmd.SQL = SQL Cmd.CountSQL = CountSQL BuildTableWhere Cmd.Where = Where Cmd.OrderBy = Order CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeExecuteSelect", Me) If Errors.Count = 0 And CCSEventResult Then _ Set Recordset = Cmd.Exec(Errors) CCSEventResult = CCRaiseEvent(CCSEvents, "AfterExecuteSelect", Me) Set Recordset.FieldsCollection = Fields Set Open = Recordset End Function 'End Open Method 'DataSource Class_Terminate Event @17-41B4B08D Private Sub Class_Terminate() If Recordset.State = adStateOpen Then _ Recordset.Close Set Recordset = Nothing Set Parameters = Nothing Set Errors = Nothing End Sub 'End DataSource Class_Terminate Event End Class 'End productsDataSource Class @17-A61BA892 'Include Page Implementation @33-962D52CB %> <% 'End Include Page Implementation 'Include Page Implementation @34-97C9CD25 %> <% 'End Include Page Implementation 'Include Page Implementation @35-AD783FD9 %> <% 'End Include Page Implementation %>