Bainbridge Island Chamber of Commerce

Search by Company or Last Name
...or search by a category listed below, on the left

NOTICE: this list is intended for the benefit of our members and their businesses. It is not for sale or for use in 3rd party bulk e-mailings. Such mailings are considered SPAM and are against Washington State Law. Anyone who uses this list for such purposes will be subject to prosecution under the fullest extent of the law.

(Please be patient, as it may take a moment or two to complete your search.)

<% if request.querystring("category") <> "" OR request.form("company") <> "" then %> <%else%> <% end if %>

<% MyDSN = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ "DATA SOURCE=" & Server.MapPath("/database/membership2000.mdb") & ";" '" set objrs = server.createobject("adodb.recordset") objrs.open "select * from [Master List] order by [description of business];", MyDSN do while not objrs.eof if thisdesc <> objrs("description of business") AND objrs("description of business") <> "" then thisdesc = objrs("description of business") %> <% end if objrs.movenext loop objrs.close set objrs=nothing %>

<%=thisdesc%>

<% count = 0 category = request.querystring("category") MyDSN = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _ "DATA SOURCE=" & Server.MapPath("/database/membership2000.mdb") & ";" '" set objrs = server.createobject("adodb.recordset") if request.querystring("category") <> "" then objrs.open "select * from [Master List] where [description of business] = '" & category & "' order by [Business];", MyDSN else company = request.form("company") objrs.open "select * from [Master List] where business LIKE '%" & company & "%' OR [last name] LIKE '%" & company & "%' OR [Field1] LIKE '%" & company & "%' order by [Business];", MyDSN end if if objrs.bof then response.write "no members found for that category or search" end if do while not objrs.eof count = count + 1 %> <%if rtrim(objrs("category")) = "Greenworks" then%> <%elseif rtrim(objrs("category")) = "Patron" then%> <%end if%> <% objrs.movenext loop objrs.close set objrs=nothing %>

<%=request.form("company")%><%=request.querystring("category")%>
<%=objrs("business")%> <% if objrs("field1") <> "" then response.write objrs("Field1") & " " end if %> <%=objrs("Phone")%> <%if objrs("title") <>"" then response.write objrs("title") & " " end if %> <%=objrs("first name")%> <% if objrs("initial") <> "" then response.write " " & objrs("initial") end if %> <%=objrs("last name")%> <%if objrs("2nd Contact") <> "" then response.write objrs("2nd Contact") & " " end if %> <%=objrs("mailing address")%> <%=objrs("city")%>,<%=objrs("state")%> <%=objrs("zip code")%> <% if objrs("fax") <> "" then %> <%=objrs("fax")%> <%end if%> <%if objrs("email") <> "" then%> "><%=objrs("email")%> <%end if%> <%if objrs("website") <> "" then %> " target=new><%=objrs("website")%> <%end if%> <%if objrs("category") <> "" then%> <%=objrs("category")%> member <%end if%>

Top