Our association is growing with the assisted living industry and committed to offer you the support necessary to develop and operate superior facilities that satisfy the customer and produce a positive bottom line. <% Set conn = Server.CreateObject("ADODB.Connection") conn.open "ialaonline", "", "" Set memdir = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM memb_type WHERE (1 = 1) ORDER BY ID" memdir.Open sql,Conn,3,3 %> <% memdir.close conn.close set conn = nothing %> Search our Membership Database:   *Facility: *City: Member Type: - <% Do While NOT memdir.eof If len(memdir("type")) < 31 Then %> "><%= memdir("type") %> <% Else %> "><%= left(memdir("type"),30) %> ... <% End If memdir.movenext loop %> Results will be returned alphabetically *Optional entry fields Member Types Descriptions <% Dim strFacility,strCity,strType strFacility = Request.Form("facilityname") & Request.QueryString("facilityname") strFacility = Replace(strFacility,"'","%") strCity = Request.Form("city") & Request.QueryString("city") strType = Request.Form("membertype") & Request.QueryString("membertype") Set conn = Server.CreateObject("ADODB.Connection") conn.open "ialaonline", "", "" Set listings = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM members WHERE" If strFacility <> "" and strCity <> "" and strType <> "" Then sql = sql & " (facilityname LIKE '%" & strFacility & "%') And" sql = sql & " (city LIKE '%" & strCity & "%') And" sql = sql & " (field_number LIKE '" & strType & "')" Elseif strFacility <> "" and strCity <> "" and strType = "" Then sql = sql & " (facilityname LIKE '%" & strFacility & "%') And" sql = sql & " (city LIKE '%" & strCity & "%')" Elseif strFacility <> "" and strCity = "" and strType <> "" Then sql = sql & " (facilityname LIKE '%" & strFacility & "%') And" sql = sql & " (field_number LIKE '" & strType & "')" Elseif strFacility = "" and strCity <> "" and strType <> "" Then sql = sql & " (city LIKE '%" & strCity & "%') And" sql = sql & " (field_number LIKE '" & strType & "')" Elseif strFacility = "" and strCity = "" and strType <> "" Then sql = sql & " (field_number LIKE '" & strType & "')" Elseif strFacility = "" and strCity <> "" and strType = "" Then sql = sql & " (city LIKE '%" & strCity & "%')" Elseif strFacility <> "" and strCity = "" and strType = "" Then sql = sql & " (facilityname LIKE '%" & strFacility & "%')" Else sql = sql & "(0 = 1)" End If 'End 3 option coding sql = sql & " ORDER BY facilityname, city" listings.Open sql,Conn,3,3 %> <% If listings.RecordCount >= 1 Then %> <% Do while NOT listings.eof %> <% listings.movenext loop listings.Close %> <% Elseif strFacility = "" and strCity = "" and strType = "" Then %> <% Else %> <% End If %> <%= listings.RecordCount %>  Search Results Returned Click on the Facility name below for detailed information. "><%If listings("facilityname") <> "" Then %><%=listings("facilityname") %>,<% else %> No Facility Name,<% End If %> <% If listings("name") <> "" Then %><%= listings("name") %><% End If %> Please select your search options. If both Facility and City are left blank, Member Type is required. NO SEARCH RESULTS AVAILABLE Please try another search. If both Facility and City are left blank, Member Type is required. <% conn.close set conn = nothing %> Associate Member: Individuals or organizations that provide services to the assisted living industry, such as architects, insurers, attorneys and lenders. Member Communities: facility that provides assisted living services. Government/Other: This category includes any government agency, area agency on aging, full-time student and senior citizens. Pending Certified Providers: Pending Certified Providers / facility that provides assisted living services.