• About the East Bay EDA
• Contact the East Bay EDA
• East Bay EDA Foundation
• Events
• Focus Area Issues
• Leadership Team
• Membership Info
• Member Login
• Action Items
• Communications
• Membership Directory
• Update Info
• Post to Regional Events - Calendar

East Bay Economic Development Alliance > Membership Lists

Once logged in, this page will allow East Bay EDA members to view and print the entire current directory, alphabetically, or select various groups or membership types, as well as search by last name or company name. 

Click on the submit button to begin.

<% If Session("loggedin") <> "True" Then Response.Redirect ("login.asp?camefrom=MembershipList.asp") End If Function fixQuotes(strData) fixQuotes = Replace(strData,"'","''") End Function're-set session data (ie log out)Session("loggedin")="" blanksearch = False strSql = "SELECT * FROM [Website Membership Combined] WHERE Company = 'XXXXXXXXX'" If Request.Form("action")="Search" OR Request.Form("SearchBy") = "Select Search By field" Then 'the form has been submitted If Request.Form("SearchBy") = "Select Search By field" then blanksearch = True ElseIf Request.Form("SearchBy") = "Company" then strSql = "SELECT * FROM [Website Membership Combined] WHERE Company LIKE '" & fixQuotes(Request.Form("SearchValue")) & "%' Order By Company" ElseIf Request.Form("SearchBy") = "Last Name" then strSql = "SELECT * FROM [Website Membership Combined] WHERE [Last Name] LIKE '" & fixQuotes(Request.Form("SearchValue")) & "%' Order By [Last Name]" End If Else Workgroup = Request.Form("Sort") 'Where = Trim(Request.QueryString("WhereClause")) 'Response.Write("Workgroup = " & Workgroup & "
") 'Response.Write("Where = " & Where & "
") 'Response.End If Workgroup = "Private" OR Workgroup = "Public" OR Workgroup = "Non-profit" OR Workgroup = "Special District" Then strSql = "Select * From [Website Membership Combined] Where Ownership = '" & Workgroup & "' Order By [Company]" 'SqlType = "Normal" End If If Workgroup = "Executive Committee" OR Workgroup = "EDA Staff" Then strSql = "Select * From Combined Where Workgroup = '" & Workgroup & "' Order By [Last Name]" 'SqlType = "Normal" End If If Workgroup = "Network Affiliates" Then strSql = "Select * From Combined Where Workgroup = '" & Workgroup & "' Order By [Company]" End If If Workgroup = "Alphabetical" OR Workgroup = "" Then strSql = "Select * From [Website Membership Combined] Order By [Last Name]" End If 'Where Status = 'Members' 'Response.Write(strSQl & "
") 'Response.End End If ' Else If action = Search 'If blanksearch <> True Then Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=eastb8.Members" 'Conn.Open "DSN=Members" Set RS = Conn.Execute(strsql) 'End If 'Response.Write(strSQl & "
") 'Response.Write(RS.recordcount & "
") 'Response.End If Workgroup = "" Or Workgroup = "Alphabetical" Then GroupHeading = "Alphabetical" Else GroupHeading = Workgroup End If GroupHeading = GroupHeading & " Membership Listing" %>

Sort Lists By:   SELECTED <% End If %>value="Network Affiliates">Affiliate Organizations SELECTED <% End If %>value="Alphabetical">Alphabetical Index SELECTED <% End If %>value="EDA Staff">EDA Staff SELECTED <% End If %>value="Executive Committee">Executive Committee SELECTED <% End If %>value="Non-profit">Nonprofit Members SELECTED <% End If %>value="Private">Private Sector Members SELECTED <% End If %>value="Public">Public Sector Members SELECTED <% End If %>value="Special District">Special District Members

Database Search		If you leave the Search Term blank it will give you either all Companies, ordered by Company Name, or all Last Names, ordered by Last Names. You may use partial values for the Search Term to find all results that start with the partial terms, i.e., Jo will find Jones, Jordon, Johnson, etc.
Search By	Search Term
Select Search By fieldSELECTED <%End If%>value="Company">CompanySELECTED <%End If%>value="Last Name">Last Name	"" Then%>value="<%=Request.Form("SearchValue")%><%End If%>">

<% If Not RS.EOF Then RS.MoveFirst ElseIf RS.EOF OR blanksearch = True Then %> <% End If 'LastCompany = RS("Company") Do While Not RS.EOF %> <% If Workgroup = "" Or Workgroup = "Alphabetical" OR Workgroup = "Executive Committee" OR Workgroup = "EDA Staff"Then %> <% Else %> <% End If %> <% RS.MoveNext Loop RS.Close Conn.Close %>

There were no results found for your query. Please check your spelling and reenter your search query. Make sure you have selected either Company or Last Name in the "Search By" field.

<%=RS("Salutation")%> <%=RS("First Name")%> <%=RS("Last Name")%>

<%=RS("Title")%>

<%=RS("Company")%>

<%=RS("Company")%>

<%=RS("Salutation")%> <%=RS("First Name")%> <%=RS("Last Name")%>

<%=RS("Title")%>

<%=RS("Address")%>, <%=RS("City")%>, <%=RS("State")%> <%=RS("Zip")%>

Phone:  <%=RS("Phone")%>

Fax:  <%=RS("Fax")%>

Email:  <%=RS("Email")%>

Web URL:  <%=RS("Web Site")%>