<% searchstring=Request.Querystring("searchstring") stype=Request.Querystring("stype") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "asc2000","","" Set rs = Conn.Execute("SELECT * FROM abstracts2002 WHERE method ='POSTER' and iLive=FALSE ORDER BY PTITLE") Set rsT = Conn.Execute("SELECT Count(id) as totalcount from abstracts2002 WHERE method = 'POSTER'") %> Posters - Second Astrobiology Science Conference | The Astrobiology Web - Your Online Guide to the Living Universe
The Astrobiology Web · About Us · Advertising · Comments <% datToday = Date() intThisYear = Year(datToday) intThisMonth = Month(datToday) intThisDay = Day(datToday) strMonthName = MonthName(intThisMonth) strWeekDayName = WeekDayName (WeekDay(datToday)) %> <% = strWeekDayName %>, <%= strMonthName %> <% = intThisDay %>, <%= intThisYear %>    
 
.
.
Total Posters: <%=rsT("totalcount")%>

<%Do While Not rs.EOF%>

  • "><%=trim(rs("ptitle"))%>, <%=trim(rs("first"))%> <%=trim(rs("last"))%>.

    <% RS.MoveNext Loop RS.Close %>

    [TOP]

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