<%
'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-889883E0
' 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 Membership1

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

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

' Controls
Set Membership1 = new clsRecordMembership1
Membership1.Initialize DBgsmd

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

'Execute Components @1-B80F4554
Membership1.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-3B54FFA0
Membership1.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-BEC52357
Sub UnloadPage()
    CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeUnload", Nothing)
    If DBgsmd.State = adStateOpen Then _
        DBgsmd.Close
    Set DBgsmd = Nothing
    Set Membership1 = Nothing
End Sub
'End UnloadPage Sub


Class clsRecordMembership1 'Membership1 Class @64-678F4521

'Membership1 Variables @64-95B2DB02

    ' 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 Last_Name
    Dim First_Name
    Dim Kennel_Name
    Dim Address
    Dim CITY
    Dim STATE
    Dim ZIP
    Dim Phone
    Dim Email
    Dim website_address
    Dim ListBox1
    Dim ListBox1DataSource
    Dim ListBox2
    Dim ListBox2DataSource
    Dim Total_Amount_Mailing
    Dim Button_Insert
    Dim Button_Update
    Dim Button_Delete
    Dim Button_Cancel
'End Membership1 Variables

'Membership1 Class_Initialize Event @64-432A25FA
    Private Sub Class_Initialize()

        Visible = True
        Set Errors = New clsErrors
        Set CCSEvents = CreateObject("Scripting.Dictionary")
        Set DataSource = New clsMembership1DataSource
        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) = "Membership1")
        End If
        If UBound(OperationMode) > 0 Then 
            EditMode = (OperationMode(1) = "Edit")
        End If
        ComponentName = "Membership1"
        Method = IIf(FormSubmitted, ccsPost, ccsGet)
        Set Last_Name = CCCreateControl(ccsTextBox, "Last_Name", "Last Name", ccsText, Empty, CCGetRequestParam("Last_Name", Method))
        Set First_Name = CCCreateControl(ccsTextBox, "First_Name", "First Name", ccsText, Empty, CCGetRequestParam("First_Name", Method))
        Set Kennel_Name = CCCreateControl(ccsTextBox, "Kennel_Name", "Kennel Name", ccsText, Empty, CCGetRequestParam("Kennel_Name", Method))
        Set Address = CCCreateControl(ccsTextBox, "Address", "Address", ccsText, Empty, CCGetRequestParam("Address", 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 Email = CCCreateControl(ccsTextBox, "Email", "Email", ccsText, Empty, CCGetRequestParam("Email", Method))
        Set website_address = CCCreateControl(ccsTextBox, "website_address", "Website Address", ccsText, Empty, CCGetRequestParam("website_address", Method))
        Set ListBox1DataSource = CCCreateDataSource(dsTable,DBgsmd, Array("SELECT *  " & _
"FROM Membership_types", "", ""))
        Set ListBox1 = CCCreateList(ccsListBox, "ListBox1", "ListBox1", ccsText, CCGetRequestParam("ListBox1", Method), ListBox1DataSource)
        ListBox1.BoundColumn = "Membership_Type"
        ListBox1.TextColumn = "Membership_Type"
        Set ListBox2DataSource = CCCreateDataSource(dsTable,DBgsmd, Array("SELECT *  " & _
"FROM Options", "", ""))
        Set ListBox2 = CCCreateList(ccsListBox, "ListBox2", "ListBox2", ccsText, CCGetRequestParam("ListBox2", Method), ListBox2DataSource)
        ListBox2.BoundColumn = "Membership_Type"
        ListBox2.TextColumn = "Membership_Type"
        Set Total_Amount_Mailing = CCCreateControl(ccsTextBox, "Total_Amount_Mailing", "Total Amount Mailing", ccsFloat, Empty, CCGetRequestParam("Total_Amount_Mailing", 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(Last_Name, First_Name, Kennel_Name, Address, CITY, STATE, ZIP, _
             Phone, Email, website_address, ListBox1, ListBox2, Total_Amount_Mailing)
        
    End Sub
'End Membership1 Class_Initialize Event

'Membership1 Initialize Method @64-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 Membership1 Initialize Method

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

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

'Membership1 Operation Method @64-A9FE4A28
    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 = "memberapp.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 Membership1 Operation Method

'Membership1 InsertRow Method @64-01F8BED9
    Function InsertRow()
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeInsert", Me)
        If NOT InsertAllowed Then InsertRow = False : Exit Function
        DataSource.Last_Name.Value = Last_Name.Value
        DataSource.First_Name.Value = First_Name.Value
        DataSource.Kennel_Name.Value = Kennel_Name.Value
        DataSource.Address.Value = Address.Value
        DataSource.CITY.Value = CITY.Value
        DataSource.STATE.Value = STATE.Value
        DataSource.ZIP.Value = ZIP.Value
        DataSource.Phone.Value = Phone.Value
        DataSource.Email.Value = Email.Value
        DataSource.website_address.Value = website_address.Value
        DataSource.ListBox1.Value = ListBox1.Value
        DataSource.ListBox2.Value = ListBox2.Value
        DataSource.Total_Amount_Mailing.Value = Total_Amount_Mailing.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 Membership1 InsertRow Method

'Membership1 UpdateRow Method @64-762B88E4
    Function UpdateRow()
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeUpdate", Me)
        If NOT UpdateAllowed Then UpdateRow = False : Exit Function
        DataSource.Last_Name.Value = Last_Name.Value
        DataSource.First_Name.Value = First_Name.Value
        DataSource.Kennel_Name.Value = Kennel_Name.Value
        DataSource.Address.Value = Address.Value
        DataSource.CITY.Value = CITY.Value
        DataSource.STATE.Value = STATE.Value
        DataSource.ZIP.Value = ZIP.Value
        DataSource.Phone.Value = Phone.Value
        DataSource.Email.Value = Email.Value
        DataSource.website_address.Value = website_address.Value
        DataSource.ListBox1.Value = ListBox1.Value
        DataSource.ListBox2.Value = ListBox2.Value
        DataSource.Total_Amount_Mailing.Value = Total_Amount_Mailing.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 Membership1 UpdateRow Method

'Membership1 DeleteRow Method @64-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 Membership1 DeleteRow Method

'Membership1 Show Method @64-A51C435B
    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", "Membership1" & 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(Last_Name,  First_Name,  Kennel_Name,  Address,  CITY,  STATE,  ZIP, _
                 Phone,  Email,  website_address,  ListBox1,  ListBox2,  Total_Amount_Mailing,  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
                        Last_Name.Value = Recordset.Fields("Last_Name")
                        First_Name.Value = Recordset.Fields("First_Name")
                        Kennel_Name.Value = Recordset.Fields("Kennel_Name")
                        Address.Value = Recordset.Fields("Address")
                        CITY.Value = Recordset.Fields("CITY")
                        STATE.Value = Recordset.Fields("STATE")
                        ZIP.Value = Recordset.Fields("ZIP")
                        Phone.Value = Recordset.Fields("Phone")
                        Email.Value = Recordset.Fields("Email")
                        website_address.Value = Recordset.Fields("website_address")
                        ListBox1.Value = Recordset.Fields("ListBox1")
                        ListBox2.Value = Recordset.Fields("ListBox2")
                        Total_Amount_Mailing.Value = Recordset.Fields("Total_Amount_Mailing")
                    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 Membership1 Show Method

End Class 'End Membership1 Class @64-A61BA892

Class clsMembership1DataSource 'Membership1DataSource Class @64-3D7015D6

'DataSource Variables @64-89AC392C
    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 Last_Name
    Public First_Name
    Public Kennel_Name
    Public Address
    Public CITY
    Public STATE
    Public ZIP
    Public Phone
    Public Email
    Public website_address
    Public ListBox1
    Public ListBox2
    Public Total_Amount_Mailing
'End DataSource Variables

'DataSource Class_Initialize Event @64-ACAC404C
    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 Last_Name = CCCreateField("Last_Name", "Last Name", ccsText, Empty, Recordset)
        Set First_Name = CCCreateField("First_Name", "First Name", ccsText, Empty, Recordset)
        Set Kennel_Name = CCCreateField("Kennel_Name", "Kennel_Name", 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 Phone = CCCreateField("Phone", "Phone", ccsText, Empty, Recordset)
        Set Email = CCCreateField("Email", "Email", ccsText, Empty, Recordset)
        Set website_address = CCCreateField("website_address", "website_address", ccsText, Empty, Recordset)
        Set ListBox1 = CCCreateField("ListBox1", "Membership_Type", ccsText, Empty, Recordset)
        Set ListBox2 = CCCreateField("ListBox2", "Additional_Options", ccsText, Empty, Recordset)
        Set Total_Amount_Mailing = CCCreateField("Total_Amount_Mailing", "Total_Amount_Mailing", ccsFloat, Empty, Recordset)
        Fields.AddFields Array(Last_Name,  First_Name,  Kennel_Name,  Address,  CITY,  STATE,  ZIP, _
             Phone,  Email,  website_address,  ListBox1,  ListBox2,  Total_Amount_Mailing)
        Set Parameters = Server.CreateObject("Scripting.Dictionary")
        Set WhereParameters = Nothing

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

'BuildTableWhere Method @64-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 @64-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 @64-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 @64-EBFB5713
    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 Membership" & 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 @64-72F35069
    Sub Update(Cmd)
        CmdExecution = True
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeBuildUpdate", 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 = "UPDATE Membership SET " & _
            "[Last Name]=" & Connection.ToSQL(IIf(TypeName(Last_Name) = "clsSQLParameter", Last_Name, Last_Name.SQLText), Last_Name.DataType) & ", " & _
            "[First Name]=" & Connection.ToSQL(IIf(TypeName(First_Name) = "clsSQLParameter", First_Name, First_Name.SQLText), First_Name.DataType) & ", " & _
            "Kennel_Name=" & Connection.ToSQL(IIf(TypeName(Kennel_Name) = "clsSQLParameter", Kennel_Name, Kennel_Name.SQLText), Kennel_Name.DataType) & ", " & _
            "Address=" & Connection.ToSQL(IIf(TypeName(Address) = "clsSQLParameter", Address, Address.SQLText), Address.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) & ", " & _
            "Email=" & Connection.ToSQL(IIf(TypeName(Email) = "clsSQLParameter", Email, Email.SQLText), Email.DataType) & ", " & _
            "website_address=" & Connection.ToSQL(IIf(TypeName(website_address) = "clsSQLParameter", website_address, website_address.SQLText), website_address.DataType) & ", " & _
            "Membership_Type=" & Connection.ToSQL(IIf(TypeName(ListBox1) = "clsSQLParameter", ListBox1, ListBox1.SQLText), ListBox1.DataType) & ", " & _
            "Additional_Options=" & Connection.ToSQL(IIf(TypeName(ListBox2) = "clsSQLParameter", ListBox2, ListBox2.SQLText), ListBox2.DataType) & ", " & _
            "Total_Amount_Mailing=" & Connection.ToSQL(IIf(TypeName(Total_Amount_Mailing) = "clsSQLParameter", Total_Amount_Mailing, Total_Amount_Mailing.SQLText), Total_Amount_Mailing.DataType) & _
            IIf(Len(Where) > 0, " WHERE " & Where, "")
        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 @64-3647358C
    Sub Insert(Cmd)
        CmdExecution = True
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeBuildInsert", Me)
        Set Cmd.Connection = Connection
        Cmd.CommandOperation = cmdExec
        Cmd.CommandType = dsTable
        Cmd.CommandParameters = Empty
        Cmd.SQL = "INSERT INTO Membership(" & _
            "[Last Name], " & _
            "[First Name], " & _
            "Kennel_Name, " & _
            "Address, " & _
            "CITY, " & _
            "STATE, " & _
            "ZIP, " & _
            "Phone, " & _
            "Email, " & _
            "website_address, " & _
            "Membership_Type, " & _
            "Additional_Options, " & _
            "Total_Amount_Mailing" & _
        ") VALUES (" & _
            Connection.ToSQL(IIf(TypeName(Last_Name) = "clsSQLParameter", Last_Name, Last_Name.SQLText), Last_Name.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(First_Name) = "clsSQLParameter", First_Name, First_Name.SQLText), First_Name.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Kennel_Name) = "clsSQLParameter", Kennel_Name, Kennel_Name.SQLText), Kennel_Name.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Address) = "clsSQLParameter", Address, Address.SQLText), Address.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(Email) = "clsSQLParameter", Email, Email.SQLText), Email.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(website_address) = "clsSQLParameter", website_address, website_address.SQLText), website_address.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(ListBox1) = "clsSQLParameter", ListBox1, ListBox1.SQLText), ListBox1.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(ListBox2) = "clsSQLParameter", ListBox2, ListBox2.SQLText), ListBox2.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Total_Amount_Mailing) = "clsSQLParameter", Total_Amount_Mailing, Total_Amount_Mailing.SQLText), Total_Amount_Mailing.DataType) & _
        ")"
        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 Membership1DataSource Class @64-A61BA892


%>