<% set con = createobject("adodb.connection") sql = "select * from articles order by a_date desc" con.open "DSN=BIC" set rs = con.execute(sql) if not rs.eof then do while not rs.eof %> <% rs.movenext loop else Response.write "There are no articles to view" end if rs.close con.close %>
Article Description Date
"><%=rs("descr")%> <%=rs("a_date")%>