%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%>
WASFAA Printable Directory
NOTE:This document, when printed, is approximately 31 pages long, depending on your browser settings.
|
<%if (rs.Fields("LastName").Value)<>"" then%>
<%=Server.HTMLEncode(rs.Fields("LastName").Value)%>,
<%else%>
<%end if%>
<%if (rs.Fields("FirstName").Value)<>"" then%>
<%=Server.HTMLEncode(rs.Fields("FirstName").Value)%>
<%else%>
<%end if%>
|
|
<%if (rs.Fields("Address").Value)<>"" then%>
<%=Server.HTMLEncode(rs.Fields("Address").Value)%>
<%else%>
<%end if%>
|