<%@ Language=VBScript %> <%Dim rs, SQL, i, Last_Name, First_Name,totalRow, firstCha, preFirstCha,author %> Scholastic Professional | Meet Our Authors | A-Z Index <% doMenu %>
  • Authors A-Z
  • Watch Author Talkabouts
  • Listen to Podcasts
  • How to Book a Speaker
  • Speakers' Schedule
Authors A-Z Index
Browse Scholastic Professional authors by clicking on a name below.
<% ''''''''''''''''''''''Loop Data and display the way that match design----------------- SQL="SELECT * FROM tblAuthors order by Last_Name" set rs = Con.execute(SQL) DO WHILE NOT rs.EOF Last_Name=rs("Last_Name") First_Name=rs("First_Name") totalRow=rs.recordcount firstCha=ucase(mid(Last_Name,1,1)) if firstCha <> preFirstCha then%> <% end if %> <%if i mod 2 = 0 then%> <%else%> <%end if preFirstCha = firstCha rs.MoveNext Loop rs.close set rs = nothing ''''''''''''''''''''''Loop Data and display the way that match design----------------- %>
<%=firstCha%>
 
<%=Last_Name%>, <%=First_Name%>
<%=Last_Name%>, <%=First_Name%>
<% doFooter %>