<% searchstring=Request.Querystring("searchstring") stype=Request.Querystring("stype") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "asc2000","","" Set rs = Conn.Execute("SELECT * FROM abstracts ORDER BY Author") %> The Astrobiology Web | Your Online Guide to the Living Universe .
.
 Authors
<%Do While Not rs.EOF%>
  • "><%=trim(rs("author"))%>, (<% if rs("sessions")="oral" then%>Oral Presentation<%else%>Poster Session<%end if%>)
      <%=trim(rs("title"))%>

    <% RS.MoveNext Loop RS.Close %>

    [TOP]

    • <% Conn.Close set rs = nothing set Conn = nothing %>