<% searchstring=Request.Querystring("searchstring") stype=Request.Querystring("stype") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "asc2000","","" Set rs = Conn.Execute("SELECT * FROM abstracts WHERE sessions = 'poster' ORDER BY TITLE") Set rsT = Conn.Execute("SELECT Count(id) as totalcount from abstracts WHERE sessions = 'poster'") %> The Astrobiology Web | Your Online Guide to the Living Universe .
.
 Total Posters: <%=rsT("totalcount")%>
<%Do While Not rs.EOF%>
  • "><%=trim(rs("title"))%>, <%=trim(rs("author"))%>.

    <% RS.MoveNext Loop RS.Close %>

    [TOP]

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