<%
'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-933D6F68
' 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 Suggest_VolunteerSearch
Dim Suggest_Volunteer
Dim Suggest_Volunteer1

Redirect = ""
TemplateFileName = "mastervol.html"
Set CCSEvents = CreateObject("Scripting.Dictionary")
PathToCurrentPage = "./"
FileName = "mastervol.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-32229351
Set DBgsmd = New clsDBgsmd
DBgsmd.Open

' Controls
Set Suggest_VolunteerSearch = new clsRecordSuggest_VolunteerSearch
Set Suggest_Volunteer = New clsGridSuggest_Volunteer
Set Suggest_Volunteer1 = new clsRecordSuggest_Volunteer1
Suggest_Volunteer.Initialize DBgsmd
Suggest_Volunteer1.Initialize DBgsmd

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

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

'Execute Components @1-60351BFC
Suggest_VolunteerSearch.Operation
Suggest_Volunteer1.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-B28EC1C7
Suggest_VolunteerSearch.Show Tpl
Suggest_Volunteer.Show Tpl
Suggest_Volunteer1.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-28431449
Sub UnloadPage()
    CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeUnload", Nothing)
    If DBgsmd.State = adStateOpen Then _
        DBgsmd.Close
    Set DBgsmd = Nothing
    Set Suggest_VolunteerSearch = Nothing
    Set Suggest_Volunteer = Nothing
    Set Suggest_Volunteer1 = Nothing
End Sub
'End UnloadPage Sub

Class clsRecordSuggest_VolunteerSearch 'Suggest_VolunteerSearch Class @3-4CE90F28

'Suggest_VolunteerSearch Variables @3-A8F0C704

    ' 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_I_would_like_to_see_the_club_offer_the_following_event_activity
    Dim s_Suggestion_For_Club
    Dim s_Events_I_Wish_to_help_With
    Dim s_First_Name
    Dim s_Last_Name
    Dim s_Phone_Number
    Dim s_Email_Address
    Dim s_How_do_you_wish_to_be_contacted
    Dim s_Best_time_to_reach_you
    Dim Suggest_VolunteerOrder
    Dim Suggest_VolunteerOrderDataSource
    Dim Suggest_VolunteerDir
    Dim Suggest_VolunteerDirDataSource
    Dim Suggest_VolunteerPageSize
    Dim Suggest_VolunteerPageSizeDataSource
    Dim Button_DoSearch
'End Suggest_VolunteerSearch Variables

'Suggest_VolunteerSearch Class_Initialize Event @3-7825B4AF
    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) = "Suggest_VolunteerSearch")
        End If
        If UBound(OperationMode) > 0 Then 
            EditMode = (OperationMode(1) = "Edit")
        End If
        ComponentName = "Suggest_VolunteerSearch"
        Method = IIf(FormSubmitted, ccsPost, ccsGet)
        Set s_PKID = CCCreateControl(ccsTextBox, "s_PKID", "s_PKID", ccsInteger, Empty, CCGetRequestParam("s_PKID", Method))
        Set s_I_would_like_to_see_the_club_offer_the_following_event_activity = CCCreateControl(ccsTextBox, "s_I_would_like_to_see_the_club_offer_the_following_event_activity", "s_I_would_like_to_see_the_club_offer_the_following_event_activity", ccsMemo, Empty, CCGetRequestParam("s_I_would_like_to_see_the_club_offer_the_following_event_activity", Method))
        Set s_Suggestion_For_Club = CCCreateControl(ccsTextBox, "s_Suggestion_For_Club", "s_Suggestion_For_Club", ccsMemo, Empty, CCGetRequestParam("s_Suggestion_For_Club", Method))
        Set s_Events_I_Wish_to_help_With = CCCreateControl(ccsTextBox, "s_Events_I_Wish_to_help_With", "s_Events_I_Wish_to_help_With", ccsText, Empty, CCGetRequestParam("s_Events_I_Wish_to_help_With", Method))
        Set s_First_Name = CCCreateControl(ccsTextBox, "s_First_Name", "s_First_Name", ccsText, Empty, CCGetRequestParam("s_First_Name", Method))
        Set s_Last_Name = CCCreateControl(ccsTextBox, "s_Last_Name", "s_Last_Name", ccsText, Empty, CCGetRequestParam("s_Last_Name", Method))
        Set s_Phone_Number = CCCreateControl(ccsTextBox, "s_Phone_Number", "s_Phone_Number", ccsText, Empty, CCGetRequestParam("s_Phone_Number", Method))
        Set s_Email_Address = CCCreateControl(ccsTextBox, "s_Email_Address", "s_Email_Address", ccsText, Empty, CCGetRequestParam("s_Email_Address", Method))
        Set s_How_do_you_wish_to_be_contacted = CCCreateControl(ccsTextBox, "s_How_do_you_wish_to_be_contacted", "s_How_do_you_wish_to_be_contacted", ccsText, Empty, CCGetRequestParam("s_How_do_you_wish_to_be_contacted", Method))
        Set s_Best_time_to_reach_you = CCCreateControl(ccsTextBox, "s_Best_time_to_reach_you", "s_Best_time_to_reach_you", ccsText, Empty, CCGetRequestParam("s_Best_time_to_reach_you", Method))
        Set Suggest_VolunteerOrderDataSource = CCCreateDataSource(dsListOfValues, Empty, Array( _
            Array("", "Sorter_PKID", "Sorter_I_would_like_to_see_the_club_offer_the_following_event_activity", "Sorter_Suggestion_For_Club", "Sorter_Events_I_Wish_to_help_With", "Sorter_First_Name", "Sorter_Last_Name", "Sorter_Phone_Number", "Sorter_Email_Address", "Sorter_How_do_you_wish_to_be_contacted", "Sorter_Best_time_to_reach_you"), _
            Array("Select Field", "PKID", "I Would Like To See The Club Offer The Following Event Activity", "Suggestion For Club", "Events I Wish To Help With", "First Name", "Last Name", "Phone Number", "Email Address", "How Do You Wish To Be Contacted", "Best Time To Reach You")))
        Set Suggest_VolunteerOrder = CCCreateList(ccsListBox, "Suggest_VolunteerOrder", "Suggest_VolunteerOrder", ccsText, CCGetRequestParam("Suggest_VolunteerOrder", Method), Suggest_VolunteerOrderDataSource)
        Set Suggest_VolunteerDirDataSource = CCCreateDataSource(dsListOfValues, Empty, Array( _
            Array("", "ASC", "DESC"), _
            Array("Select Order", "Ascending", "Descending")))
        Set Suggest_VolunteerDir = CCCreateList(ccsListBox, "Suggest_VolunteerDir", "Suggest_VolunteerDir", ccsText, CCGetRequestParam("Suggest_VolunteerDir", Method), Suggest_VolunteerDirDataSource)
        Set Suggest_VolunteerPageSizeDataSource = CCCreateDataSource(dsListOfValues, Empty, Array( _
            Array("", "5", "10", "25", "100"), _
            Array("Select Value", "5", "10", "25", "100")))
        Set Suggest_VolunteerPageSize = CCCreateList(ccsListBox, "Suggest_VolunteerPageSize", "Suggest_VolunteerPageSize", ccsText, CCGetRequestParam("Suggest_VolunteerPageSize", Method), Suggest_VolunteerPageSizeDataSource)
        Set Button_DoSearch = CCCreateButton("Button_DoSearch")
        Set ValidatingControls = new clsControls
        ValidatingControls.addControls Array(s_PKID, s_I_would_like_to_see_the_club_offer_the_following_event_activity, s_Suggestion_For_Club, s_Events_I_Wish_to_help_With, s_First_Name, s_Last_Name, s_Phone_Number, _
             s_Email_Address, s_How_do_you_wish_to_be_contacted, s_Best_time_to_reach_you, Suggest_VolunteerOrder, Suggest_VolunteerDir, Suggest_VolunteerPageSize)
        
    End Sub
'End Suggest_VolunteerSearch Class_Initialize Event

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

'Suggest_VolunteerSearch 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 Suggest_VolunteerSearch Validate Method

'Suggest_VolunteerSearch Operation Method @3-9B08187F
    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 = "volsugg.asp"
        If Validate() Then
            If PressedButton = "Button_DoSearch" Then
                If NOT Button_DoSearch.OnClick() Then
                    Redirect = ""
                Else
                    Redirect = "volsugg.asp?" & CCGetQueryString("Form", Array(PressedButton, "ccsForm"))
                End If
            End If
        Else
            Redirect = ""
        End If
    End Sub
'End Suggest_VolunteerSearch Operation Method

'Suggest_VolunteerSearch Show Method @3-AD25073C
    Sub Show(Tpl)

        If NOT Visible Then Exit Sub

        EditMode = False
        HTMLFormAction = FileName & "?" & CCAddParam(Request.ServerVariables("QUERY_STRING"), "ccsForm", "Suggest_VolunteerSearch" & 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_I_would_like_to_see_the_club_offer_the_following_event_activity,  s_Suggestion_For_Club,  s_Events_I_Wish_to_help_With,  s_First_Name,  s_Last_Name,  s_Phone_Number, _
                 s_Email_Address,  s_How_do_you_wish_to_be_contacted,  s_Best_time_to_reach_you,  Suggest_VolunteerOrder,  Suggest_VolunteerDir,  Suggest_VolunteerPageSize,  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 Suggest_VolunteerSearch Show Method

End Class 'End Suggest_VolunteerSearch Class @3-A61BA892

Class clsGridSuggest_Volunteer 'Suggest_Volunteer Class @2-E68F7179

'Suggest_Volunteer Variables @2-F6BF0F26

    ' 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 Suggest_Volunteer_TotalRecords
    Dim Sorter_PKID
    Dim Sorter_Events_I_Wish_to_help_With
    Dim Sorter_First_Name
    Dim Sorter_Last_Name
    Dim Sorter_Phone_Number
    Dim Sorter_Email_Address
    Dim Sorter_How_do_you_wish_to_be_contacted
    Dim Sorter_Best_time_to_reach_you
    Dim PKID
    Dim I_would_like_to_see_the_club_offer_the_following_event_activity
    Dim Suggestion_For_Club
    Dim Events_I_Wish_to_help_With
    Dim First_Name
    Dim Last_Name
    Dim Phone_Number
    Dim Email_Address
    Dim How_do_you_wish_to_be_contacted
    Dim Best_time_to_reach_you
    Dim Alt_PKID
    Dim Alt_I_would_like_to_see_the_club_offer_the_following_event_activity
    Dim Alt_Suggestion_For_Club
    Dim Alt_Events_I_Wish_to_help_With
    Dim Alt_First_Name
    Dim Alt_Last_Name
    Dim Alt_Phone_Number
    Dim Alt_Email_Address
    Dim Alt_How_do_you_wish_to_be_contacted
    Dim Alt_Best_time_to_reach_you
    Dim Suggest_Volunteer_Insert
    Dim Navigator
'End Suggest_Volunteer Variables

'Suggest_Volunteer Class_Initialize Event @2-24B6085D
    Private Sub Class_Initialize()
        ComponentName = "Suggest_Volunteer"
        Visible = True
        Set CCSEvents = CreateObject("Scripting.Dictionary")
        RenderAltRow = False
        Set Errors = New clsErrors
        Set DataSource = New clsSuggest_VolunteerDataSource
        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("Suggest_VolunteerOrder", Empty)
        SortingDirection = CCGetParam("Suggest_VolunteerDir", Empty)
        If NOT(SortingDirection = "ASC" OR SortingDirection = "DESC") Then _
            SortingDirection = Empty

        Set PKID = CCCreateControl(ccsLink, "PKID", "PKID", ccsInteger, Empty, CCGetRequestParam("PKID", ccsGet))
        Set I_would_like_to_see_the_club_offer_the_following_event_activity = CCCreateControl(ccsLabel, "I_would_like_to_see_the_club_offer_the_following_event_activity", "I_would_like_to_see_the_club_offer_the_following_event_activity", ccsMemo, Empty, CCGetRequestParam("I_would_like_to_see_the_club_offer_the_following_event_activity", ccsGet))
        Set Suggestion_For_Club = CCCreateControl(ccsLabel, "Suggestion_For_Club", "Suggestion_For_Club", ccsMemo, Empty, CCGetRequestParam("Suggestion_For_Club", ccsGet))
        Set Events_I_Wish_to_help_With = CCCreateControl(ccsLabel, "Events_I_Wish_to_help_With", "Events_I_Wish_to_help_With", ccsText, Empty, CCGetRequestParam("Events_I_Wish_to_help_With", ccsGet))
        Set First_Name = CCCreateControl(ccsLabel, "First_Name", "First_Name", ccsText, Empty, CCGetRequestParam("First_Name", ccsGet))
        Set Last_Name = CCCreateControl(ccsLabel, "Last_Name", "Last_Name", ccsText, Empty, CCGetRequestParam("Last_Name", ccsGet))
        Set Phone_Number = CCCreateControl(ccsLabel, "Phone_Number", "Phone_Number", ccsText, Empty, CCGetRequestParam("Phone_Number", ccsGet))
        Set Email_Address = CCCreateControl(ccsLabel, "Email_Address", "Email_Address", ccsText, Empty, CCGetRequestParam("Email_Address", ccsGet))
        Set How_do_you_wish_to_be_contacted = CCCreateControl(ccsLabel, "How_do_you_wish_to_be_contacted", "How_do_you_wish_to_be_contacted", ccsText, Empty, CCGetRequestParam("How_do_you_wish_to_be_contacted", ccsGet))
        Set Best_time_to_reach_you = CCCreateControl(ccsLabel, "Best_time_to_reach_you", "Best_time_to_reach_you", ccsText, Empty, CCGetRequestParam("Best_time_to_reach_you", ccsGet))
        Set Alt_PKID = CCCreateControl(ccsLink, "Alt_PKID", "Alt_PKID", ccsInteger, Empty, CCGetRequestParam("Alt_PKID", ccsGet))
        Set Alt_I_would_like_to_see_the_club_offer_the_following_event_activity = CCCreateControl(ccsLabel, "Alt_I_would_like_to_see_the_club_offer_the_following_event_activity", "Alt_I_would_like_to_see_the_club_offer_the_following_event_activity", ccsMemo, Empty, CCGetRequestParam("Alt_I_would_like_to_see_the_club_offer_the_following_event_activity", ccsGet))
        Set Alt_Suggestion_For_Club = CCCreateControl(ccsLabel, "Alt_Suggestion_For_Club", "Alt_Suggestion_For_Club", ccsMemo, Empty, CCGetRequestParam("Alt_Suggestion_For_Club", ccsGet))
        Set Alt_Events_I_Wish_to_help_With = CCCreateControl(ccsLabel, "Alt_Events_I_Wish_to_help_With", "Alt_Events_I_Wish_to_help_With", ccsText, Empty, CCGetRequestParam("Alt_Events_I_Wish_to_help_With", ccsGet))
        Set Alt_First_Name = CCCreateControl(ccsLabel, "Alt_First_Name", "Alt_First_Name", ccsText, Empty, CCGetRequestParam("Alt_First_Name", ccsGet))
        Set Alt_Last_Name = CCCreateControl(ccsLabel, "Alt_Last_Name", "Alt_Last_Name", ccsText, Empty, CCGetRequestParam("Alt_Last_Name", ccsGet))
        Set Alt_Phone_Number = CCCreateControl(ccsLabel, "Alt_Phone_Number", "Alt_Phone_Number", ccsText, Empty, CCGetRequestParam("Alt_Phone_Number", ccsGet))
        Set Alt_Email_Address = CCCreateControl(ccsLabel, "Alt_Email_Address", "Alt_Email_Address", ccsText, Empty, CCGetRequestParam("Alt_Email_Address", ccsGet))
        Set Alt_How_do_you_wish_to_be_contacted = CCCreateControl(ccsLabel, "Alt_How_do_you_wish_to_be_contacted", "Alt_How_do_you_wish_to_be_contacted", ccsText, Empty, CCGetRequestParam("Alt_How_do_you_wish_to_be_contacted", ccsGet))
        Set Alt_Best_time_to_reach_you = CCCreateControl(ccsLabel, "Alt_Best_time_to_reach_you", "Alt_Best_time_to_reach_you", ccsText, Empty, CCGetRequestParam("Alt_Best_time_to_reach_you", ccsGet))
        Set Suggest_Volunteer_TotalRecords = CCCreateControl(ccsLabel, "Suggest_Volunteer_TotalRecords", "Suggest_Volunteer_TotalRecords", ccsText, Empty, CCGetRequestParam("Suggest_Volunteer_TotalRecords", ccsGet))
        Set Sorter_PKID = CCCreateSorter("Sorter_PKID", Me, FileName)
        Set Sorter_Events_I_Wish_to_help_With = CCCreateSorter("Sorter_Events_I_Wish_to_help_With", Me, FileName)
        Set Sorter_First_Name = CCCreateSorter("Sorter_First_Name", Me, FileName)
        Set Sorter_Last_Name = CCCreateSorter("Sorter_Last_Name", Me, FileName)
        Set Sorter_Phone_Number = CCCreateSorter("Sorter_Phone_Number", Me, FileName)
        Set Sorter_Email_Address = CCCreateSorter("Sorter_Email_Address", Me, FileName)
        Set Sorter_How_do_you_wish_to_be_contacted = CCCreateSorter("Sorter_How_do_you_wish_to_be_contacted", Me, FileName)
        Set Sorter_Best_time_to_reach_you = CCCreateSorter("Sorter_Best_time_to_reach_you", Me, FileName)
        Set Suggest_Volunteer_Insert = CCCreateControl(ccsLink, "Suggest_Volunteer_Insert", "Suggest_Volunteer_Insert", ccsText, Empty, CCGetRequestParam("Suggest_Volunteer_Insert", ccsGet))
        Set Navigator = CCCreateNavigator(ComponentName, "Navigator", FileName, 10, tpCentered)
    End Sub
'End Suggest_Volunteer Class_Initialize Event

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

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

'Suggest_Volunteer Show Method @2-E2396271
    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_I_would_like_to_see_the_club_offer_the_following_event_activity") = CCGetRequestParam("s_I_would_like_to_see_the_club_offer_the_following_event_activity", ccsGET)
            .Parameters("urls_Suggestion_For_Club") = CCGetRequestParam("s_Suggestion_For_Club", ccsGET)
            .Parameters("urls_Events_I_Wish_to_help_With") = CCGetRequestParam("s_Events_I_Wish_to_help_With", ccsGET)
            .Parameters("urls_First_Name") = CCGetRequestParam("s_First_Name", ccsGET)
            .Parameters("urls_Last_Name") = CCGetRequestParam("s_Last_Name", ccsGET)
            .Parameters("urls_Phone_Number") = CCGetRequestParam("s_Phone_Number", ccsGET)
            .Parameters("urls_Email_Address") = CCGetRequestParam("s_Email_Address", ccsGET)
            .Parameters("urls_How_do_you_wish_to_be_contacted") = CCGetRequestParam("s_How_do_you_wish_to_be_contacted", ccsGET)
            .Parameters("urls_Best_time_to_reach_you") = CCGetRequestParam("s_Best_time_to_reach_you", 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(Suggest_Volunteer_TotalRecords, Sorter_PKID, Sorter_Events_I_Wish_to_help_With, Sorter_First_Name, Sorter_Last_Name, Sorter_Phone_Number, Sorter_Email_Address, Sorter_How_do_you_wish_to_be_contacted, Sorter_Best_time_to_reach_you, Suggest_Volunteer_Insert, Navigator))
        Set RowControls = CCCreateCollection(RowBlock, Null, ccsParseAccumulate, _
            Array(PKID, I_would_like_to_see_the_club_offer_the_following_event_activity, Suggestion_For_Club, Events_I_Wish_to_help_With, First_Name, Last_Name, Phone_Number, Email_Address, How_do_you_wish_to_be_contacted, Best_time_to_reach_you))
        Set AltRowControls = CCCreateCollection(AltRowBlock, RowBlock, ccsParseAccumulate, _
            Array(Alt_PKID, Alt_I_would_like_to_see_the_club_offer_the_following_event_activity, Alt_Suggestion_For_Club, Alt_Events_I_Wish_to_help_With, Alt_First_Name, Alt_Last_Name, Alt_Phone_Number, Alt_Email_Address, Alt_How_do_you_wish_to_be_contacted, Alt_Best_time_to_reach_you))

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

        Errors.AddErrors DataSource.Errors
        If Errors.Count > 0 Then
            TemplateBlock.HTML = CCFormatError("Grid Suggest_Volunteer", 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 = "volsugg.asp"
                    Alt_I_would_like_to_see_the_club_offer_the_following_event_activity.Value = Recordset.Fields("Alt_I_would_like_to_see_the_club_offer_the_following_event_activity")
                    Alt_Suggestion_For_Club.Value = Recordset.Fields("Alt_Suggestion_For_Club")
                    Alt_Events_I_Wish_to_help_With.Value = Recordset.Fields("Alt_Events_I_Wish_to_help_With")
                    Alt_First_Name.Value = Recordset.Fields("Alt_First_Name")
                    Alt_Last_Name.Value = Recordset.Fields("Alt_Last_Name")
                    Alt_Phone_Number.Value = Recordset.Fields("Alt_Phone_Number")
                    Alt_Email_Address.Value = Recordset.Fields("Alt_Email_Address")
                    Alt_How_do_you_wish_to_be_contacted.Value = Recordset.Fields("Alt_How_do_you_wish_to_be_contacted")
                    Alt_Best_time_to_reach_you.Value = Recordset.Fields("Alt_Best_time_to_reach_you")
                    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 = "volsugg.asp"
                    I_would_like_to_see_the_club_offer_the_following_event_activity.Value = Recordset.Fields("I_would_like_to_see_the_club_offer_the_following_event_activity")
                    Suggestion_For_Club.Value = Recordset.Fields("Suggestion_For_Club")
                    Events_I_Wish_to_help_With.Value = Recordset.Fields("Events_I_Wish_to_help_With")
                    First_Name.Value = Recordset.Fields("First_Name")
                    Last_Name.Value = Recordset.Fields("Last_Name")
                    Phone_Number.Value = Recordset.Fields("Phone_Number")
                    Email_Address.Value = Recordset.Fields("Email_Address")
                    How_do_you_wish_to_be_contacted.Value = Recordset.Fields("How_do_you_wish_to_be_contacted")
                    Best_time_to_reach_you.Value = Recordset.Fields("Best_time_to_reach_you")
                    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
            
            
            Suggest_Volunteer_Insert.Parameters = CCGetQueryString("QueryString", Array("PKID", "ccsForm"))
            Suggest_Volunteer_Insert.Page = "volsugg.asp"
            Navigator.SetDataSource Recordset
            StaticControls.Show
        End If

    End Sub
'End Suggest_Volunteer Show Method

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

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

End Class 'End Suggest_Volunteer Class @2-A61BA892

Class clsSuggest_VolunteerDataSource 'Suggest_VolunteerDataSource Class @2-FB9951F4

'DataSource Variables @2-044B7A79
    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 I_would_like_to_see_the_club_offer_the_following_event_activity
    Public Suggestion_For_Club
    Public Events_I_Wish_to_help_With
    Public First_Name
    Public Last_Name
    Public Phone_Number
    Public Email_Address
    Public How_do_you_wish_to_be_contacted
    Public Best_time_to_reach_you
    Public Alt_PKID
    Public Alt_PKID_param1
    Public Alt_I_would_like_to_see_the_club_offer_the_following_event_activity
    Public Alt_Suggestion_For_Club
    Public Alt_Events_I_Wish_to_help_With
    Public Alt_First_Name
    Public Alt_Last_Name
    Public Alt_Phone_Number
    Public Alt_Email_Address
    Public Alt_How_do_you_wish_to_be_contacted
    Public Alt_Best_time_to_reach_you
'End DataSource Variables

'DataSource Class_Initialize Event @2-5B3086EA
    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 I_would_like_to_see_the_club_offer_the_following_event_activity = CCCreateField("I_would_like_to_see_the_club_offer_the_following_event_activity", "I_would_like_to_see_the_club_offer_the_following_event_activity", ccsMemo, Empty, Recordset)
        Set Suggestion_For_Club = CCCreateField("Suggestion_For_Club", "Suggestion_For_Club", ccsMemo, Empty, Recordset)
        Set Events_I_Wish_to_help_With = CCCreateField("Events_I_Wish_to_help_With", "Events_I_Wish_to_help_With", ccsText, Empty, Recordset)
        Set First_Name = CCCreateField("First_Name", "First_Name", ccsText, Empty, Recordset)
        Set Last_Name = CCCreateField("Last_Name", "Last_Name", ccsText, Empty, Recordset)
        Set Phone_Number = CCCreateField("Phone_Number", "Phone_Number", ccsText, Empty, Recordset)
        Set Email_Address = CCCreateField("Email_Address", "Email_Address", ccsText, Empty, Recordset)
        Set How_do_you_wish_to_be_contacted = CCCreateField("How_do_you_wish_to_be_contacted", "How_do_you_wish_to_be_contacted", ccsText, Empty, Recordset)
        Set Best_time_to_reach_you = CCCreateField("Best_time_to_reach_you", "Best_time_to_reach_you", ccsText, 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_I_would_like_to_see_the_club_offer_the_following_event_activity = CCCreateField("Alt_I_would_like_to_see_the_club_offer_the_following_event_activity", "I_would_like_to_see_the_club_offer_the_following_event_activity", ccsMemo, Empty, Recordset)
        Set Alt_Suggestion_For_Club = CCCreateField("Alt_Suggestion_For_Club", "Suggestion_For_Club", ccsMemo, Empty, Recordset)
        Set Alt_Events_I_Wish_to_help_With = CCCreateField("Alt_Events_I_Wish_to_help_With", "Events_I_Wish_to_help_With", ccsText, Empty, Recordset)
        Set Alt_First_Name = CCCreateField("Alt_First_Name", "First_Name", ccsText, Empty, Recordset)
        Set Alt_Last_Name = CCCreateField("Alt_Last_Name", "Last_Name", ccsText, Empty, Recordset)
        Set Alt_Phone_Number = CCCreateField("Alt_Phone_Number", "Phone_Number", ccsText, Empty, Recordset)
        Set Alt_Email_Address = CCCreateField("Alt_Email_Address", "Email_Address", ccsText, Empty, Recordset)
        Set Alt_How_do_you_wish_to_be_contacted = CCCreateField("Alt_How_do_you_wish_to_be_contacted", "How_do_you_wish_to_be_contacted", ccsText, Empty, Recordset)
        Set Alt_Best_time_to_reach_you = CCCreateField("Alt_Best_time_to_reach_you", "Best_time_to_reach_you", ccsText, Empty, Recordset)
        Fields.AddFields Array(PKID,  PKID_param1,  I_would_like_to_see_the_club_offer_the_following_event_activity,  Suggestion_For_Club,  Events_I_Wish_to_help_With,  First_Name,  Last_Name, _
             Phone_Number,  Email_Address,  How_do_you_wish_to_be_contacted,  Best_time_to_reach_you,  Alt_PKID,  Alt_PKID_param1,  Alt_I_would_like_to_see_the_club_offer_the_following_event_activity,  Alt_Suggestion_For_Club, _
             Alt_Events_I_Wish_to_help_With,  Alt_First_Name,  Alt_Last_Name,  Alt_Phone_Number,  Alt_Email_Address,  Alt_How_do_you_wish_to_be_contacted,  Alt_Best_time_to_reach_you)
        Set Parameters = Server.CreateObject("Scripting.Dictionary")
        Set WhereParameters = Nothing
        Orders = Array( _ 
            Array("Sorter_PKID", "PKID", ""), _
            Array("Sorter_Events_I_Wish_to_help_With", "Events_I_Wish_to_help_With", ""), _
            Array("Sorter_First_Name", "First_Name", ""), _
            Array("Sorter_Last_Name", "Last_Name", ""), _
            Array("Sorter_Phone_Number", "Phone_Number", ""), _
            Array("Sorter_Email_Address", "Email_Address", ""), _
            Array("Sorter_How_do_you_wish_to_be_contacted", "How_do_you_wish_to_be_contacted", ""), _
            Array("Sorter_Best_time_to_reach_you", "Best_time_to_reach_you", ""))

        SQL = "SELECT TOP {SqlParam_endRecord}  *  " & _
        "FROM Suggest_Volunteer"
        CountSQL = "SELECT COUNT(*)  " & _
        "FROM Suggest_Volunteer"
        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-5EDCDBC5
    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_I_would_like_to_see_the_club_offer_the_following_event_activity", ccsMemo, Empty, Empty, Empty, False
            .AddParameter 3, "urls_Suggestion_For_Club", ccsMemo, Empty, Empty, Empty, False
            .AddParameter 4, "urls_Events_I_Wish_to_help_With", ccsText, Empty, Empty, Empty, False
            .AddParameter 5, "urls_First_Name", ccsText, Empty, Empty, Empty, False
            .AddParameter 6, "urls_Last_Name", ccsText, Empty, Empty, Empty, False
            .AddParameter 7, "urls_Phone_Number", ccsText, Empty, Empty, Empty, False
            .AddParameter 8, "urls_Email_Address", ccsText, Empty, Empty, Empty, False
            .AddParameter 9, "urls_How_do_you_wish_to_be_contacted", ccsText, Empty, Empty, Empty, False
            .AddParameter 10, "urls_Best_time_to_reach_you", ccsText, Empty, Empty, Empty, False
            .Criterion(1) = .Operation(opEqual, False, "PKID", .getParamByID(1))
            .Criterion(2) = .Operation(opContains, False, "I_would_like_to_see_the_club_offer_the_following_event_activity", .getParamByID(2))
            .Criterion(3) = .Operation(opContains, False, "Suggestion_For_Club", .getParamByID(3))
            .Criterion(4) = .Operation(opContains, False, "Events_I_Wish_to_help_With", .getParamByID(4))
            .Criterion(5) = .Operation(opContains, False, "First_Name", .getParamByID(5))
            .Criterion(6) = .Operation(opContains, False, "Last_Name", .getParamByID(6))
            .Criterion(7) = .Operation(opContains, False, "Phone_Number", .getParamByID(7))
            .Criterion(8) = .Operation(opContains, False, "Email_Address", .getParamByID(8))
            .Criterion(9) = .Operation(opContains, False, "How_do_you_wish_to_be_contacted", .getParamByID(9))
            .Criterion(10) = .Operation(opContains, False, "Best_time_to_reach_you", .getParamByID(10))
            .AssembledWhere = .opAND(False, .opAND(False, .opAND(False, .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)), .Criterion(8)), .Criterion(9)), .Criterion(10))
            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 Suggest_VolunteerDataSource Class @2-A61BA892

Class clsRecordSuggest_Volunteer1 'Suggest_Volunteer1 Class @62-DBAD53B1

'Suggest_Volunteer1 Variables @62-F718BA94

    ' 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 I_would_like_to_see_the_club_offer_the_following_event_activity
    Dim Suggestion_For_Club
    Dim ListBox1
    Dim ListBox1DataSource
    Dim First_Name
    Dim Last_Name
    Dim Phone_Number
    Dim Email_Address
    Dim How_do_you_wish_to_be_contacted
    Dim Best_time_to_reach_you
    Dim Button_Insert
    Dim Button_Update
    Dim Button_Delete
    Dim Button_Cancel
'End Suggest_Volunteer1 Variables

'Suggest_Volunteer1 Class_Initialize Event @62-A0C2A9B3
    Private Sub Class_Initialize()

        Visible = True
        Set Errors = New clsErrors
        Set CCSEvents = CreateObject("Scripting.Dictionary")
        Set DataSource = New clsSuggest_Volunteer1DataSource
        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) = "Suggest_Volunteer1")
        End If
        If UBound(OperationMode) > 0 Then 
            EditMode = (OperationMode(1) = "Edit")
        End If
        ComponentName = "Suggest_Volunteer1"
        Method = IIf(FormSubmitted, ccsPost, ccsGet)
        Set I_would_like_to_see_the_club_offer_the_following_event_activity = CCCreateControl(ccsTextArea, "I_would_like_to_see_the_club_offer_the_following_event_activity", "I Would Like To See The Club Offer The Following Event Activity", ccsMemo, Empty, CCGetRequestParam("I_would_like_to_see_the_club_offer_the_following_event_activity", Method))
        Set Suggestion_For_Club = CCCreateControl(ccsTextArea, "Suggestion_For_Club", "Suggestion For Club", ccsMemo, Empty, CCGetRequestParam("Suggestion_For_Club", Method))
        Set ListBox1DataSource = CCCreateDataSource(dsTable,DBgsmd, Array("SELECT *  " & _
"FROM events", "", ""))
        Set ListBox1 = CCCreateList(ccsListBox, "ListBox1", "ListBox1", ccsText, CCGetRequestParam("ListBox1", Method), ListBox1DataSource)
        ListBox1.BoundColumn = "Events"
        Set First_Name = CCCreateControl(ccsTextBox, "First_Name", "First Name", ccsText, Empty, CCGetRequestParam("First_Name", Method))
        Set Last_Name = CCCreateControl(ccsTextBox, "Last_Name", "Last Name", ccsText, Empty, CCGetRequestParam("Last_Name", Method))
        Set Phone_Number = CCCreateControl(ccsTextBox, "Phone_Number", "Phone Number", ccsText, Empty, CCGetRequestParam("Phone_Number", Method))
        Set Email_Address = CCCreateControl(ccsTextBox, "Email_Address", "Email Address", ccsText, Empty, CCGetRequestParam("Email_Address", Method))
        Set How_do_you_wish_to_be_contacted = CCCreateControl(ccsTextBox, "How_do_you_wish_to_be_contacted", "How Do You Wish To Be Contacted", ccsText, Empty, CCGetRequestParam("How_do_you_wish_to_be_contacted", Method))
        Set Best_time_to_reach_you = CCCreateControl(ccsTextBox, "Best_time_to_reach_you", "Best Time To Reach You", ccsText, Empty, CCGetRequestParam("Best_time_to_reach_you", 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(I_would_like_to_see_the_club_offer_the_following_event_activity, Suggestion_For_Club, ListBox1, First_Name, Last_Name, Phone_Number, Email_Address, How_do_you_wish_to_be_contacted, Best_time_to_reach_you)
        
    End Sub
'End Suggest_Volunteer1 Class_Initialize Event

'Suggest_Volunteer1 Initialize Method @62-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 Suggest_Volunteer1 Initialize Method

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

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

'Suggest_Volunteer1 Operation Method @62-D42513CD
    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 = "volsugg.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 Suggest_Volunteer1 Operation Method

'Suggest_Volunteer1 InsertRow Method @62-C077C4EC
    Function InsertRow()
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeInsert", Me)
        If NOT InsertAllowed Then InsertRow = False : Exit Function
        DataSource.I_would_like_to_see_the_club_offer_the_following_event_activity.Value = I_would_like_to_see_the_club_offer_the_following_event_activity.Value
        DataSource.Suggestion_For_Club.Value = Suggestion_For_Club.Value
        DataSource.ListBox1.Value = ListBox1.Value
        DataSource.First_Name.Value = First_Name.Value
        DataSource.Last_Name.Value = Last_Name.Value
        DataSource.Phone_Number.Value = Phone_Number.Value
        DataSource.Email_Address.Value = Email_Address.Value
        DataSource.How_do_you_wish_to_be_contacted.Value = How_do_you_wish_to_be_contacted.Value
        DataSource.Best_time_to_reach_you.Value = Best_time_to_reach_you.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 Suggest_Volunteer1 InsertRow Method

'Suggest_Volunteer1 UpdateRow Method @62-FB6C16C1
    Function UpdateRow()
        CCSEventResult = CCRaiseEvent(CCSEvents, "BeforeUpdate", Me)
        If NOT UpdateAllowed Then UpdateRow = False : Exit Function
        DataSource.I_would_like_to_see_the_club_offer_the_following_event_activity.Value = I_would_like_to_see_the_club_offer_the_following_event_activity.Value
        DataSource.Suggestion_For_Club.Value = Suggestion_For_Club.Value
        DataSource.ListBox1.Value = ListBox1.Value
        DataSource.First_Name.Value = First_Name.Value
        DataSource.Last_Name.Value = Last_Name.Value
        DataSource.Phone_Number.Value = Phone_Number.Value
        DataSource.Email_Address.Value = Email_Address.Value
        DataSource.How_do_you_wish_to_be_contacted.Value = How_do_you_wish_to_be_contacted.Value
        DataSource.Best_time_to_reach_you.Value = Best_time_to_reach_you.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 Suggest_Volunteer1 UpdateRow Method

'Suggest_Volunteer1 DeleteRow Method @62-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 Suggest_Volunteer1 DeleteRow Method

'Suggest_Volunteer1 Show Method @62-A3335572
    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", "Suggest_Volunteer1" & 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(I_would_like_to_see_the_club_offer_the_following_event_activity,  Suggestion_For_Club,  ListBox1,  First_Name,  Last_Name,  Phone_Number,  Email_Address, _
                 How_do_you_wish_to_be_contacted,  Best_time_to_reach_you,  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
                        I_would_like_to_see_the_club_offer_the_following_event_activity.Value = Recordset.Fields("I_would_like_to_see_the_club_offer_the_following_event_activity")
                        Suggestion_For_Club.Value = Recordset.Fields("Suggestion_For_Club")
                        ListBox1.Value = Recordset.Fields("ListBox1")
                        First_Name.Value = Recordset.Fields("First_Name")
                        Last_Name.Value = Recordset.Fields("Last_Name")
                        Phone_Number.Value = Recordset.Fields("Phone_Number")
                        Email_Address.Value = Recordset.Fields("Email_Address")
                        How_do_you_wish_to_be_contacted.Value = Recordset.Fields("How_do_you_wish_to_be_contacted")
                        Best_time_to_reach_you.Value = Recordset.Fields("Best_time_to_reach_you")
                    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 Suggest_Volunteer1 Show Method

End Class 'End Suggest_Volunteer1 Class @62-A61BA892

Class clsSuggest_Volunteer1DataSource 'Suggest_Volunteer1DataSource Class @62-118171AC

'DataSource Variables @62-D18E12C4
    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 I_would_like_to_see_the_club_offer_the_following_event_activity
    Public Suggestion_For_Club
    Public ListBox1
    Public First_Name
    Public Last_Name
    Public Phone_Number
    Public Email_Address
    Public How_do_you_wish_to_be_contacted
    Public Best_time_to_reach_you
'End DataSource Variables

'DataSource Class_Initialize Event @62-4F243F6B
    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 I_would_like_to_see_the_club_offer_the_following_event_activity = CCCreateField("I_would_like_to_see_the_club_offer_the_following_event_activity", "I_would_like_to_see_the_club_offer_the_following_event_activity", ccsMemo, Empty, Recordset)
        Set Suggestion_For_Club = CCCreateField("Suggestion_For_Club", "Suggestion_For_Club", ccsMemo, Empty, Recordset)
        Set ListBox1 = CCCreateField("ListBox1", "Events_I_Wish_to_help_With", ccsText, Empty, Recordset)
        Set First_Name = CCCreateField("First_Name", "First_Name", ccsText, Empty, Recordset)
        Set Last_Name = CCCreateField("Last_Name", "Last_Name", ccsText, Empty, Recordset)
        Set Phone_Number = CCCreateField("Phone_Number", "Phone_Number", ccsText, Empty, Recordset)
        Set Email_Address = CCCreateField("Email_Address", "Email_Address", ccsText, Empty, Recordset)
        Set How_do_you_wish_to_be_contacted = CCCreateField("How_do_you_wish_to_be_contacted", "How_do_you_wish_to_be_contacted", ccsText, Empty, Recordset)
        Set Best_time_to_reach_you = CCCreateField("Best_time_to_reach_you", "Best_time_to_reach_you", ccsText, Empty, Recordset)
        Fields.AddFields Array(I_would_like_to_see_the_club_offer_the_following_event_activity, Suggestion_For_Club, ListBox1, First_Name, Last_Name, Phone_Number, Email_Address, How_do_you_wish_to_be_contacted, Best_time_to_reach_you)
        Set Parameters = Server.CreateObject("Scripting.Dictionary")
        Set WhereParameters = Nothing

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

'BuildTableWhere Method @62-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 @62-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 @62-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 @62-BE4305B0
    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 Suggest_Volunteer" & 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 @62-7F7A1EE0
    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 Suggest_Volunteer SET " & _
            "I_would_like_to_see_the_club_offer_the_following_event_activity=?" & ", " & _
            "Suggestion_For_Club=?" & ", " & _
            "Events_I_Wish_to_help_With=" & Connection.ToSQL(IIf(TypeName(ListBox1) = "clsSQLParameter", ListBox1, ListBox1.SQLText), ListBox1.DataType) & ", " & _
            "First_Name=" & Connection.ToSQL(IIf(TypeName(First_Name) = "clsSQLParameter", First_Name, First_Name.SQLText), First_Name.DataType) & ", " & _
            "Last_Name=" & Connection.ToSQL(IIf(TypeName(Last_Name) = "clsSQLParameter", Last_Name, Last_Name.SQLText), Last_Name.DataType) & ", " & _
            "Phone_Number=" & Connection.ToSQL(IIf(TypeName(Phone_Number) = "clsSQLParameter", Phone_Number, Phone_Number.SQLText), Phone_Number.DataType) & ", " & _
            "Email_Address=" & Connection.ToSQL(IIf(TypeName(Email_Address) = "clsSQLParameter", Email_Address, Email_Address.SQLText), Email_Address.DataType) & ", " & _
            "How_do_you_wish_to_be_contacted=" & Connection.ToSQL(IIf(TypeName(How_do_you_wish_to_be_contacted) = "clsSQLParameter", How_do_you_wish_to_be_contacted, How_do_you_wish_to_be_contacted.SQLText), How_do_you_wish_to_be_contacted.DataType) & ", " & _
            "Best_time_to_reach_you=" & Connection.ToSQL(IIf(TypeName(Best_time_to_reach_you) = "clsSQLParameter", Best_time_to_reach_you, Best_time_to_reach_you.SQLText), Best_time_to_reach_you.DataType) & _
            IIf(Len(Where) > 0, " WHERE " & Where, "")
        Cmd.CommandParameters = Array( _
            Array("I_would_like_to_see_the_club_offer_the_following_event_activity", adLongVarChar, adParamInput, 2147483647, I_would_like_to_see_the_club_offer_the_following_event_activity.Value), _
            Array("Suggestion_For_Club", adLongVarChar, adParamInput, 2147483647, Suggestion_For_Club.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 @62-BBF5E88E
    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 Suggest_Volunteer(" & _
            "I_would_like_to_see_the_club_offer_the_following_event_activity, " & _
            "Suggestion_For_Club, " & _
            "Events_I_Wish_to_help_With, " & _
            "First_Name, " & _
            "Last_Name, " & _
            "Phone_Number, " & _
            "Email_Address, " & _
            "How_do_you_wish_to_be_contacted, " & _
            "Best_time_to_reach_you" & _
        ") VALUES (" & _
            "?" & ", " & _
            "?" & ", " & _
            Connection.ToSQL(IIf(TypeName(ListBox1) = "clsSQLParameter", ListBox1, ListBox1.SQLText), ListBox1.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(First_Name) = "clsSQLParameter", First_Name, First_Name.SQLText), First_Name.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Last_Name) = "clsSQLParameter", Last_Name, Last_Name.SQLText), Last_Name.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Phone_Number) = "clsSQLParameter", Phone_Number, Phone_Number.SQLText), Phone_Number.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Email_Address) = "clsSQLParameter", Email_Address, Email_Address.SQLText), Email_Address.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(How_do_you_wish_to_be_contacted) = "clsSQLParameter", How_do_you_wish_to_be_contacted, How_do_you_wish_to_be_contacted.SQLText), How_do_you_wish_to_be_contacted.DataType) & ", " & _
            Connection.ToSQL(IIf(TypeName(Best_time_to_reach_you) = "clsSQLParameter", Best_time_to_reach_you, Best_time_to_reach_you.SQLText), Best_time_to_reach_you.DataType) & _
        ")"
        Cmd.CommandParameters = Array( _
            Array("I_would_like_to_see_the_club_offer_the_following_event_activity", adLongVarChar, adParamInput, 2147483647, I_would_like_to_see_the_club_offer_the_following_event_activity.Value),  _
            Array("Suggestion_For_Club", adLongVarChar, adParamInput, 2147483647, Suggestion_For_Club.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 Suggest_Volunteer1DataSource Class @62-A61BA892


%>