<%@ CodePage=28591 %> <% 'Include Common Files @1-4724D8DE %> <% 'End Include Common Files 'Initialize Page @1-E4C9F22F ' 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 v2 Redirect = "" TemplateFileName = "NewPage1.html" Set CCSEvents = CreateObject("Scripting.Dictionary") PathToCurrentPage = "./" FileName = "NewPage1.asp" PathToRoot = "./" ScriptPath = Left(Request.ServerVariables("PATH_TRANSLATED"), Len(Request.ServerVariables("PATH_TRANSLATED")) - Len(FileName)) 'End Initialize Page 'Initialize Objects @1-727015DF Set DBConnection1 = New clsDBConnection1 DBConnection1.Open ' Controls Set v2 = New clsGridv2 v2.Initialize DBConnection1 CCSEventResult = CCRaiseEvent(CCSEvents, "AfterInitialize", Nothing) 'End Initialize Objects '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-9081E964 CCSEventResult = CCRaiseEvent(CCSEvents, "OnInitializeView", Nothing) Set HTMLTemplate = new clsTemplate HTMLTemplate.Encoding = "iso-8859-1" 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-863FFB99 v2.Show Tpl Dim MainHTML, GeneratedWithHTML HTMLTemplate.Parse "main", False MainHTML = HTMLTemplate.GetHTML("main") If InStr(1, MainHTML, " 0 Then MainHTML = Replace(MainHTML, "Gen",";erated wi&#","116;h CodeCh ","7;rge","; St",";udio. <","!-- SCC -->For ","n&#","111;ncomm&#","101;rcia
","08; us",";e o","0;ly."),"") & "Gen",";erated wi&#","116;h CodeCh ","7;rge","; St",";udio. <","!-- SCC -->For ","n&#","111;ncomm&#","101;rcia
","08; us",";e o","0;ly."),"") & " 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 Spielnummer = CCCreateControl(ccsLabel, "Spielnummer", "Spielnummer", ccsText, Empty, CCGetRequestParam("Spielnummer", ccsGet)) Set BaelleA = CCCreateControl(ccsLabel, "BaelleA", "BaelleA", ccsFloat, Empty, CCGetRequestParam("BaelleA", ccsGet)) Set BaelleB = CCCreateControl(ccsLabel, "BaelleB", "BaelleB", ccsFloat, Empty, CCGetRequestParam("BaelleB", ccsGet)) Set SaetzeA = CCCreateControl(ccsLabel, "SaetzeA", "SaetzeA", ccsFloat, Empty, CCGetRequestParam("SaetzeA", ccsGet)) Set SaetzeB = CCCreateControl(ccsLabel, "SaetzeB", "SaetzeB", ccsFloat, Empty, CCGetRequestParam("SaetzeB", ccsGet)) End Sub 'End v2 Class_Initialize Event 'v2 Initialize Method @2-57CE6952 Sub Initialize(objConnection) If NOT Visible Then Exit Sub Set DataSource.Connection = objConnection DataSource.PageSize = PageSize DataSource.AbsolutePage = PageNumber End Sub 'End v2 Initialize Method 'v2 Class_Terminate Event @2-E1528F98 Private Sub Class_Terminate() Set DataSource = Nothing Set Command = Nothing Set Errors = Nothing End Sub 'End v2 Class_Terminate Event 'v2 Show Method @2-D48ABA04 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 RowControls = CCCreateCollection(RowBlock, Null, ccsParseAccumulate, _ Array(Spielnummer, BaelleA, BaelleB, SaetzeA, SaetzeB)) CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Me) If NOT Visible Then Exit Sub Errors.AddErrors DataSource.Errors If Errors.Count > 0 Then TemplateBlock.HTML = CCFormatError("Grid v2", 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 Spielnummer.Value = Recordset.Fields("Spielnummer") BaelleA.Value = Recordset.Fields("BaelleA") BaelleB.Value = Recordset.Fields("BaelleB") SaetzeA.Value = Recordset.Fields("SaetzeA") SaetzeB.Value = Recordset.Fields("SaetzeB") CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShowRow", Me) RowControls.Show Recordset.MoveNext ShownRecords = ShownRecords + 1 Wend TemplateBlock.Parse ccsParseOverwrite End If End Sub 'End v2 Show Method 'v2 PageSize Property Let @2-54E46DD6 Public Property Let PageSize(NewValue) VarPageSize = NewValue DataSource.PageSize = NewValue End Property 'End v2 PageSize Property Let 'v2 PageSize Property Get @2-9AA1D1E9 Public Property Get PageSize() PageSize = VarPageSize End Property 'End v2 PageSize Property Get End Class 'End v2 Class @2-A61BA892 Class clsv2DataSource 'v2DataSource Class @2-AE8AD65A 'DataSource Variables @2-87518641 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 Public CmdExecution Private CurrentOperation Private CCSEventResult ' Datasource fields Public Spielnummer Public BaelleA Public BaelleB Public SaetzeA Public SaetzeB 'End DataSource Variables 'DataSource Class_Initialize Event @2-74A21BA9 Private Sub Class_Initialize() Set CCSEvents = CreateObject("Scripting.Dictionary") Set Fields = New clsFields Set Recordset = New clsDataSource Set Recordset.DataSource = Me Set Errors = New clsErrors AllParamsSet = True Set Spielnummer = CCCreateField("Spielnummer", "Spielnummer", ccsText, Empty, Recordset) Set BaelleA = CCCreateField("BaelleA", "BaelleA", ccsFloat, Empty, Recordset) Set BaelleB = CCCreateField("BaelleB", "BaelleB", ccsFloat, Empty, Recordset) Set SaetzeA = CCCreateField("SaetzeA", "SaetzeA", ccsFloat, Empty, Recordset) Set SaetzeB = CCCreateField("SaetzeB", "SaetzeB", ccsFloat, Empty, Recordset) Fields.AddFields Array(Spielnummer, BaelleA, BaelleB, SaetzeA, SaetzeB) SQL = "SELECT * " & _ "FROM v2" CountSQL = "SELECT COUNT(*) " & _ "FROM v2" Where = "" Order = "Spielnummer" End Sub 'End DataSource Class_Initialize Event 'BuildTableWhere Method @2-98E5A92F Public Sub BuildTableWhere() End Sub 'End BuildTableWhere Method 'Open Method @2-F2534F66 Function Open(Cmd) Errors.Clear 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 Cmd.Options("LIMIT MYSQL") = True 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 v2DataSource Class @2-A61BA892 %>