<%@ CodePage=1251 %>
<%
'Include Common Files @1-6A7F3264
%>
<!-- #INCLUDE VIRTUAL="/VAStore/Common.asp"-->
<!-- #INCLUDE VIRTUAL="/VAStore/Cache.asp" -->
<!-- #INCLUDE VIRTUAL="/VAStore/Template.asp" -->
<!-- #INCLUDE VIRTUAL="/VAStore/Sorter.asp" -->
<!-- #INCLUDE VIRTUAL="/VAStore/Navigator.asp" -->
<%
'End Include Common Files

'Initialize Page @1-7CF6B0CC
' Variables
Dim PathToRoot, ScriptPath
Dim FileName
Dim Redirect
Dim Tpl, HTMLTemplate
Dim TemplateFileName
Dim ComponentName
Dim PathToCurrentPage

' Events
Dim CCSEvents
Dim CCSEventResult

' Connections
Dim DBInternetDB

' Page controls
Dim Header
Dim products_search
Dim Footer

Redirect = ""
TemplateFileName = "enSearch.html"
Set CCSEvents = CreateObject("Scripting.Dictionary")
PathToCurrentPage = "./"
FileName = "enSearch.asp"
PathToRoot = "./"
ScriptPath = Left(Request.ServerVariables("PATH_TRANSLATED"), Len(Request.ServerVariables("PATH_TRANSLATED")) - Len(FileName))
'End Initialize Page

'Initialize Objects @1-58B878F4
Set DBInternetDB = New clsDBInternetDB
DBInternetDB.Open

' Controls
Set Header = New clsenHeader
Header.initIncludes("")
Header.BindEvents
Header.Initialize
Set products_search = new clsRecordproducts_search
Set Footer = New clsenFooter
Footer.initIncludes("")
Footer.BindEvents
Footer.Initialize

CCSEventResult = CCRaiseEvent(CCSEvents, "AfterInitialize", Nothing)
'End Initialize Objects

'Execute Components @1-FEEAD2C4
Header.Operations
products_search.Operation
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-2A1028E4
Header.Show Tpl, "Header"
products_search.Show Tpl
Footer.Show Tpl, "Footer"
HTMLTemplate.PParse "main", False
'End Show Page

'Unload Page @1-CB210C62
UnloadPage
Set Tpl = Nothing
Set HTMLTemplate = Nothing
'End Unload Page

'UnloadPage Sub @1-C71EBE8A
Sub UnloadPage()
    CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeUnload", Nothing)
    If DBInternetDB.State = adStateOpen Then _
        DBInternetDB.Close
    Set DBInternetDB = Nothing
    Set Header = Nothing
    Set products_search = Nothing
    Set Footer = Nothing
End Sub
'End UnloadPage Sub

Class clsRecordproducts_search 'products_search Class @4-E62965FB

'products_search Variables @4-6E2A65A2

    ' Public variables
    Public ComponentName
    Public HTMLFormAction
    Public PressedButton
    Public Errors
    Public FormSubmitted
    Public EditMode
    Public Visible
    Public Recordset
    Public TemplateBlock

    Public CCSEvents
    Private CCSEventResult

    Public InsertAllowed
    Public UpdateAllowed
    Public DeleteAllowed
    Public ReadAllowed
    Public DataSource
    Public Command
    Public ValidatingControls
    Public Controls

    ' Class variables
    Dim category_id
    Dim category_idDataSource
    Dim s_keyword
    Dim price_from
    Dim price_to
    Dim productsOrder
    Dim productsOrderDataSource
    Dim productsDir
    Dim productsDirDataSource
    Dim productsPageSize
    Dim productsPageSizeDataSource
    Dim DoSearch
'End products_search Variables

'products_search Class_Initialize Event @4-A168913B
    Private Sub Class_Initialize()

        Visible = True
        Set Errors = New clsErrors
        Set CCSEvents = CreateObject("Scripting.Dictionary")
        InsertAllowed = False
        UpdateAllowed = False
        DeleteAllowed = False
        ReadAllowed = True
        Dim Method
        Dim OperationMode
        OperationMode = Split(CCGetFromGet("ccsForm", Empty), ":")
        If UBound(OperationMode) > -1 Then 
            FormSubmitted = (OperationMode(0) = "products_search")
        End If
        If UBound(OperationMode) > 0 Then 
            EditMode = (OperationMode(1) = "Edit")
        End If
        ComponentName = "products_search"
        Method = IIf(FormSubmitted, ccsPost, ccsGet)
        Set category_idDataSource = CCCreateDataSource(dsTable,DBInternetDB, Array("SELECT *  " & _
"FROM store_categories", "", ""))
        With category_idDataSource.WhereParameters
            Set .ParameterSources = Server.CreateObject("Scripting.Dictionary")
            .ParameterSources("expr13") = "RUSRET"
            .ParameterSources("expr16") = 1
            .AddParameter 1, "expr13", ccsText, Empty, Empty, Empty, False
            .AddParameter 2, "expr16", ccsInteger, Empty, Empty, 1, False
            .Criterion(1) = .Operation(opContains, False, "category_channel", .getParamByID(1))
            .Criterion(2) = .Operation(opEqual, False, "e_is_visible", .getParamByID(2))
            .AssembledWhere = .opAND(False, .Criterion(1), .Criterion(2))
        End With
        category_idDataSource.Where = category_idDataSource.WhereParameters.AssembledWhere
        Set category_id = CCCreateList(ccsListBox, "category_id", "category_id", ccsInteger, CCGetRequestParam("category_id", Method), category_idDataSource)
        category_id.BoundColumn = "category_id"
        category_id.TextColumn = "e_category_name"
        Set s_keyword = CCCreateControl(ccsTextBox, "s_keyword", "s_keyword", ccsText, Empty, CCGetRequestParam("s_keyword", Method))
        Set price_from = CCCreateControl(ccsTextBox, "price_from", "price_from", ccsFloat, Empty, CCGetRequestParam("price_from", Method))
        Set price_to = CCCreateControl(ccsTextBox, "price_to", "price_to", ccsFloat, Empty, CCGetRequestParam("price_to", Method))
        Set productsOrderDataSource = CCCreateDataSource(dsListOfValues, Empty, Array( _
            Array("sorter_product_name", "sorter_price"), _
            Array("Product", "Price")))
        Set productsOrder = CCCreateList(ccsListBox, "productsOrder", "productsOrder", ccsText, CCGetRequestParam("productsOrder", Method), productsOrderDataSource)
        Set productsDirDataSource = CCCreateDataSource(dsListOfValues, Empty, Array( _
            Array("ASC", "DESC"), _
            Array("Ascending", "Descending")))
        Set productsDir = CCCreateList(ccsListBox, "productsDir", "productsDir", ccsText, CCGetRequestParam("productsDir", Method), productsDirDataSource)
        Set productsPageSizeDataSource = CCCreateDataSource(dsListOfValues, Empty, Array( _
            Array(10, 25, 50), _
            Array("10", "25", "50")))
        Set productsPageSize = CCCreateList(ccsListBox, "productsPageSize", "productsPageSize", ccsInteger, CCGetRequestParam("productsPageSize", Method), productsPageSizeDataSource)
        Set DoSearch = CCCreateButton("DoSearch")
        Set ValidatingControls = new clsControls
        ValidatingControls.addControls Array(category_id, s_keyword, price_from, price_to, productsOrder, productsDir, productsPageSize)
        
    End Sub
'End products_search Class_Initialize Event

'products_search Class_Terminate Event @4-32B847C9
    Private Sub Class_Terminate()
        Set Errors = Nothing
    End Sub
'End products_search Class_Terminate Event

'products_search Validate Method @4-B9D513CF
    Function Validate()
        Dim Validation
        ValidatingControls.Validate
        CCSEventResult = CCRaiseEvent(CCSEvents, "OnValidate", Me)
        Validate = ValidatingControls.isValid() And (Errors.Count = 0)
    End Function
'End products_search Validate Method

'products_search Operation Method @4-ADFF9847
    Sub Operation()
        If NOT ( Visible AND FormSubmitted ) Then Exit Sub

        If FormSubmitted Then
            PressedButton = "DoSearch"
            If Not IsEmpty(CCGetParam("DoSearch", Empty)) Then
                PressedButton = "DoSearch"
            End If
        End If
        Redirect = "enProducts.asp"
        If Validate() Then
            If PressedButton = "DoSearch" Then
                If NOT DoSearch.OnClick() Then
                    Redirect = ""
                Else
                    Redirect = "enProducts.asp?" & CCGetQueryString("Form", Array(PressedButton, "ccsForm"))
                End If
            End If
        Else
            Redirect = ""
        End If
    End Sub
'End products_search Operation Method

'products_search Show Method @4-D3CA5BA2
    Sub Show(Tpl)

        If NOT Visible Then Exit Sub

        EditMode = False
        HTMLFormAction = FileName & "?" & CCAddParam(Request.ServerVariables("QUERY_STRING"), "ccsForm", "products_search" & IIf(EditMode, ":Edit", ""))
        Set TemplateBlock = Tpl.Block("Record " & ComponentName)
        TemplateBlock.Variable("HTMLFormName") = ComponentName
        TemplateBlock.Variable("HTMLFormEnctype") ="application/x-www-form-urlencoded"
        Set Controls = CCCreateCollection(TemplateBlock, Null, ccsParseOverwrite, _
            Array(category_id, s_keyword, price_from, price_to, productsOrder, productsDir, productsPageSize, DoSearch))
        If Not FormSubmitted Then
        End If
        If FormSubmitted Then
            With TemplateBlock.Block("Error")
                .Variable("Error") = ValidatingControls.GetErrors & Errors.ToString
                .Parse False
            End With
        End If
        TemplateBlock.Variable("Action") = HTMLFormAction

        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Me)
        If Visible Then Controls.Show
    End Sub
'End products_search Show Method

End Class 'End products_search Class @4-A61BA892

'Include Page Implementation @2-DAFDA2F0
%>
<!-- #INCLUDE VIRTUAL="/VAStore/enHeader.asp" -->
<%
'End Include Page Implementation

'Include Page Implementation @3-E2ECDA17
%>
<!-- #INCLUDE VIRTUAL="/VAStore/enFooter.asp" -->
<%
'End Include Page Implementation


%>