<%
'Include Common Files @1-25376196
%>
<!-- #INCLUDE VIRTUAL="/hsmdc/Common.asp"-->
<!-- #INCLUDE VIRTUAL="/hsmdc/Cache.asp" -->
<!-- #INCLUDE VIRTUAL="/hsmdc/Template.asp" -->
<!-- #INCLUDE VIRTUAL="/hsmdc/Sorter.asp" -->
<!-- #INCLUDE VIRTUAL="/hsmdc/Navigator.asp" -->
<%
'End Include Common Files

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

' Events
Dim CCSEvents
Dim CCSEventResult

' Connections
Dim DBgsmd

' Page controls
Dim membersSearch
Dim members
Dim members1

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

'Authenticate User @1-8C03EF0A
CCSecurityRedirect Empty, "login.asp"
'End Authenticate User

'Initialize Objects @1-D1D065F0
Set DBgsmd = New clsDBgsmd
DBgsmd.Open

' Controls
Set membersSearch = new clsRecordmembersSearch
Set members = New clsGridmembers
Set members1 = new clsRecordmembers1
members.Initialize DBgsmd
members1.Initialize DBgsmd

' Events
%>
<!-- #INCLUDE VIRTUAL="/hsmdc/members_events.asp" -->
<%
BindEvents

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

'Execute Components @1-D1E77B9F
membersSearch.Operation
members1.Operation
'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-C6920386
membersSearch.Show Tpl
members.Show Tpl
members1.Show Tpl
HTMLTemplate.PParse "main", False
'End Show Page

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

'UnloadPage Sub @1-F32E6881
Sub UnloadPage()
    CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeUnload", Nothing)
    If DBgsmd.State = adStateOpen Then _
        DBgsmd.Close
    Set DBgsmd = Nothing
    Set membersSearch = Nothing
    Set members = Nothing
    Set members1 = Nothing
End Sub
'End UnloadPage Sub

Class clsRecordmembersSearch 'membersSearch Class @3-4403567B

'membersSearch Variables @3-F57366C8

    ' 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 s_PKID
    Dim s_Customer_ID
    Dim s_Last_Name
    Dim s_First_Names
    Dim s_Kennel_Name
    Dim s_Dog_Full_Name
    Dim s_Dog_Call_Name
    Dim membersOrder
    Dim membersOrderDataSource
    Dim membersDir
    Dim membersDirDataSource
    Dim membersPageSize
    Dim membersPageSizeDataSource
    Dim Button_DoSearch
'End membersSearch Variables

'membersSearch Class_Initialize Event @3-D40F80D1
    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) = "membersSearch")
        End If
        If UBound(OperationMode) > 0 Then 
            EditMode = (OperationMode(1) = "Edit")
        End If
        ComponentName = "membersSearch"
        Method = IIf(FormSubmitted, ccsPost, ccsGet)
        Set s_PKID = CCCreateControl(ccsTextBox, "s_PKID", "s_PKID", ccsInteger, Empty, CCGetRequestParam("s_PKID", Method))
        Set s_Customer_ID = CCCreateControl(ccsTextBox, "s_Customer_ID", "s_Customer_ID", ccsText, Empty, CCGetRequestParam("s_Customer_ID", Method))
        Set s_Last_Name = CCCreateControl(ccsTextBox, "s_Last_Name", "s_Last_Name", ccsText, Empty, CCGetRequestParam("s_Last_Name", Method))
        Set s_First_Names = CCCreateControl(ccsTextBox, "s_First_Names", "s_First_Names", ccsText, Empty, CCGetRequestParam("s_First_Names", Method))
        Set s_Kennel_Name = CCCreateControl(ccsTextBox, "s_Kennel_Name", "s_Kennel_Name", ccsText, Empty, CCGetRequestParam("s_Kennel_Name", Method))
        Set s_Dog_Full_Name = CCCreateControl(ccsTextBox, "s_Dog_Full_Name", "s_Dog_Full_Name", ccsText, Empty, CCGetRequestParam("s_Dog_Full_Name", Method))
        Set s_Dog_Call_Name = CCCreateControl(ccsTextBox, "s_Dog_Call_Name", "s_Dog_Call_Name", ccsText, Empty, CCGetRequestParam("s_Dog_Call_Name", Method))
        Set membersOrderDataSource = CCCreateDataSource(dsListOfValues, Empty, Array( _
            Array("", "Sorter_PKID", "Sorter_Cust_ID_Name", "Sorter_Customer_ID", "Sorter_Last_Name", "Sorter_First_Names", "Sorter_Kennel_Name", "Sorter_Short_Addr", "Sorter_Address", "Sorter_CITY", "Sorter_STATE", "Sorter_ZIP", "Sorter_Notes", "Sorter_Phone", "Sorter_Fax", "Sorter_Email", "Sorter_Vet_Contact", "Sorter_Status", "Sorter_paid", "Sorter_Titles", "Sorter_Club_Officer_", "Sorter_Office_Held", "Sorter_MEMCode", "Sorter_Join_Date", "Sorter_Dog_Owner", "Sorter_Dog_Full_Name", "Sorter_AKC_Num", "Sorter_Dog_Call_Name", "Sorter_Breeder", "Sorter_Add_Breeder_info", "Sorter_TrueFalse"), _
            Array("Select Field", "PKID", "Cust ID Name", "Customer ID", "Last Name", "First Names", "Kennel Name", "Short Addr", "Address", "CITY", "STATE", "ZIP", "Notes", "Phone", "Fax", "Email", "Vet Contact", "Status", "Paid", "Titles", "Club Officer?", "Office Held", "MEMCode", "Join Date", "Dog Owner", "Dog Full Name", "AKC Num", "Dog Call Name", "Breeder", "Add Breeder Info", "True False")))
        Set membersOrder = CCCreateList(ccsListBox, "membersOrder", "membersOrder", ccsText, CCGetRequestParam("membersOrder", Method), membersOrderDataSource)
        Set membersDirDataSource = CCCreateDataSource(dsListOfValues, Empty, Array( _
            Array("", "ASC", "DESC"), _
            Array("Select Order", "Ascending", "Descending")))
        Set membersDir = CCCreateList(ccsListBox, "membersDir", "membersDir", ccsText, CCGetRequestParam("membersDir", Method), membersDirDataSource)
        Set membersPageSizeDataSource = CCCreateDataSource(dsListOfValues, Empty, Array( _
            Array("", "5", "10", "25", "100"), _
            Array("Select Value", "5", "10", "25", "100")))
        Set membersPageSize = CCCreateList(ccsListBox, "membersPageSize", "membersPageSize", ccsText, CCGetRequestParam("membersPageSize", Method), membersPageSizeDataSource)
        Set Button_DoSearch = CCCreateButton("Button_DoSearch")
        Set ValidatingControls = new clsControls
        ValidatingControls.addControls Array(s_PKID, s_Customer_ID, s_Last_Name, s_First_Names, s_Kennel_Name, s_Dog_Full_Name, s_Dog_Call_Name, _
             membersOrder, membersDir, membersPageSize)
        
    End Sub
'End membersSearch Class_Initialize Event

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

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

'membersSearch Operation Method @3-F153F9E1
    Sub Operation()
        If NOT ( Visible AND FormSubmitted ) Then Exit Sub

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

'membersSearch Show Method @3-01008935
    Sub Show(Tpl)

        If NOT Visible Then Exit Sub

        EditMode = False
        HTMLFormAction = FileName & "?" & CCAddParam(Request.ServerVariables("QUERY_STRING"), "ccsForm", "membersSearch" & 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(s_PKID,  s_Customer_ID,  s_Last_Name,  s_First_Names,  s_Kennel_Name,  s_Dog_Full_Name,  s_Dog_Call_Name, _
                 membersOrder,  membersDir,  membersPageSize,  Button_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 membersSearch Show Method

End Class 'End membersSearch Class @3-A61BA892

Class clsGridmembers 'members Class @2-9CEB6E62

'members Variables @2-90C3AEE3

    ' Private variables
    Private VarPageSize
    ' Public variables
    Public ComponentName, CCSEvents
    Public Visible, Errors
    Public DataSource
    Public PageNumber
    Public Command
    Public TemplateBlock
    Public ActiveSorter, SortingDirection
    Public Recordset

    Private CCSEventResult

    ' Grid Controls
    Public StaticControls, RowControls
    Public AltRowControls
    Public RenderAltRow
    Dim members_TotalRecords
    Dim Sorter_PKID
    Dim Sorter_Cust_ID_Name
    Dim Sorter_Customer_ID
    Dim Sorter_Last_Name
    Dim Sorter_First_Names
    Dim Sorter_Kennel_Name
    Dim Sorter_Short_Addr
    Dim Sorter_Address
    Dim Sorter_CITY
    Dim Sorter_STATE
    Dim Sorter_ZIP
    Dim Sorter_Notes
    Dim Sorter_Phone
    Dim Sorter_Fax
    Dim Sorter_Email
    Dim Sorter_Vet_Contact
    Dim Sorter_Status
    Dim Sorter_paid
    Dim Sorter_Titles
    Dim Sorter_Club_Officer_1
    Dim Sorter_Office_Held
    Dim Sorter_Join_Date
    Dim Sorter_Dog_Owner
    Dim Sorter_Dog_Full_Name
    Dim Sorter_AKC_Num
    Dim Sorter_Dog_Call_Name
    Dim Sorter_Breeder
    Dim Sorter_Add_Breeder_info
    Dim Sorter_TrueFalse
    Dim PKID
    Dim Cust_ID_Name
    Dim Customer_ID
    Dim Last_Name
    Dim First_Names
    Dim Kennel_Name
    Dim Short_Addr
    Dim Address
    Dim CITY
    Dim STATE
    Dim ZIP
    Dim Notes
    Dim Phone
    Dim Fax
    Dim Email
    Dim Vet_Contact
    Dim Status
    Dim paid
    Dim Titles
    Dim Club_Officer_1
    Dim Office_Held
    Dim MEMCode
    Dim Join_Date
    Dim Dog_Owner
    Dim Dog_Full_Name
    Dim AKC_Num
    Dim Dog_Call_Name
    Dim Breeder
    Dim Add_Breeder_info
    Dim TrueFalse
    Dim Alt_PKID
    Dim Alt_Cust_ID_Name
    Dim Alt_Customer_ID
    Dim Alt_Last_Name
    Dim Alt_First_Names
    Dim Alt_Kennel_Name
    Dim Alt_Short_Addr
    Dim Alt_Address
    Dim Alt_CITY
    Dim Alt_STATE
    Dim Alt_ZIP
    Dim Alt_Notes
    Dim Alt_Phone
    Dim Alt_Fax
    Dim Alt_Email
    Dim Alt_Vet_Contact
    Dim Alt_Status
    Dim Alt_paid
    Dim Alt_Titles
    Dim Alt_Club_Officer_1
    Dim Alt_Office_Held
    Dim Alt_MEMCode
    Dim Alt_Join_Date
    Dim Alt_Dog_Owner
    Dim Alt_Dog_Full_Name
    Dim Alt_AKC_Num
    Dim Alt_Dog_Call_Name
    Dim Alt_Breeder
    Dim Alt_Add_Breeder_info
    Dim Alt_TrueFalse
    Dim members_Insert
    Dim Navigator
'End members Variables

'members Class_Initialize Event @2-C5A833C9
    Private Sub Class_Initialize()
        ComponentName = "members"
        Visible = True
        Set CCSEvents = CreateObject("Scripting.Dictionary")
        RenderAltRow = False
        Set Errors = New clsErrors
        Set DataSource = New clsmembersDataSource
        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 = 3 _
        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("membersOrder", Empty)
        SortingDirection = CCGetParam("membersDir", Empty)
        If NOT(SortingDirection = "ASC" OR SortingDirection = "DESC") Then _
            SortingDirection = Empty

        Set PKID = CCCreateControl(ccsLink, "PKID", "PKID", ccsInteger, Empty, CCGetRequestParam("PKID", ccsGet))
        Set Cust_ID_Name = CCCreateControl(ccsLabel, "Cust_ID_Name", "Cust_ID_Name", ccsText, Empty, CCGetRequestParam("Cust_ID_Name", ccsGet))
        Set Customer_ID = CCCreateControl(ccsLabel, "Customer_ID", "Customer_ID", ccsText, Empty, CCGetRequestParam("Customer_ID", ccsGet))
        Set Last_Name = CCCreateControl(ccsLabel, "Last_Name", "Last_Name", ccsText, Empty, CCGetRequestParam("Last_Name", ccsGet))
        Set First_Names = CCCreateControl(ccsLabel, "First_Names", "First_Names", ccsText, Empty, CCGetRequestParam("First_Names", ccsGet))
        Set Kennel_Name = CCCreateControl(ccsLabel, "Kennel_Name", "Kennel_Name", ccsText, Empty, CCGetRequestParam("Kennel_Name", ccsGet))
        Set Short_Addr = CCCreateControl(ccsLabel, "Short_Addr", "Short_Addr", ccsText, Empty, CCGetRequestParam("Short_Addr", ccsGet))
        Set Address = CCCreateControl(ccsLabel, "Address", "Address", ccsText, Empty, CCGetRequestParam("Address", ccsGet))
        Set CITY = CCCreateControl(ccsLabel, "CITY", "CITY", ccsText, Empty, CCGetRequestParam("CITY", ccsGet))
        Set STATE = CCCreateControl(ccsLabel, "STATE", "STATE", ccsText, Empty, CCGetRequestParam("STATE", ccsGet))
        Set ZIP = CCCreateControl(ccsLabel, "ZIP", "ZIP", ccsText, Empty, CCGetRequestParam("ZIP", ccsGet))
        Set Notes = CCCreateControl(ccsLabel, "Notes", "Notes", ccsText, Empty, CCGetRequestParam("Notes", ccsGet))
        Set Phone = CCCreateControl(ccsLabel, "Phone", "Phone", ccsText, Empty, CCGetRequestParam("Phone", ccsGet))
        Set Fax = CCCreateControl(ccsLabel, "Fax", "Fax", ccsText, Empty, CCGetRequestParam("Fax", ccsGet))
        Set Email = CCCreateControl(ccsLabel, "Email", "Email", ccsText, Empty, CCGetRequestParam("Email", ccsGet))
        Set Vet_Contact = CCCreateControl(ccsLabel, "Vet_Contact", "Vet_Contact", ccsText, Empty, CCGetRequestParam("Vet_Contact", ccsGet))
        Set Status = CCCreateControl(ccsLabel, "Status", "Status", ccsText, Empty, CCGetRequestParam("Status", ccsGet))
        Set paid = CCCreateControl(ccsLabel, "paid", "paid", ccsText, Empty, CCGetRequestParam("paid", ccsGet))
        Set Titles = CCCreateControl(ccsLabel, "Titles", "Titles", ccsText, Empty, CCGetRequestParam("Titles", ccsGet))
        Set Club_Officer_1 = CCCreateControl(ccsLabel, "Club_Officer_1", "Club_Officer_1", ccsBoolean, Empty, CCGetRequestParam("Club_Officer_1", ccsGet))
        Set Office_Held = CCCreateControl(ccsLabel, "Office_Held", "Office_Held", ccsText, Empty, CCGetRequestParam("Office_Held", ccsGet))
        Set MEMCode = CCCreateControl(ccsLabel, "MEMCode", "MEMCode", ccsMemo, Empty, CCGetRequestParam("MEMCode", ccsGet))
        Set Join_Date = CCCreateControl(ccsLabel, "Join_Date", "Join_Date", ccsDate, Empty, CCGetRequestParam("Join_Date", ccsGet))
        Set Dog_Owner = CCCreateControl(ccsLabel, "Dog_Owner", "Dog_Owner", ccsBoolean, Empty, CCGetRequestParam("Dog_Owner", ccsGet))
        Set Dog_Full_Name = CCCreateControl(ccsLabel, "Dog_Full_Name", "Dog_Full_Name", ccsText, Empty, CCGetRequestParam("Dog_Full_Name", ccsGet))
        Set AKC_Num = CCCreateControl(ccsLabel, "AKC_Num", "AKC_Num", ccsText, Empty, CCGetRequestParam("AKC_Num", ccsGet))
        Set Dog_Call_Name = CCCreateControl(ccsLabel, "Dog_Call_Name", "Dog_Call_Name", ccsText, Empty, CCGetRequestParam("Dog_Call_Name", ccsGet))
        Set Breeder = CCCreateControl(ccsLabel, "Breeder", "Breeder", ccsText, Empty, CCGetRequestParam("Breeder", ccsGet))
        Set Add_Breeder_info = CCCreateControl(ccsLabel, "Add_Breeder_info", "Add_Breeder_info", ccsText, Empty, CCGetRequestParam("Add_Breeder_info", ccsGet))
        Set TrueFalse = CCCreateControl(ccsLabel, "TrueFalse", "TrueFalse", ccsBoolean, Empty, CCGetRequestParam("TrueFalse", ccsGet))
        Set Alt_PKID = CCCreateControl(ccsLink, "Alt_PKID", "Alt_PKID", ccsInteger, Empty, CCGetRequestParam("Alt_PKID", ccsGet))
        Set Alt_Cust_ID_Name = CCCreateControl(ccsLabel, "Alt_Cust_ID_Name", "Alt_Cust_ID_Name", ccsText, Empty, CCGetRequestParam("Alt_Cust_ID_Name", ccsGet))
        Set Alt_Customer_ID = CCCreateControl(ccsLabel, "Alt_Customer_ID", "Alt_Customer_ID", ccsText, Empty, CCGetRequestParam("Alt_Customer_ID", ccsGet))
        Set Alt_Last_Name = CCCreateControl(ccsLabel, "Alt_Last_Name", "Alt_Last_Name", ccsText, Empty, CCGetRequestParam("Alt_Last_Name", ccsGet))
        Set Alt_First_Names = CCCreateControl(ccsLabel, "Alt_First_Names", "Alt_First_Names", ccsText, Empty, CCGetRequestParam("Alt_First_Names", ccsGet))
        Set Alt_Kennel_Name = CCCreateControl(ccsLabel, "Alt_Kennel_Name", "Alt_Kennel_Name", ccsText, Empty, CCGetRequestParam("Alt_Kennel_Name", ccsGet))
        Set Alt_Short_Addr = CCCreateControl(ccsLabel, "Alt_Short_Addr", "Alt_Short_Addr", ccsText, Empty, CCGetRequestParam("Alt_Short_Addr", ccsGet))
        Set Alt_Address = CCCreateControl(ccsLabel, "Alt_Address", "Alt_Address", ccsText, Empty, CCGetRequestParam("Alt_Address", ccsGet))
        Set Alt_CITY = CCCreateControl(ccsLabel, "Alt_CITY", "Alt_CITY", ccsText, Empty, CCGetRequestParam("Alt_CITY", ccsGet))
        Set Alt_STATE = CCCreateControl(ccsLabel, "Alt_STATE", "Alt_STATE", ccsText, Empty, CCGetRequestParam("Alt_STATE", ccsGet))
        Set Alt_ZIP = CCCreateControl(ccsLabel, "Alt_ZIP", "Alt_ZIP", ccsText, Empty, CCGetRequestParam("Alt_ZIP", ccsGet))
        Set Alt_Notes = CCCreateControl(ccsLabel, "Alt_Notes", "Alt_Notes", ccsText, Empty, CCGetRequestParam("Alt_Notes", ccsGet))
        Set Alt_Phone = CCCreateControl(ccsLabel, "Alt_Phone", "Alt_Phone", ccsText, Empty, CCGetRequestParam("Alt_Phone", ccsGet))
        Set Alt_Fax = CCCreateControl(ccsLabel, "Alt_Fax", "Alt_Fax", ccsText, Empty, CCGetRequestParam("Alt_Fax", ccsGet))
        Set Alt_Email = CCCreateControl(ccsLabel, "Alt_Email", "Alt_Email", ccsText, Empty, CCGetRequestParam("Alt_Email", ccsGet))
        Set Alt_Vet_Contact = CCCreateControl(ccsLabel, "Alt_Vet_Contact", "Alt_Vet_Contact", ccsText, Empty, CCGetRequestParam("Alt_Vet_Contact", ccsGet))
        Set Alt_Status = CCCreateControl(ccsLabel, "Alt_Status", "Alt_Status", ccsText, Empty, CCGetRequestParam("Alt_Status", ccsGet))
        Set Alt_paid = CCCreateControl(ccsLabel, "Alt_paid", "Alt_paid", ccsText, Empty, CCGetRequestParam("Alt_paid", ccsGet))
        Set Alt_Titles = CCCreateControl(ccsLabel, "Alt_Titles", "Alt_Titles", ccsText, Empty, CCGetRequestParam("Alt_Titles", ccsGet))
        Set Alt_Club_Officer_1 = CCCreateControl(ccsLabel, "Alt_Club_Officer_1", "Alt_Club_Officer_1", ccsBoolean, Empty, CCGetRequestParam("Alt_Club_Officer_1", ccsGet))
        Set Alt_Office_Held = CCCreateControl(ccsLabel, "Alt_Office_Held", "Alt_Office_Held", ccsText, Empty, CCGetRequestParam("Alt_Office_Held", ccsGet))
        Set Alt_MEMCode = CCCreateControl(ccsLabel, "Alt_MEMCode", "Alt_MEMCode", ccsMemo, Empty, CCGetRequestParam("Alt_MEMCode", ccsGet))
        Set Alt_Join_Date = CCCreateControl(ccsLabel, "Alt_Join_Date", "Alt_Join_Date", ccsDate, Empty, CCGetRequestParam("Alt_Join_Date", ccsGet))
        Set Alt_Dog_Owner = CCCreateControl(ccsLabel, "Alt_Dog_Owner", "Alt_Dog_Owner", ccsBoolean, Empty, CCGetRequestParam("Alt_Dog_Owner", ccsGet))
        Set Alt_Dog_Full_Name = CCCreateControl(ccsLabel, "Alt_Dog_Full_Name", "Alt_Dog_Full_Name", ccsText, Empty, CCGetRequestParam("Alt_Dog_Full_Name", ccsGet))
        Set Alt_AKC_Num = CCCreateControl(ccsLabel, "Alt_AKC_Num", "Alt_AKC_Num", ccsText, Empty, CCGetRequestParam("Alt_AKC_Num", ccsGet))
        Set Alt_Dog_Call_Name = CCCreateControl(ccsLabel, "Alt_Dog_Call_Name", "Alt_Dog_Call_Name", ccsText, Empty, CCGetRequestParam("Alt_Dog_Call_Name", ccsGet))
        Set Alt_Breeder = CCCreateControl(ccsLabel, "Alt_Breeder", "Alt_Breeder", ccsText, Empty, CCGetRequestParam("Alt_Breeder", ccsGet))
        Set Alt_Add_Breeder_info = CCCreateControl(ccsLabel, "Alt_Add_Breeder_info", "Alt_Add_Breeder_info", ccsText, Empty, CCGetRequestParam("Alt_Add_Breeder_info", ccsGet))
        Set Alt_TrueFalse = CCCreateControl(ccsLabel, "Alt_TrueFalse", "Alt_TrueFalse", ccsBoolean, Empty, CCGetRequestParam("Alt_TrueFalse", ccsGet))
        Set members_TotalRecords = CCCreateControl(ccsLabel, "members_TotalRecords", "members_TotalRecords", ccsText, Empty, CCGetRequestParam("members_TotalRecords", ccsGet))
        Set Sorter_PKID = CCCreateSorter("Sorter_PKID", Me, FileName)
        Set Sorter_Cust_ID_Name = CCCreateSorter("Sorter_Cust_ID_Name", Me, FileName)
        Set Sorter_Customer_ID = CCCreateSorter("Sorter_Customer_ID", Me, FileName)
        Set Sorter_Last_Name = CCCreateSorter("Sorter_Last_Name", Me, FileName)
        Set Sorter_First_Names = CCCreateSorter("Sorter_First_Names", Me, FileName)
        Set Sorter_Kennel_Name = CCCreateSorter("Sorter_Kennel_Name", Me, FileName)
        Set Sorter_Short_Addr = CCCreateSorter("Sorter_Short_Addr", Me, FileName)
        Set Sorter_Address = CCCreateSorter("Sorter_Address", Me, FileName)
        Set Sorter_CITY = CCCreateSorter("Sorter_CITY", Me, FileName)
        Set Sorter_STATE = CCCreateSorter("Sorter_STATE", Me, FileName)
        Set Sorter_ZIP = CCCreateSorter("Sorter_ZIP", Me, FileName)
        Set Sorter_Notes = CCCreateSorter("Sorter_Notes", Me, FileName)
        Set Sorter_Phone = CCCreateSorter("Sorter_Phone", Me, FileName)
        Set Sorter_Fax = CCCreateSorter("Sorter_Fax", Me, FileName)
        Set Sorter_Email = CCCreateSorter("Sorter_Email", Me, FileName)
        Set Sorter_Vet_Contact = CCCreateSorter("Sorter_Vet_Contact", Me, FileName)
        Set Sorter_Status = CCCreateSorter("Sorter_Status", Me, FileName)
        Set Sorter_paid = CCCreateSorter("Sorter_paid", Me, FileName)
        Set Sorter_Titles = CCCreateSorter("Sorter_Titles", Me, FileName)
        Set Sorter_Club_Officer_1 = CCCreateSorter("Sorter_Club_Officer_1", Me, FileName)
        Set Sorter_Office_Held = CCCreateSorter("Sorter_Office_Held", Me, FileName)
        Set Sorter_Join_Date = CCCreateSorter("Sorter_Join_Date", Me, FileName)
        Set Sorter_Dog_Owner = CCCreateSorter("Sorter_Dog_Owner", Me, FileName)
        Set Sorter_Dog_Full_Name = CCCreateSorter("Sorter_Dog_Full_Name", Me, FileName)
        Set Sorter_AKC_Num = CCCreateSorter("Sorter_AKC_Num", Me, FileName)
        Set Sorter_Dog_Call_Name = CCCreateSorter("Sorter_Dog_Call_Name", Me, FileName)
        Set Sorter_Breeder = CCCreateSorter("Sorter_Breeder", Me, FileName)
        Set Sorter_Add_Breeder_info = CCCreateSorter("Sorter_Add_Breeder_info", Me, FileName)
        Set Sorter_TrueFalse = CCCreateSorter("Sorter_TrueFalse", Me, FileName)
        Set members_Insert = CCCreateControl(ccsLink, "members_Insert", "members_Insert", ccsText, Empty, CCGetRequestParam("members_Insert", ccsGet))
        Set Navigator = CCCreateNavigator(ComponentName, "Navigator", FileName, 10, tpCentered)
    End Sub
'End members Class_Initialize Event

'members 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 members Initialize Method

'members Class_Terminate Event @2-E1528F98
    Private Sub Class_Terminate()
        Set DataSource = Nothing
        Set Command = Nothing
        Set Errors = Nothing
    End Sub
'End members Class_Terminate Event

'members Show Method @2-09B3327F
    Sub Show(Tpl)
        If NOT Visible Then Exit Sub

        Dim RecordCounter, ShownRecords
        Dim RowBlock, SeparatorBlock, AltRowBlock

        With DataSource
            .Parameters("urls_PKID") = CCGetRequestParam("s_PKID", ccsGET)
            .Parameters("urls_Customer_ID") = CCGetRequestParam("s_Customer_ID", ccsGET)
            .Parameters("urls_Last_Name") = CCGetRequestParam("s_Last_Name", ccsGET)
            .Parameters("urls_First_Names") = CCGetRequestParam("s_First_Names", ccsGET)
            .Parameters("urls_Kennel_Name") = CCGetRequestParam("s_Kennel_Name", ccsGET)
            .Parameters("urls_Dog_Full_Name") = CCGetRequestParam("s_Dog_Full_Name", ccsGET)
            .Parameters("urls_Dog_Call_Name") = CCGetRequestParam("s_Dog_Call_Name", 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 SeparatorBlock = TemplateBlock.Block("Separator")
        Set AltRowBlock = TemplateBlock.Block("AltRow")
        Set StaticControls = CCCreateCollection(TemplateBlock, Null, ccsParseOverwrite, _
            Array(members_TotalRecords, Sorter_PKID, Sorter_Cust_ID_Name, Sorter_Customer_ID, Sorter_Last_Name, Sorter_First_Names, Sorter_Kennel_Name, Sorter_Short_Addr, Sorter_Address, Sorter_CITY, Sorter_STATE, Sorter_ZIP, Sorter_Notes, Sorter_Phone, Sorter_Fax, Sorter_Email, Sorter_Vet_Contact, Sorter_Status, Sorter_paid, Sorter_Titles, Sorter_Club_Officer_1, Sorter_Office_Held, Sorter_Join_Date, Sorter_Dog_Owner, Sorter_Dog_Full_Name, Sorter_AKC_Num, Sorter_Dog_Call_Name, Sorter_Breeder, Sorter_Add_Breeder_info, Sorter_TrueFalse, members_Insert, Navigator))
        Set RowControls = CCCreateCollection(RowBlock, Null, ccsParseAccumulate, _
            Array(PKID, Cust_ID_Name, Customer_ID, Last_Name, First_Names, Kennel_Name, Short_Addr, Address, CITY, STATE, ZIP, Notes, Phone, Fax, Email, Vet_Contact, Status, paid, Titles, Club_Officer_1, Office_Held, MEMCode, Join_Date, Dog_Owner, Dog_Full_Name, AKC_Num, Dog_Call_Name, Breeder, Add_Breeder_info, TrueFalse))
        Set AltRowControls = CCCreateCollection(AltRowBlock, RowBlock, ccsParseAccumulate, _
            Array(Alt_PKID, Alt_Cust_ID_Name, Alt_Customer_ID, Alt_Last_Name, Alt_First_Names, Alt_Kennel_Name, Alt_Short_Addr, Alt_Address, Alt_CITY, Alt_STATE, Alt_ZIP, Alt_Notes, Alt_Phone, Alt_Fax, Alt_Email, Alt_Vet_Contact, Alt_Status, Alt_paid, Alt_Titles, Alt_Club_Officer_1, Alt_Office_Held, Alt_MEMCode, Alt_Join_Date, Alt_Dog_Owner, Alt_Dog_Full_Name, Alt_AKC_Num, Alt_Dog_Call_Name, Alt_Breeder, Alt_Add_Breeder_info, Alt_TrueFalse))

        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShow", Me)
        If NOT Visible Then Exit Sub

        Errors.AddErrors DataSource.Errors
        If Errors.Count > 0 Then
            TemplateBlock.HTML = CCFormatError("Grid members", 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
                If RenderAltRow Then
                    Alt_PKID.Value = Recordset.Fields("Alt_PKID")
                    Alt_PKID.Parameters = CCGetQueryString("QueryString", Array("ccsForm"))
                    Alt_PKID.Parameters = CCAddParam(Alt_PKID.Parameters, "PKID", Recordset.Fields("Alt_PKID_param1"))
                    Alt_PKID.Page = "members.asp"
                    Alt_Cust_ID_Name.Value = Recordset.Fields("Alt_Cust_ID_Name")
                    Alt_Customer_ID.Value = Recordset.Fields("Alt_Customer_ID")
                    Alt_Last_Name.Value = Recordset.Fields("Alt_Last_Name")
                    Alt_First_Names.Value = Recordset.Fields("Alt_First_Names")
                    Alt_Kennel_Name.Value = Recordset.Fields("Alt_Kennel_Name")
                    Alt_Short_Addr.Value = Recordset.Fields("Alt_Short_Addr")
                    Alt_Address.Value = Recordset.Fields("Alt_Address")
                    Alt_CITY.Value = Recordset.Fields("Alt_CITY")
                    Alt_STATE.Value = Recordset.Fields("Alt_STATE")
                    Alt_ZIP.Value = Recordset.Fields("Alt_ZIP")
                    Alt_Notes.Value = Recordset.Fields("Alt_Notes")
                    Alt_Phone.Value = Recordset.Fields("Alt_Phone")
                    Alt_Fax.Value = Recordset.Fields("Alt_Fax")
                    Alt_Email.Value = Recordset.Fields("Alt_Email")
                    Alt_Vet_Contact.Value = Recordset.Fields("Alt_Vet_Contact")
                    Alt_Status.Value = Recordset.Fields("Alt_Status")
                    Alt_paid.Value = Recordset.Fields("Alt_paid")
                    Alt_Titles.Value = Recordset.Fields("Alt_Titles")
                    Alt_Club_Officer_1.Value = Recordset.Fields("Alt_Club_Officer_1")
                    Alt_Office_Held.Value = Recordset.Fields("Alt_Office_Held")
                    Alt_MEMCode.Value = Recordset.Fields("Alt_MEMCode")
                    Alt_Join_Date.Value = Recordset.Fields("Alt_Join_Date")
                    Alt_Dog_Owner.Value = Recordset.Fields("Alt_Dog_Owner")
                    Alt_Dog_Full_Name.Value = Recordset.Fields("Alt_Dog_Full_Name")
                    Alt_AKC_Num.Value = Recordset.Fields("Alt_AKC_Num")
                    Alt_Dog_Call_Name.Value = Recordset.Fields("Alt_Dog_Call_Name")
                    Alt_Breeder.Value = Recordset.Fields("Alt_Breeder")
                    Alt_Add_Breeder_info.Value = Recordset.Fields("Alt_Add_Breeder_info")
                    Alt_TrueFalse.Value = Recordset.Fields("Alt_TrueFalse")
                    CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShowRow", Me)
                    AltRowControls.Show
                Else
                    PKID.Value = Recordset.Fields("PKID")
                    PKID.Parameters = CCGetQueryString("QueryString", Array("ccsForm"))
                    PKID.Parameters = CCAddParam(PKID.Parameters, "PKID", Recordset.Fields("PKID_param1"))
                    PKID.Page = "members.asp"
                    Cust_ID_Name.Value = Recordset.Fields("Cust_ID_Name")
                    Customer_ID.Value = Recordset.Fields("Customer_ID")
                    Last_Name.Value = Recordset.Fields("Last_Name")
                    First_Names.Value = Recordset.Fields("First_Names")
                    Kennel_Name.Value = Recordset.Fields("Kennel_Name")
                    Short_Addr.Value = Recordset.Fields("Short_Addr")
                    Address.Value = Recordset.Fields("Address")
                    CITY.Value = Recordset.Fields("CITY")
                    STATE.Value = Recordset.Fields("STATE")
                    ZIP.Value = Recordset.Fields("ZIP")
                    Notes.Value = Recordset.Fields("Notes")
                    Phone.Value = Recordset.Fields("Phone")
                    Fax.Value = Recordset.Fields("Fax")
                    Email.Value = Recordset.Fields("Email")
                    Vet_Contact.Value = Recordset.Fields("Vet_Contact")
                    Status.Value = Recordset.Fields("Status")
                    paid.Value = Recordset.Fields("paid")
                    Titles.Value = Recordset.Fields("Titles")
                    Club_Officer_1.Value = Recordset.Fields("Club_Officer_1")
                    Office_Held.Value = Recordset.Fields("Office_Held")
                    MEMCode.Value = Recordset.Fields("MEMCode")
                    Join_Date.Value = Recordset.Fields("Join_Date")
                    Dog_Owner.Value = Recordset.Fields("Dog_Owner")
                    Dog_Full_Name.Value = Recordset.Fields("Dog_Full_Name")
                    AKC_Num.Value = Recordset.Fields("AKC_Num")
                    Dog_Call_Name.Value = Recordset.Fields("Dog_Call_Name")
                    Breeder.Value = Recordset.Fields("Breeder")
                    Add_Breeder_info.Value = Recordset.Fields("Add_Breeder_info")
                    TrueFalse.Value = Recordset.Fields("TrueFalse")
                    CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeShowRow", Me)
                    RowControls.Show
                End If
                RenderAltRow = NOT RenderAltRow
                Recordset.MoveNext
                ShownRecords = ShownRecords + 1

                ' Parse Separator
                If NOT Recordset.EOF AND ShownRecords < PageSize Then _
                    SeparatorBlock.ParseTo ccsParseAccumulate, RowBlock
            Wend
            
            
            members_Insert.Parameters = CCGetQueryString("QueryString", Array("PKID", "ccsForm"))
            members_Insert.Page = "members.asp"
            Navigator.SetDataSource Recordset
            StaticControls.Show
        End If

    End Sub
'End members Show Method

'members PageSize Property Let @2-54E46DD6
    Public Property Let PageSize(NewValue)
        VarPageSize = NewValue
        DataSource.PageSize = NewValue
    End Property
'End members PageSize Property Let

'members PageSize Property Get @2-9AA1D1E9
    Public Property Get PageSize()
        PageSize = VarPageSize
    End Property
'End members PageSize Property Get

End Class 'End members Class @2-A61BA892

Class clsmembersDataSource 'membersDataSource Class @2-4C020120

'DataSource Variables @2-7D57A053
    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 PKID
    Public PKID_param1
    Public Cust_ID_Name
    Public Customer_ID
    Public Last_Name
    Public First_Names
    Public Kennel_Name
    Public Short_Addr
    Public Address
    Public CITY
    Public STATE
    Public ZIP
    Public Notes
    Public Phone
    Public Fax
    Public Email
    Public Vet_Contact
    Public Status
    Public paid
    Public Titles
    Public Club_Officer_1
    Public Office_Held
    Public MEMCode
    Public Join_Date
    Public Dog_Owner
    Public Dog_Full_Name
    Public AKC_Num
    Public Dog_Call_Name
    Public Breeder
    Public Add_Breeder_info
    Public TrueFalse
    Public Alt_PKID
    Public Alt_PKID_param1
    Public Alt_Cust_ID_Name
    Public Alt_Customer_ID
    Public Alt_Last_Name
    Public Alt_First_Names
    Public Alt_Kennel_Name
    Public Alt_Short_Addr
    Public Alt_Address
    Public Alt_CITY
    Public Alt_STATE
    Public Alt_ZIP
    Public Alt_Notes
    Public Alt_Phone
    Public Alt_Fax
    Public Alt_Email
    Public Alt_Vet_Contact
    Public Alt_Status
    Public Alt_paid
    Public Alt_Titles
    Public Alt_Club_Officer_1
    Public Alt_Office_Held
    Public Alt_MEMCode
    Public Alt_Join_Date
    Public Alt_Dog_Owner
    Public Alt_Dog_Full_Name
    Public Alt_AKC_Num
    Public Alt_Dog_Call_Name
    Public Alt_Breeder
    Public Alt_Add_Breeder_info
    Public Alt_TrueFalse
'End DataSource Variables

'DataSource Class_Initialize Event @2-8D79667B
    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 PKID = CCCreateField("PKID", "PKID", ccsInteger, Empty, Recordset)
        Set PKID_param1 = CCCreateField("PKID_param1", "PKID", ccsText, Empty, Recordset)
        Set Cust_ID_Name = CCCreateField("Cust_ID_Name", "Cust_ID_Name", ccsText, Empty, Recordset)
        Set Customer_ID = CCCreateField("Customer_ID", "Customer_ID", ccsText, Empty, Recordset)
        Set Last_Name = CCCreateField("Last_Name", "Last Name", ccsText, Empty, Recordset)
        Set First_Names = CCCreateField("First_Names", "First Names", ccsText, Empty, Recordset)
        Set Kennel_Name = CCCreateField("Kennel_Name", "Kennel_Name", ccsText, Empty, Recordset)
        Set Short_Addr = CCCreateField("Short_Addr", "Short Addr", ccsText, Empty, Recordset)
        Set Address = CCCreateField("Address", "Address", ccsText, Empty, Recordset)
        Set CITY = CCCreateField("CITY", "CITY", ccsText, Empty, Recordset)
        Set STATE = CCCreateField("STATE", "STATE", ccsText, Empty, Recordset)
        Set ZIP = CCCreateField("ZIP", "ZIP", ccsText, Empty, Recordset)
        Set Notes = CCCreateField("Notes", "Notes", ccsText, Empty, Recordset)
        Set Phone = CCCreateField("Phone", "Phone", ccsText, Empty, Recordset)
        Set Fax = CCCreateField("Fax", "Fax", ccsText, Empty, Recordset)
        Set Email = CCCreateField("Email", "Email", ccsText, Empty, Recordset)
        Set Vet_Contact = CCCreateField("Vet_Contact", "Vet_Contact", ccsText, Empty, Recordset)
        Set Status = CCCreateField("Status", "Status", ccsText, Empty, Recordset)
        Set paid = CCCreateField("paid", "paid", ccsText, Empty, Recordset)
        Set Titles = CCCreateField("Titles", "Titles", ccsText, Empty, Recordset)
        Set Club_Officer_1 = CCCreateField("Club_Officer_1", "Club Officer?", ccsBoolean, Array("true", "false", Empty), Recordset)
        Set Office_Held = CCCreateField("Office_Held", "Office Held", ccsText, Empty, Recordset)
        Set MEMCode = CCCreateField("MEMCode", "MEMCode", ccsMemo, Empty, Recordset)
        Set Join_Date = CCCreateField("Join_Date", "Join Date", ccsDate, Array("yyyy", "-", "mm", "-", "dd", " ", "HH", ":", "nn", ":", "ss"), Recordset)
        Set Dog_Owner = CCCreateField("Dog_Owner", "Dog Owner", ccsBoolean, Array("true", "false", Empty), Recordset)
        Set Dog_Full_Name = CCCreateField("Dog_Full_Name", "Dog Full Name", ccsText, Empty, Recordset)
        Set AKC_Num = CCCreateField("AKC_Num", "AKC Num", ccsText, Empty, Recordset)
        Set Dog_Call_Name = CCCreateField("Dog_Call_Name", "Dog Call Name", ccsText, Empty, Recordset)
        Set Breeder = CCCreateField("Breeder", "Breeder", ccsText, Empty, Recordset)
        Set Add_Breeder_info = CCCreateField("Add_Breeder_info", "Add_Breeder_info", ccsText, Empty, Recordset)
        Set TrueFalse = CCCreateField("TrueFalse", "TrueFalse", ccsBoolean, Array("true", "false", Empty), Recordset)
        Set Alt_PKID = CCCreateField("Alt_PKID", "PKID", ccsInteger, Empty, Recordset)
        Set Alt_PKID_param1 = CCCreateField("Alt_PKID_param1", "PKID", ccsText, Empty, Recordset)
        Set Alt_Cust_ID_Name = CCCreateField("Alt_Cust_ID_Name", "Cust_ID_Name", ccsText, Empty, Recordset)
        Set Alt_Customer_ID = CCCreateField("Alt_Customer_ID", "Customer_ID", ccsText, Empty, Recordset)
        Set Alt_Last_Name = CCCreateField("Alt_Last_Name", "Last Name", ccsText, Empty, Recordset)
        Set Alt_First_Names = CCCreateField("Alt_First_Names", "First Names", ccsText, Empty, Recordset)
        Set Alt_Kennel_Name = CCCreateField("Alt_Kennel_Name", "Kennel_Name", ccsText, Empty, Recordset)
        Set Alt_Short_Addr = CCCreateField("Alt_Short_Addr", "Short Addr", ccsText, Empty, Recordset)
        Set Alt_Address = CCCreateField("Alt_Address", "Address", ccsText, Empty, Recordset)
        Set Alt_CITY = CCCreateField("Alt_CITY", "CITY", ccsText, Empty, Recordset)
        Set Alt_STATE = CCCreateField("Alt_STATE", "STATE", ccsText, Empty, Recordset)
        Set Alt_ZIP = CCCreateField("Alt_ZIP", "ZIP", ccsText, Empty, Recordset)
        Set Alt_Notes = CCCreateField("Alt_Notes", "Notes", ccsText, Empty, Recordset)
        Set Alt_Phone = CCCreateField("Alt_Phone", "Phone", ccsText, Empty, Recordset)
        Set Alt_Fax = CCCreateField("Alt_Fax", "Fax", ccsText, Empty, Recordset)
        Set Alt_Email = CCCreateField("Alt_Email", "Email", ccsText, Empty, Recordset)
        Set Alt_Vet_Contact = CCCreateField("Alt_Vet_Contact", "Vet_Contact", ccsText, Empty, Recordset)
        Set Alt_Status = CCCreateField("Alt_Status", "Status", ccsText, Empty, Recordset)
        Set Alt_paid = CCCreateField("Alt_paid", "paid", ccsText, Empty, Recordset)
        Set Alt_Titles = CCCreateField("Alt_Titles", "Titles", ccsText, Empty, Recordset)
        Set Alt_Club_Officer_1 = CCCreateField("Alt_Club_Officer_1", "Club Officer?", ccsBoolean, Array("true", "false", Empty), Recordset)
        Set Alt_Office_Held = CCCreateField("Alt_Office_Held", "Office Held", ccsText, Empty, Recordset)
        Set Alt_MEMCode = CCCreateField("Alt_MEMCode", "MEMCode", ccsMemo, Empty, Recordset)
        Set Alt_Join_Date = CCCreateField("Alt_Join_Date", "Join Date", ccsDate, Array("yyyy", "-", "mm", "-", "dd", " ", "HH", ":", "nn", ":", "ss"), Recordset)
        Set Alt_Dog_Owner = CCCreateField("Alt_Dog_Owner", "Dog Owner", ccsBoolean, Array("true", "false", Empty), Recordset)
        Set Alt_Dog_Full_Name = CCCreateField("Alt_Dog_Full_Name", "Dog Full Name", ccsText, Empty, Recordset)
        Set Alt_AKC_Num = CCCreateField("Alt_AKC_Num", "AKC Num", ccsText, Empty, Recordset)
        Set Alt_Dog_Call_Name = CCCreateField("Alt_Dog_Call_Name", "Dog Call Name", ccsText, Empty, Recordset)
        Set Alt_Breeder = CCCreateField("Alt_Breeder", "Breeder", ccsText, Empty, Recordset)
        Set Alt_Add_Breeder_info = CCCreateField("Alt_Add_Breeder_info", "Add_Breeder_info", ccsText, Empty, Recordset)
        Set Alt_TrueFalse = CCCreateField("Alt_TrueFalse", "TrueFalse", ccsBoolean, Array("true", "false", Empty), Recordset)
        Fields.AddFields Array(PKID,  PKID_param1,  Cust_ID_Name,  Customer_ID,  Last_Name,  First_Names,  Kennel_Name, _
             Short_Addr,  Address,  CITY,  STATE,  ZIP,  Notes,  Phone,  Fax, _
             Email,  Vet_Contact,  Status,  paid,  Titles,  Club_Officer_1,  Office_Held,  MEMCode, _
             Join_Date,  Dog_Owner,  Dog_Full_Name,  AKC_Num,  Dog_Call_Name,  Breeder,  Add_Breeder_info,  TrueFalse, _
             Alt_PKID,  Alt_PKID_param1,  Alt_Cust_ID_Name,  Alt_Customer_ID,  Alt_Last_Name,  Alt_First_Names,  Alt_Kennel_Name,  Alt_Short_Addr, _
             Alt_Address,  Alt_CITY,  Alt_STATE,  Alt_ZIP,  Alt_Notes,  Alt_Phone,  Alt_Fax,  Alt_Email, _
             Alt_Vet_Contact,  Alt_Status,  Alt_paid,  Alt_Titles,  Alt_Club_Officer_1,  Alt_Office_Held,  Alt_MEMCode,  Alt_Join_Date, _
             Alt_Dog_Owner,  Alt_Dog_Full_Name,  Alt_AKC_Num,  Alt_Dog_Call_Name,  Alt_Breeder,  Alt_Add_Breeder_info,  Alt_TrueFalse)
        Set Parameters = Server.CreateObject("Scripting.Dictionary")
        Set WhereParameters = Nothing
        Orders = Array( _ 
            Array("Sorter_PKID", "PKID", ""), _
            Array("Sorter_Cust_ID_Name", "Cust_ID_Name", ""), _
            Array("Sorter_Customer_ID", "Customer_ID", ""), _
            Array("Sorter_Last_Name", "[Last Name]", ""), _
            Array("Sorter_First_Names", "[First Names]", ""), _
            Array("Sorter_Kennel_Name", "Kennel_Name", ""), _
            Array("Sorter_Short_Addr", "[Short Addr]", ""), _
            Array("Sorter_Address", "Address", ""), _
            Array("Sorter_CITY", "CITY", ""), _
            Array("Sorter_STATE", "STATE", ""), _
            Array("Sorter_ZIP", "ZIP", ""), _
            Array("Sorter_Notes", "Notes", ""), _
            Array("Sorter_Phone", "Phone", ""), _
            Array("Sorter_Fax", "Fax", ""), _
            Array("Sorter_Email", "Email", ""), _
            Array("Sorter_Vet_Contact", "Vet_Contact", ""), _
            Array("Sorter_Status", "Status", ""), _
            Array("Sorter_paid", "paid", ""), _
            Array("Sorter_Titles", "Titles", ""), _
            Array("Sorter_Club_Officer_1", "[Club Officer?]", ""), _
            Array("Sorter_Office_Held", "[Office Held]", ""), _
            Array("Sorter_Join_Date", "[Join Date]", ""), _
            Array("Sorter_Dog_Owner", "[Dog Owner]", ""), _
            Array("Sorter_Dog_Full_Name", "[Dog Full Name]", ""), _
            Array("Sorter_AKC_Num", "[AKC Num]", ""), _
            Array("Sorter_Dog_Call_Name", "[Dog Call Name]", ""), _
            Array("Sorter_Breeder", "Breeder", ""), _
            Array("Sorter_Add_Breeder_info", "Add_Breeder_info", ""), _
            Array("Sorter_TrueFalse", "TrueFalse", ""))

        SQL = "SELECT TOP {SqlParam_endRecord}  *  " & _
        "FROM members"
        CountSQL = "SELECT COUNT(*)  " & _
        "FROM members"
        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-9E7E6B50
    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, "urls_PKID", ccsInteger, Empty, Empty, Empty, False
            .AddParameter 2, "urls_Customer_ID", ccsText, Empty, Empty, Empty, False
            .AddParameter 3, "urls_Last_Name", ccsText, Empty, Empty, Empty, False
            .AddParameter 4, "urls_First_Names", ccsText, Empty, Empty, Empty, False
            .AddParameter 5, "urls_Kennel_Name", ccsText, Empty, Empty, Empty, False
            .AddParameter 6, "urls_Dog_Full_Name", ccsText, Empty, Empty, Empty, False
            .AddParameter 7, "urls_Dog_Call_Name", ccsText, Empty, Empty, Empty, False
            .Criterion(1) = .Operation(opEqual, False, "PKID", .getParamByID(1))
            .Criterion(2) = .Operation(opContains, False, "Customer_ID", .getParamByID(2))
            .Criterion(3) = .Operation(opContains, False, "[Last Name]", .getParamByID(3))
            .Criterion(4) = .Operation(opContains, False, "[First Names]", .getParamByID(4))
            .Criterion(5) = .Operation(opContains, False, "Kennel_Name", .getParamByID(5))
            .Criterion(6) = .Operation(opContains, False, "[Dog Full Name]", .getParamByID(6))
            .Criterion(7) = .Operation(opContains, False, "[Dog Call Name]", .getParamByID(7))
            .AssembledWhere = .opAND(False, .opAND(False, .opAND(False, .opAND(False, .opAND(False, .opAND(False, .Criterion(1), .Criterion(2)), .Criterion(3)), .Criterion(4)), .Criterion(5)), .Criterion(6)), .Criterion(7))
            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 @2-192E38F9
    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
        BuildTableWhere
        Cmd.Where = Where
        Cmd.OrderBy = Order
        Cmd.Options("TOP") = 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 membersDataSource Class @2-A61BA892

Class clsRecordmembers1 'members1 Class @117-65C65D8A

'members1 Variables @117-342F1DAF

    ' 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 Customer_ID
    Dim Last_Name
    Dim First_Names
    Dim Kennel_Name
    Dim Short_Addr
    Dim CITY
    Dim STATE
    Dim ZIP
    Dim Phone
    Dim Fax
    Dim Email
    Dim Office_Held
    Dim MEMCode
    Dim Join_Date
    Dim DatePicker_Join_Date
    Dim Dog_Full_Name
    Dim AKC_Num
    Dim Dog_Call_Name
    Dim Breeder
    Dim Button_Insert
    Dim Button_Update
    Dim Button_Delete
    Dim Button_Cancel
'End members1 Variables

'members1 Class_Initialize Event @117-5191BECF
    Private Sub Class_Initialize()

        Visible = True
        Set Errors = New clsErrors
        Set CCSEvents = CreateObject("Scripting.Dictionary")
        Set DataSource = New clsmembers1DataSource
        Set Command = New clsCommand
        InsertAllowed = True
        UpdateAllowed = True
        DeleteAllowed = True
        ReadAllowed = True
        Dim Method
        Dim OperationMode
        OperationMode = Split(CCGetFromGet("ccsForm", Empty), ":")
        If UBound(OperationMode) > -1 Then 
            FormSubmitted = (OperationMode(0) = "members1")
        End If
        If UBound(OperationMode) > 0 Then 
            EditMode = (OperationMode(1) = "Edit")
        End If
        ComponentName = "members1"
        Method = IIf(FormSubmitted, ccsPost, ccsGet)
        Set Customer_ID = CCCreateControl(ccsTextBox, "Customer_ID", "Customer ID", ccsText, Empty, CCGetRequestParam("Customer_ID", Method))
        Set Last_Name = CCCreateControl(ccsTextBox, "Last_Name", "Last Name", ccsText, Empty, CCGetRequestParam("Last_Name", Method))
        Set First_Names = CCCreateControl(ccsTextBox, "First_Names", "First Names", ccsText, Empty, CCGetRequestParam("First_Names", Method))
        Set Kennel_Name = CCCreateControl(ccsTextBox, "Kennel_Name", "Kennel Name", ccsText, Empty, CCGetRequestParam("Kennel_Name", Method))
        Set Short_Addr = CCCreateControl(ccsTextBox, "Short_Addr", "Short Addr", ccsText, Empty, CCGetRequestParam("Short_Addr", Method))
        Set CITY = CCCreateControl(ccsTextBox, "CITY", "CITY", ccsText, Empty, CCGetRequestParam("CITY", Method))
        Set STATE = CCCreateControl(ccsTextBox, "STATE", "STATE", ccsText, Empty, CCGetRequestParam("STATE", Method))
        Set ZIP = CCCreateControl(ccsTextBox, "ZIP", "ZIP", ccsText, Empty, CCGetRequestParam("ZIP", Method))
        Set Phone = CCCreateControl(ccsTextBox, "Phone", "Phone", ccsText, Empty, CCGetRequestParam("Phone", Method))
        Set Fax = CCCreateControl(ccsTextBox, "Fax", "Fax", ccsText, Empty, CCGetRequestParam("Fax", Method))
        Set Email = CCCreateControl(ccsTextBox, "Email", "Email", ccsText, Empty, CCGetRequestParam("Email", Method))
        Set Office_Held = CCCreateControl(ccsTextBox, "Office_Held", "Office Held", ccsText, Empty, CCGetRequestParam("Office_Held", Method))
        Set MEMCode = CCCreateControl(ccsTextArea, "MEMCode", "MEMCode", ccsMemo, Empty, CCGetRequestParam("MEMCode", Method))
        Set Join_Date = CCCreateControl(ccsTextBox, "Join_Date", "Join Date", ccsDate, Empty, CCGetRequestParam("Join_Date", Method))
        Set DatePicker_Join_Date = CCCreateDatePicker("DatePicker_Join_Date", "members1", "Join_Date")
        Set Dog_Full_Name = CCCreateControl(ccsTextBox, "Dog_Full_Name", "Dog Full Name", ccsText, Empty, CCGetRequestParam("Dog_Full_Name", Method))
        Set AKC_Num = CCCreateControl(ccsTextBox, "AKC_Num", "AKC Num", ccsText, Empty, CCGetRequestParam("AKC_Num", Method))
        Set Dog_Call_Name = CCCreateControl(ccsTextBox, "Dog_Call_Name", "Dog Call Name", ccsText, Empty, CCGetRequestParam("Dog_Call_Name", Method))
        Set Breeder = CCCreateControl(ccsTextBox, "Breeder", "Breeder", ccsText, Empty, CCGetRequestParam("Breeder", Method))
        Set Button_Insert = CCCreateButton("Button_Insert")
        Set Button_Update = CCCreateButton("Button_Update")
        Set Button_Delete = CCCreateButton("Button_Delete")
        Set Button_Cancel = CCCreateButton("Button_Cancel")
        Set ValidatingControls = new clsControls
        ValidatingControls.addControls Array(Customer_ID, Last_Name, First_Names, Kennel_Name, Short_Addr, CITY, STATE, _
             ZIP, Phone, Fax, Email, Office_Held, MEMCode, Join_Date, Dog_Full_Name, _
             AKC_Num, Dog_Call_Name, Breeder)
        
    End Sub
'End members1 Class_Initialize Event

'members1 Initialize Method @117-88DA718F
    Sub Initialize(objConnection)

        If NOT Visible Then Exit Sub


        Set DataSource.Connection = objConnection
        With DataSource
            .Parameters("urlPKID") = CCGetRequestParam("PKID", ccsGET)
        End With
    End Sub
'End members1 Initialize Method

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

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

'members1 Operation Method @117-EC0496AF
    Sub Operation()
        If NOT ( Visible AND FormSubmitted ) Then Exit Sub

        If FormSubmitted Then
            PressedButton = IIf(EditMode, "Button_Update", "Button_Insert")
            If Not IsEmpty(CCGetParam("Button_Insert", Empty)) Then
                PressedButton = "Button_Insert"
            ElseIf Not IsEmpty(CCGetParam("Button_Update", Empty)) Then
                PressedButton = "Button_Update"
            ElseIf Not IsEmpty(CCGetParam("Button_Delete", Empty)) Then
                PressedButton = "Button_Delete"
            ElseIf Not IsEmpty(CCGetParam("Button_Cancel", Empty)) Then
                PressedButton = "Button_Cancel"
            End If
        End If
        Redirect = "members.asp?" & CCGetQueryString("QueryString", Array("ccsForm", "Button_Insert", "Button_Update", "Button_Delete", "Button_Cancel"))
        If PressedButton = "Button_Delete" Then
            If NOT Button_Delete.OnClick OR NOT DeleteRow() Then
                Redirect = ""
            End If
        ElseIf PressedButton = "Button_Cancel" Then
            If NOT Button_Cancel.OnClick Then
                Redirect = ""
            End If
        ElseIf Validate() Then
            If PressedButton = "Button_Insert" Then
                If NOT Button_Insert.OnClick() OR NOT InsertRow() Then
                    Redirect = ""
                End If
            ElseIf PressedButton = "Button_Update" Then
                If NOT Button_Update.OnClick() OR NOT UpdateRow() Then
                    Redirect = ""
                End If
            End If
        Else
            Redirect = ""
        End If
    End Sub
'End members1 Operation Method

'members1 InsertRow Method @117-AF654AF1
    Function InsertRow()
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeInsert", Me)
        If NOT InsertAllowed Then InsertRow = False : Exit Function
        DataSource.Customer_ID.Value = Customer_ID.Value
        DataSource.Last_Name.Value = Last_Name.Value
        DataSource.First_Names.Value = First_Names.Value
        DataSource.Kennel_Name.Value = Kennel_Name.Value
        DataSource.Short_Addr.Value = Short_Addr.Value
        DataSource.CITY.Value = CITY.Value
        DataSource.STATE.Value = STATE.Value
        DataSource.ZIP.Value = ZIP.Value
        DataSource.Phone.Value = Phone.Value
        DataSource.Fax.Value = Fax.Value
        DataSource.Email.Value = Email.Value
        DataSource.Office_Held.Value = Office_Held.Value
        DataSource.MEMCode.Value = MEMCode.Value
        DataSource.Join_Date.Value = Join_Date.Value
        DataSource.Dog_Full_Name.Value = Dog_Full_Name.Value
        DataSource.AKC_Num.Value = AKC_Num.Value
        DataSource.Dog_Call_Name.Value = Dog_Call_Name.Value
        DataSource.Breeder.Value = Breeder.Value
        DataSource.Insert(Command)


        CCSEventResult = CCRaiseEvent(CCSEvents, "AfterInsert", Me)
        If DataSource.Errors.Count > 0 Then
            Errors.AddErrors(DataSource.Errors)
            DataSource.Errors.Clear
        End If
        InsertRow = (Errors.Count = 0)
    End Function
'End members1 InsertRow Method

'members1 UpdateRow Method @117-D09422A6
    Function UpdateRow()
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeUpdate", Me)
        If NOT UpdateAllowed Then UpdateRow = False : Exit Function
        DataSource.Customer_ID.Value = Customer_ID.Value
        DataSource.Last_Name.Value = Last_Name.Value
        DataSource.First_Names.Value = First_Names.Value
        DataSource.Kennel_Name.Value = Kennel_Name.Value
        DataSource.Short_Addr.Value = Short_Addr.Value
        DataSource.CITY.Value = CITY.Value
        DataSource.STATE.Value = STATE.Value
        DataSource.ZIP.Value = ZIP.Value
        DataSource.Phone.Value = Phone.Value
        DataSource.Fax.Value = Fax.Value
        DataSource.Email.Value = Email.Value
        DataSource.Office_Held.Value = Office_Held.Value
        DataSource.MEMCode.Value = MEMCode.Value
        DataSource.Join_Date.Value = Join_Date.Value
        DataSource.Dog_Full_Name.Value = Dog_Full_Name.Value
        DataSource.AKC_Num.Value = AKC_Num.Value
        DataSource.Dog_Call_Name.Value = Dog_Call_Name.Value
        DataSource.Breeder.Value = Breeder.Value
        DataSource.Update(Command)


        CCSEventResult = CCRaiseEvent(CCSEvents, "AfterUpdate", Me)
        If DataSource.Errors.Count > 0 Then
            Errors.AddErrors(DataSource.Errors)
            DataSource.Errors.Clear
        End If
        UpdateRow = (Errors.Count = 0)
    End Function
'End members1 UpdateRow Method

'members1 DeleteRow Method @117-D5C1DF24
    Function DeleteRow()
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeDelete", Me)
        If NOT DeleteAllowed Then DeleteRow = False : Exit Function
        DataSource.Delete(Command)


        CCSEventResult = CCRaiseEvent(CCSEvents, "AfterDelete", Me)
        If DataSource.Errors.Count > 0 Then
            Errors.AddErrors(DataSource.Errors)
            DataSource.Errors.Clear
        End If
        DeleteRow = (Errors.Count = 0)
    End Function
'End members1 DeleteRow Method

'members1 Show Method @117-9920F1C1
    Sub Show(Tpl)

        If NOT Visible Then Exit Sub

        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeSelect", Me)
        Set Recordset = DataSource.Open(Command)
        If Recordset.State = adStateOpen Then 
            EditMode = NOT Recordset.EOF And ReadAllowed
        Else 
            EditMode = False
        End If
        HTMLFormAction = FileName & "?" & CCAddParam(Request.ServerVariables("QUERY_STRING"), "ccsForm", "members1" & IIf(EditMode, ":Edit", ""))
        Set TemplateBlock = Tpl.Block("Record " & ComponentName)
        TemplateBlock.Variable("HTMLFormName") = ComponentName
        TemplateBlock.Variable("HTMLFormEnctype") ="application/x-www-form-urlencoded"
        If DataSource.Errors.Count > 0 Then
            Errors.AddErrors(DataSource.Errors)
            DataSource.Errors.Clear
            With TemplateBlock.Block("Error")
                .Variable("Error") = Errors.ToString
                .Parse False
            End With
        End If
        Set Controls = CCCreateCollection(TemplateBlock, Null, ccsParseOverwrite, _
            Array(Customer_ID,  Last_Name,  First_Names,  Kennel_Name,  Short_Addr,  CITY,  STATE, _
                 ZIP,  Phone,  Fax,  Email,  Office_Held,  MEMCode,  Join_Date,  DatePicker_Join_Date, _
                 Dog_Full_Name,  AKC_Num,  Dog_Call_Name,  Breeder,  Button_Insert,  Button_Update,  Button_Delete,  Button_Cancel))
        If EditMode And ReadAllowed Then
            If Errors.Count = 0 Then
                If Recordset.Errors.Count > 0 Then
                    With TemplateBlock.Block("Error")
                        .Variable("Error") = Recordset.Errors.ToString
                        .Parse False
                    End With
                ElseIf Not Recordset.EOF Then
                    If Not FormSubmitted Then
                        Customer_ID.Value = Recordset.Fields("Customer_ID")
                        Last_Name.Value = Recordset.Fields("Last_Name")
                        First_Names.Value = Recordset.Fields("First_Names")
                        Kennel_Name.Value = Recordset.Fields("Kennel_Name")
                        Short_Addr.Value = Recordset.Fields("Short_Addr")
                        CITY.Value = Recordset.Fields("CITY")
                        STATE.Value = Recordset.Fields("STATE")
                        ZIP.Value = Recordset.Fields("ZIP")
                        Phone.Value = Recordset.Fields("Phone")
                        Fax.Value = Recordset.Fields("Fax")
                        Email.Value = Recordset.Fields("Email")
                        Office_Held.Value = Recordset.Fields("Office_Held")
                        MEMCode.Value = Recordset.Fields("MEMCode")
                        Join_Date.Value = Recordset.Fields("Join_Date")
                        Dog_Full_Name.Value = Recordset.Fields("Dog_Full_Name")
                        AKC_Num.Value = Recordset.Fields("AKC_Num")
                        Dog_Call_Name.Value = Recordset.Fields("Dog_Call_Name")
                        Breeder.Value = Recordset.Fields("Breeder")
                    End If
                Else
                    EditMode = False
                End If
            End If
        End If
        If Not FormSubmitted Then
        End If
        If FormSubmitted Then
            With TemplateBlock.Block("Error")
                .Variable("Error") = ValidatingControls.GetErrors & Errors.ToString _
                    & DataSource.Errors.ToString
                .Parse False
            End With
        End If
        TemplateBlock.Variable("Action") = HTMLFormAction
        Button_Insert.Visible = NOT EditMode AND InsertAllowed
        Button_Update.Visible = EditMode AND UpdateAllowed
        Button_Delete.Visible = EditMode AND DeleteAllowed

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

End Class 'End members1 Class @117-A61BA892

Class clsmembers1DataSource 'members1DataSource Class @117-9088FC31

'DataSource Variables @117-4161646E
    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 Customer_ID
    Public Last_Name
    Public First_Names
    Public Kennel_Name
    Public Short_Addr
    Public CITY
    Public STATE
    Public ZIP
    Public Phone
    Public Fax
    Public Email
    Public Office_Held
    Public MEMCode
    Public Join_Date
    Public Dog_Full_Name
    Public AKC_Num
    Public Dog_Call_Name
    Public Breeder
'End DataSource Variables

'DataSource Class_Initialize Event @117-EECFA0A1
    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 Customer_ID = CCCreateField("Customer_ID", "Customer_ID", ccsText, Empty, Recordset)
        Set Last_Name = CCCreateField("Last_Name", "Last Name", ccsText, Empty, Recordset)
        Set First_Names = CCCreateField("First_Names", "First Names", ccsText, Empty, Recordset)
        Set Kennel_Name = CCCreateField("Kennel_Name", "Kennel_Name", ccsText, Empty, Recordset)
        Set Short_Addr = CCCreateField("Short_Addr", "Short Addr", ccsText, Empty, Recordset)
        Set CITY = CCCreateField("CITY", "CITY", ccsText, Empty, Recordset)
        Set STATE = CCCreateField("STATE", "STATE", ccsText, Empty, Recordset)
        Set ZIP = CCCreateField("ZIP", "ZIP", ccsText, Empty, Recordset)
        Set Phone = CCCreateField("Phone", "Phone", ccsText, Empty, Recordset)
        Set Fax = CCCreateField("Fax", "Fax", ccsText, Empty, Recordset)
        Set Email = CCCreateField("Email", "Email", ccsText, Empty, Recordset)
        Set Office_Held = CCCreateField("Office_Held", "Office Held", ccsText, Empty, Recordset)
        Set MEMCode = CCCreateField("MEMCode", "MEMCode", ccsMemo, Empty, Recordset)
        Set Join_Date = CCCreateField("Join_Date", "Join Date", ccsDate, Array("yyyy", "-", "mm", "-", "dd", " ", "HH", ":", "nn", ":", "ss"), Recordset)
        Set Dog_Full_Name = CCCreateField("Dog_Full_Name", "Dog Full Name", ccsText, Empty, Recordset)
        Set AKC_Num = CCCreateField("AKC_Num", "AKC Num", ccsText, Empty, Recordset)
        Set Dog_Call_Name = CCCreateField("Dog_Call_Name", "Dog Call Name", ccsText, Empty, Recordset)
        Set Breeder = CCCreateField("Breeder", "Breeder", ccsText, Empty, Recordset)
        Fields.AddFields Array(Customer_ID,  Last_Name,  First_Names,  Kennel_Name,  Short_Addr,  CITY,  STATE, _
             ZIP,  Phone,  Fax,  Email,  Office_Held,  MEMCode,  Join_Date,  Dog_Full_Name, _
             AKC_Num,  Dog_Call_Name,  Breeder)
        Set Parameters = Server.CreateObject("Scripting.Dictionary")
        Set WhereParameters = Nothing

        SQL = "SELECT TOP 1  *  " & _
        "FROM members"
        Where = ""
        Order = ""
    End Sub
'End DataSource Class_Initialize Event

'BuildTableWhere Method @117-B068C232
    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, "urlPKID", ccsInteger, Empty, Empty, Empty, False
            AllParamsSet = .AllParamsSet
            .Criterion(1) = .Operation(opEqual, False, "PKID", .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 @117-F51151ED
    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
        BuildTableWhere
        Cmd.Where = Where
        Cmd.OrderBy = Order
        Cmd.Options("TOP") = True
        If Not AllParamsSet Then
            Set Open = New clsEmptyDataSource
            Exit Function
        End If
        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 @117-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

'Delete Method @117-40EA7426
    Sub Delete(Cmd)
        CmdExecution = True
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeBuildDelete", Me)
        Set Cmd.Connection = Connection
        Cmd.CommandOperation = cmdExec
        Cmd.CommandType = dsTable
        Cmd.CommandParameters = Empty
        BuildTableWhere
        If NOT AllParamsSet Then
            Errors.AddError(CCSRunTimeMessages.GetMessage("CustomOperationError_MissingParameters", Empty))
        End If
        Cmd.SQL = "DELETE FROM members" & IIf(Len(Where) > 0, " WHERE " & Where, "")
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeExecuteDelete", Me)
        If Errors.Count = 0  And CmdExecution Then
            Cmd.Exec(Errors)
            CCSEventResult = CCRaiseEvent(CCSEvents, "AfterExecuteDelete", Me)
        End If
    End Sub
'End Delete Method

'Update Method @117-E4600C04
    Sub Update(Cmd)
        CmdExecution = True
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeBuildUpdate", Me)
        Set Cmd.Connection = Connection
        Cmd.CommandOperation = cmdExec
        Cmd.CommandType = dsTable
        Cmd.CommandParameters = Empty
        Cmd.Prepared = True
        BuildTableWhere
        If NOT AllParamsSet Then
            Errors.AddError(CCSRunTimeMessages.GetMessage("CustomOperationError_MissingParameters", Empty))
        End If
        Cmd.SQL = "UPDATE members SET " & _
            "Customer_ID=" & Connection.ToSQL(IIf(TypeName(Customer_ID) = "clsSQLParameter", Customer_ID, Customer_ID.SQLText), Customer_ID.DataType) & ", " & _
            "[Last Name]=" & Connection.ToSQL(IIf(TypeName(Last_Name) = "clsSQLParameter", Last_Name, Last_Name.SQLText), Last_Name.DataType) & ", " & _
            "[First Names]=" & Connection.ToSQL(IIf(TypeName(First_Names) = "clsSQLParameter", First_Names, First_Names.SQLText), First_Names.DataType) & ", " & _
            "Kennel_Name=" & Connection.ToSQL(IIf(TypeName(Kennel_Name) = "clsSQLParameter", Kennel_Name, Kennel_Name.SQLText), Kennel_Name.DataType) & ", " & _
            "[Short Addr]=" & Connection.ToSQL(IIf(TypeName(Short_Addr) = "clsSQLParameter", Short_Addr, Short_Addr.SQLText), Short_Addr.DataType) & ", " & _
            "CITY=" & Connection.ToSQL(IIf(TypeName(CITY) = "clsSQLParameter", CITY, CITY.SQLText), CITY.DataType) & ", " & _
            "STATE=" & Connection.ToSQL(IIf(TypeName(STATE) = "clsSQLParameter", STATE, STATE.SQLText), STATE.DataType) & ", " & _
            "ZIP=" & Connection.ToSQL(IIf(TypeName(ZIP) = "clsSQLParameter", ZIP, ZIP.SQLText), ZIP.DataType) & ", " & _
            "Phone=" & Connection.ToSQL(IIf(TypeName(Phone) = "clsSQLParameter", Phone, Phone.SQLText), Phone.DataType) & ", " & _
            "Fax=" & Connection.ToSQL(IIf(TypeName(Fax) = "clsSQLParameter", Fax, Fax.SQLText), Fax.DataType) & ", " & _
            "Email=" & Connection.ToSQL(IIf(TypeName(Email) = "clsSQLParameter", Email, Email.SQLText), Email.DataType) & ", " & _
            "[Office Held]=" & Connection.ToSQL(IIf(TypeName(Office_Held) = "clsSQLParameter", Office_Held, Office_Held.SQLText), Office_Held.DataType) & ", " & _
            "MEMCode=?" & ", " & _
            "[Join Date]=" & Connection.ToSQL(IIf(TypeName(Join_Date) = "clsSQLParameter", Join_Date, Join_Date.SQLText), Join_Date.DataType) & ", " & _
            "[Dog Full Name]=" & Connection.ToSQL(IIf(TypeName(Dog_Full_Name) = "clsSQLParameter", Dog_Full_Name, Dog_Full_Name.SQLText), Dog_Full_Name.DataType) & ", " & _
            "[AKC Num]=" & Connection.ToSQL(IIf(TypeName(AKC_Num) = "clsSQLParameter", AKC_Num, AKC_Num.SQLText), AKC_Num.DataType) & ", " & _
            "[Dog Call Name]=" & Connection.ToSQL(IIf(TypeName(Dog_Call_Name) = "clsSQLParameter", Dog_Call_Name, Dog_Call_Name.SQLText), Dog_Call_Name.DataType) & ", " & _
            "Breeder=" & Connection.ToSQL(IIf(TypeName(Breeder) = "clsSQLParameter", Breeder, Breeder.SQLText), Breeder.DataType) & _
            IIf(Len(Where) > 0, " WHERE " & Where, "")
        Cmd.CommandParameters = Array( _
            Array("MEMCode", adLongVarChar, adParamInput, 2147483647, MEMCode.Value))
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeExecuteUpdate", Me)
        If Errors.Count = 0  And CmdExecution Then
            Cmd.Exec(Errors)
            CCSEventResult = CCRaiseEvent(CCSEvents, "AfterExecuteUpdate", Me)
        End If
    End Sub
'End Update Method

'Insert Method @117-20550230
    Sub Insert(Cmd)
        CmdExecution = True
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeBuildInsert", Me)
        Set Cmd.Connection = Connection
        Cmd.CommandOperation = cmdExec
        Cmd.CommandType = dsTable
        Cmd.CommandParameters = Empty
        Cmd.Prepared = True
        Cmd.SQL = "INSERT INTO members(" & _
            "Customer_ID, " & _
            "[Last Name], " & _
            "[First Names], " & _
            "Kennel_Name, " & _
            "[Short Addr], " & _
            "CITY, " & _
            "STATE, " & _
            "ZIP, " & _
            "Phone, " & _
            "Fax, " & _
            "Email, " & _
            "[Office Held], " & _
            "MEMCode, " & _
            "[Join Date], " & _
            "[Dog Full Name], " & _
            "[AKC Num], " & _
            "[Dog Call Name], " & _
            "Breeder" & _
        ") VALUES (" & _
            Connection.ToSQL(IIf(TypeName(Customer_ID) = "clsSQLParameter", Customer_ID, Customer_ID.SQLText), Customer_ID.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Last_Name) = "clsSQLParameter", Last_Name, Last_Name.SQLText), Last_Name.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(First_Names) = "clsSQLParameter", First_Names, First_Names.SQLText), First_Names.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Kennel_Name) = "clsSQLParameter", Kennel_Name, Kennel_Name.SQLText), Kennel_Name.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Short_Addr) = "clsSQLParameter", Short_Addr, Short_Addr.SQLText), Short_Addr.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(CITY) = "clsSQLParameter", CITY, CITY.SQLText), CITY.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(STATE) = "clsSQLParameter", STATE, STATE.SQLText), STATE.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(ZIP) = "clsSQLParameter", ZIP, ZIP.SQLText), ZIP.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Phone) = "clsSQLParameter", Phone, Phone.SQLText), Phone.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Fax) = "clsSQLParameter", Fax, Fax.SQLText), Fax.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Email) = "clsSQLParameter", Email, Email.SQLText), Email.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Office_Held) = "clsSQLParameter", Office_Held, Office_Held.SQLText), Office_Held.DataType) & ", " & _
            "?" & ", " & _
            Connection.ToSQL(IIf(TypeName(Join_Date) = "clsSQLParameter", Join_Date, Join_Date.SQLText), Join_Date.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Dog_Full_Name) = "clsSQLParameter", Dog_Full_Name, Dog_Full_Name.SQLText), Dog_Full_Name.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(AKC_Num) = "clsSQLParameter", AKC_Num, AKC_Num.SQLText), AKC_Num.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Dog_Call_Name) = "clsSQLParameter", Dog_Call_Name, Dog_Call_Name.SQLText), Dog_Call_Name.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Breeder) = "clsSQLParameter", Breeder, Breeder.SQLText), Breeder.DataType) & _
        ")"
        Cmd.CommandParameters = Array( _
            Array("MEMCode", adLongVarChar, adParamInput, 2147483647, MEMCode.Value) _
        )
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeExecuteInsert", Me)
        If Errors.Count = 0  And CmdExecution Then
            Cmd.Exec(Errors)
            CCSEventResult = CCRaiseEvent(CCSEvents, "AfterExecuteInsert", Me)
        End If
    End Sub
'End Insert Method

End Class 'End members1DataSource Class @117-A61BA892


%>