<% Set objNames = Server.CreateObject ("ADODB.Recordset") If strAlpha="" Then strSQL = "Select * From Members Order By Last_Name,First_Name" Else strSQL = "Select * From Members Where UCase(Left(Last_Name,1)) = '" & strAlpha & "' Order By Last_Name,First_Name" End If strAlpha = "" objNames.Open strSQL, objConAFTA Do While NOT objNames.EOF If strAlpha <> UCase(Left(objNames("Last_Name"),1)) Then strAlpha = UCase(Left(objNames("Last_Name"),1)) %> <% Else %> <% End If %> <% objNames.MoveNext Loop %>

Select the first letter of the member's last name: A | B | C | D | E | F | G | H | I | J | K | L | M N | O | P | Q | R | S | T | U | V| W | X | Y | Z

Select AFTA Members by publisher: Guilford Wiley