<% dim con, rs Set con = Server.CreateObject("ADODB.Connection") con.Open Application("signature_ConnectionString") Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM Members WHERE Inactive = No ORDER BY Name;", con, 0, 1 %> Membership List

 

Home | Contact Us | News | Donate | Join

 
<% End If %>
<% Do While Not rs.EOF If IsNull(rs("Status")) OR rs("Status") = "" Then %> <% Else %> <%If IsNull(rs("Webpage")) OR rs("Webpage") = "" Then%> <%Else%> <%End If%> <% End If rs.MoveNext Loop %>


<% If rs.BOF and rs.EOF Then Response.Write "No Signature Members" Else rs.MoveFirst %> Audubon Signature Program Membership
 

 

The Audubon Signature Program Membership List is updated daily.  Members that are highlighted in blue have achieved Audubon Signature certification.  This prestigious honor recognizes the project for sustainable design and development.  If the Certified Audubon Signature Sanctuary has a Web site, it is linked here.

Type Legend

  Golf            = Golf Only

  Residential  = Houses Only

  Community  = Houses, community center, amenities

  Resort         = Hotel or villas

  Commercial  = Retail, light industrial uses

 
Program Member Name City State Country Joined Certified Type
color="#000080"><%Else If rs("Level") = "Gold" Then%>color="##00FFFF"><%Else%>color="#000000"><%End If%><%End If%><%If IsNull(rs("Level")) OR rs("Level") = "" then%> <%Else%><%=rs("Level")%><%End If%> <%If IsNull(rs("Name")) OR rs("Name") = "" then%> <%Else%><%=rs("Name")%><%End If%> <%If IsNull(rs("City")) OR rs("City") = "" then%> <%Else%><%=rs("City")%><%End If%> <%If IsNull(rs("State")) OR rs("State") = "" then%> <%Else%><%=rs("State")%><%End If%>

<%If IsNull(rs("Country")) OR rs("Country") = "" then%> <%Else%><%=Ucase(rs("Country"))%><%End If%>

 <%If IsNull(rs("Join")) OR rs("Join") = "" then%> <%Else%><%=rs("Join")%><%End If%>  

 <%=rs("Type")%>
<%If IsNull(rs("Level")) OR rs("Level") = "" then%> <%Else%><%=rs("Level")%><%End If%> <%If IsNull(rs("Name")) OR rs("Name") = "" then%> <%Else%><%=rs("Name")%><%End If%>">

<%If IsNull(rs("Name")) OR rs("Name") = "" then%> <%Else%><%=rs("Name")%><%End If%>

<%If IsNull(rs("City")) OR rs("City") = "" then%> <%Else%><%=rs("City")%><%End If%>

 <%If IsNull(rs("State")) OR rs("State") = "" then%> <%Else%><%=rs("State")%><%End If%>

<%If IsNull(rs("Country")) OR rs("Country") = "" then%> <%Else%><%=Ucase(rs("Country"))%><%End If%>

 <%If IsNull(rs("Join")) OR rs("Join") = "" then%> <%Else%><%=rs("Join")%><%End If%> <%=rs("Status")%>

<%=rs("Type")%>


 
 




Audubon International   
Copyright © 2007   


 
<% rs.Close Set rs = Nothing con.Close Set con = Nothing %>