<%Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open "wasfaamembers" stmt = "SELECT allmembers.* FROM [allmembers] ORDER BY LastName, FirstName ASC " Set rs = conn.Execute(stmt, , adCmdText) 'rs.Open "allmembers",conn,adOpenKeySet,,adCmdTable %> <% dim unique%>

Your search resulted in the following results:

<%do while Not rs.EOF%>
"> <%=Server.HTMLEncode(rs.Fields("LastName").Value) +", "+(rs.Fields("FirstName").Value)%>
<%if (rs.Fields("Instutition").Value)<>"" then%> <%=Server.HTMLEncode(rs.Fields("Instutition").Value)%> <%else%>   <%end if%>
<%if (rs.Fields("PhoneNumber").Value)<>"" then%> <%=Server.HTMLEncode(rs.Fields("PhoneNumber").Value)%> <%else%> <%if (rs.Fields("800Number").Value)<>"" then%> <%=Server.HTMLEncode(rs.Fields("800Number").Value)%> <%else%>   <%end if%> <%end if%>
<%if (rs.Fields("EMailAddress").Value)<>"" then%> "><%=Server.HTMLEncode(rs.Fields("EMailAddress").Value)%> <%else%>   <%end if%>
2010-2011 Membership Status: <%if (rs.Fields("paid").Value)="y" then%> paid <%else%> unpaid <%end if%>

<% rs.MoveNext loop%> <%rs.Close Set rs = Nothing conn.Close %>