<%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 Membership
WASFAA Printable Directory
NOTE:This document, when printed, is approximately 31 pages long, depending on your browser settings.
|
<%do while Not rs.EOF%>
<%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("Instutition").Value)<>"" then%>
<%=Server.HTMLEncode(rs.Fields("Instutition").Value)%>
<%else%>
<%end if%>
<%if (rs.Fields("Title").Value)<>"" then%>
<%=Server.HTMLEncode(rs.Fields("Title").Value)%>
<%else%>
<%end if%>
|
|
<%if (rs.Fields("Address").Value)<>"" then%>
<%=Server.HTMLEncode(rs.Fields("Address").Value)%>
<%else%>
<%end if%>
<%if (rs.Fields("City").Value)<>"" then%>
<%=Server.HTMLEncode(rs.Fields("City").Value)%>
<%else%>
<%end if%>
<%if (rs.Fields("Zip").Value)<>"" then%>
<%=Server.HTMLEncode(rs.Fields("Zip").Value)%>
<%else%>
<%end if%>
<%if (rs.Fields("PhoneNumber").Value)<>"" then%>
<%=Server.HTMLEncode(rs.Fields("PhoneNumber").Value)%>
<%else%>
<%end if%>
<%if (rs.Fields("EMailAddress").Value)<>"" then%>
<%=Server.HTMLEncode(rs.Fields("EMailAddress").Value)%>
<%else%>
<%end if%>
|
|
<%
rs.MoveNext
loop%>
<%rs.Close
Set rs = Nothing
conn.Close
%>