<% 'Include Common Files @1-D6EDE132 %> <% 'End Include Common Files 'Initialize Page @1-6422E3E0 ' 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 Header Dim Message Dim Footer Redirect = "" TemplateFileName = "Message_list.html" Set CCSEvents = CreateObject("Scripting.Dictionary") PathToCurrentPage = "./" FileName = "Message_list.asp" PathToRoot = "./" ScriptPath = Left(Request.ServerVariables("PATH_TRANSLATED"), Len(Request.ServerVariables("PATH_TRANSLATED")) - Len(FileName)) 'End Initialize Page 'Initialize Objects @1-81B7483C Set DBConnection1 = New clsDBConnection1 DBConnection1.Open ' Controls Set Header = New clsHeader Header.BindEvents Header.Initialize Set Message = New clsGridMessage Set Footer = New clsFooter Footer.BindEvents Footer.Initialize Message.Initialize DBConnection1 CCSEventResult = CCRaiseEvent(CCSEvents, "AfterInitialize", Nothing) 'End Initialize Objects 'Execute Components @1-3DAD5F6C Header.Operations Footer.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-B3115C3A Header.Show Tpl, "Header" Message.Show Tpl Footer.Show Tpl, "Footer" Dim MainHTML, GeneratedWithHTML HTMLTemplate.Parse "main", False MainHTML = HTMLTemplate.GetHTML("main") GeneratedWithHTML = "Generated with CodeCharge Studio" If InStr(1, MainHTML, " 0 Then MainHTML = Replace(MainHTML, " 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 = 20 _ 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 ActiveSorter = CCGetParam("MessageOrder", Empty) SortingDirection = CCGetParam("MessageDir", Empty) If NOT(SortingDirection = "ASC" OR SortingDirection = "DESC") Then _ SortingDirection = Empty Set ID = CCCreateControl(ccsLink, "ID", "ID", ccsInteger, Empty, CCGetRequestParam("ID", ccsGet)) Set Name = CCCreateControl(ccsLabel, "Name", "Name", ccsText, Empty, CCGetRequestParam("Name", ccsGet)) Set Email = CCCreateControl(ccsLabel, "Email", "Email", ccsText, Empty, CCGetRequestParam("Email", ccsGet)) Set Message = CCCreateControl(ccsLabel, "Message", "Message", ccsText, Empty, CCGetRequestParam("Message", ccsGet)) Set Sorter_ID = CCCreateSorter("Sorter_ID", Me, FileName) Set Sorter_Name = CCCreateSorter("Sorter_Name", Me, FileName) Set Sorter_Email = CCCreateSorter("Sorter_Email", Me, FileName) Set Sorter_Message = CCCreateSorter("Sorter_Message", Me, FileName) Set Message_Insert = CCCreateControl(ccsLink, "Message_Insert", "Message_Insert", ccsText, Empty, CCGetRequestParam("Message_Insert", ccsGet)) Set Navigator = CCCreateNavigator(ComponentName, "Navigator", FileName, 10, tpSimple) End Sub 'End Message Class_Initialize Event 'Message Initialize Method @2-2AEA3975 Sub Initialize(objConnection) If NOT Visible Then Exit Sub Set DataSource.Connection = objConnection DataSource.PageSize = PageSize DataSource.SetOrder ActiveSorter, SortingDirection DataSource.AbsolutePage = PageNumber End Sub 'End Message Initialize Method 'Message Class_Terminate Event @2-E1528F98 Private Sub Class_Terminate() Set DataSource = Nothing Set Command = Nothing Set Errors = Nothing End Sub 'End Message Class_Terminate Event 'Message Show Method @2-AB876C6F Sub Show(Tpl) If NOT Visible Then Exit Sub Dim RecordCounter, ShownRecords Dim RowBlock CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeSelect", Me) Set Recordset = DataSource.Open(Command) Set TemplateBlock = Tpl.Block("Grid " & ComponentName) Set RowBlock = TemplateBlock.Block("Row") Set StaticControls = CCCreateCollection(TemplateBlock, Null, ccsParseOverwrite, _ Array(Sorter_ID, Sorter_Name, Sorter_Email, Sorter_Message, Message_Insert, Navigator)) Set RowControls = CCCreateCollection(RowBlock, Null, ccsParseAccumulate, _ Array(ID, Name, Email, Message)) CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Me) If NOT Visible Then Exit Sub Errors.AddErrors DataSource.Errors If Errors.Count > 0 Then TemplateBlock.HTML = CCFormatError("Grid Message", 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 ID.Value = Recordset.Fields("ID") ID.Parameters = CCGetQueryString("QueryString", Array("ccsForm")) ID.Parameters = CCAddParam(ID.Parameters, "ID", Recordset.Fields("ID_param1")) ID.Page = "Message_maint.asp" Name.Value = Recordset.Fields("Name") Email.Value = Recordset.Fields("Email") Message.Value = Recordset.Fields("Message") CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShowRow", Me) RowControls.Show Recordset.MoveNext ShownRecords = ShownRecords + 1 Wend Message_Insert.Parameters = CCGetQueryString("QueryString", Array("ID", "ccsForm")) Message_Insert.Page = "Message_maint.asp" Navigator.SetDataSource Recordset StaticControls.Show End If End Sub 'End Message Show Method 'Message PageSize Property Let @2-54E46DD6 Public Property Let PageSize(NewValue) VarPageSize = NewValue DataSource.PageSize = NewValue End Property 'End Message PageSize Property Let 'Message PageSize Property Get @2-9AA1D1E9 Public Property Get PageSize() PageSize = VarPageSize End Property 'End Message PageSize Property Get End Class 'End Message Class @2-A61BA892 Class clsMessageDataSource 'MessageDataSource Class @2-224C9708 'DataSource Variables @2-1C9CE457 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 ID Public ID_param1 Public Name Public Email Public Message 'End DataSource Variables 'DataSource Class_Initialize Event @2-CC540A89 Private Sub Class_Initialize() Set CCSEvents = CreateObject("Scripting.Dictionary") Set Fields = New clsFields Set Recordset = New clsDataSource Set Errors = New clsErrors AllParamsSet = True Set ID = CCCreateField("ID", "ID", ccsInteger, Empty, Recordset) Set ID_param1 = CCCreateField("ID_param1", "ID", ccsText, Empty, Recordset) Set Name = CCCreateField("Name", "Name", ccsText, Empty, Recordset) Set Email = CCCreateField("Email", "Email", ccsText, Empty, Recordset) Set Message = CCCreateField("Message", "Message", ccsText, Empty, Recordset) Fields.AddFields Array(ID, ID_param1, Name, Email, Message) Orders = Array( _ Array("Sorter_ID", "ID", ""), _ Array("Sorter_Name", "Name", ""), _ Array("Sorter_Email", "Email", ""), _ Array("Sorter_Message", "Message", "")) SQL = "SELECT ID, Name, Email, Message " & _ "FROM Message" CountSQL = "SELECT COUNT(*) " & _ "FROM Message" Where = "" Order = "" End Sub 'End DataSource Class_Initialize Event 'SetOrder Method @2-68FC9576 Sub SetOrder(Column, Direction) Order = Recordset.GetOrder(Order, Column, Direction, Orders) End Sub 'End SetOrder Method 'BuildTableWhere Method @2-98E5A92F Public Sub BuildTableWhere() End Sub 'End BuildTableWhere Method 'Open Method @2-D0383B6E 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 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 @2-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 MessageDataSource Class @2-A61BA892 'Include Page Implementation @19-EB31621C %> <% 'End Include Page Implementation 'Include Page Implementation @20-D3201AFB %> <% 'End Include Page Implementation %>