| ||
|
<%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%> <% rs.MoveNext loop%> <%rs.Close Set rs = Nothing conn.Close %> |
||