<% option explicit %> <% dim oConn set oConn = server.createobject("adodb.connection") oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/db/kcrhca.mdb") & ";" %> <% dim oRs dim aRs dim rr dim sql dim organization, firstname, lastname, exec_title, address1, address2, city, state, zip, phone, fax, email, photo dim output on error resume next sql = "SELECT organization, firstname, lastname, exec_title, address1, address2, city, state, zip, phone, fax, email, photo " sql = sql & "FROM exec_board WHERE cte_only = 0 " if request.form("category") <> "" then sql = sql & "AND category = '" & request.form("category") & "' " end if sql = sql & "ORDER by lastname, firstname " set oRs = oConn.execute(sql) if not oRs.eof then aRs = oRs.getrows() set oRs = nothing for rr = 0 to ubound(aRs,2) organization = aRs(0,rr) firstname = aRs(1,rr) lastname = aRs(2,rr) exec_title = aRs(3,rr) address1 = aRs(4,rr) address2 = aRs(5,rr) city = aRs(6,rr) state = aRs(7,rr) zip = aRs(8,rr) phone = aRs(9,rr) fax = aRs(10,rr) email = aRs(11,rr) photo = aRs(12,rr) if photo = "" then photo = "blank.gif" end if output = output & "" & chr(10) output = output & " " & chr(10) output = output & " " & chr(10) output = output & " " & chr(10) output = output & " " & chr(10) output = output & " " & chr(10) output = output & "

" & chr(10) output = output & "

" & chr(10) output = output & " " & firstname & " " & lastname & "
" & chr(10) output = output & " " & exec_title & "

" & chr(10) output = output & " " & organization & "
" & chr(10) output = output & " " & address1 & "
" & chr(10) if len(address2) then output = output & " " & address2 & "
" & chr(10) end if output = output & " " & city & ", " & state & " " & zip & "
" & chr(10) output = output & " Phone " & phone & "
" & chr(10) output = output & " Fax " & fax & "
" & chr(10) output = output & " Email: " & email & "

" & chr(10) next else set oRs = nothing end if %> Kansas City Regional Home Care Association

Executive Board

<%=output%>