<% set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strConn set rs = Server.CreateObject("ADODB.RecordSet") query = "SELECT * FROM stiri ORDER BY data DESC;" rs.Open query, Conn, 1, 1 if rs.EOF then Response.Write "    Nu exista nici o stire deocamdata." else%> <% do while not rs.EOF %> <% rs.MoveNext loop end if rs.Close : set rs = nothing Conn.Close : set Conn = nothing %>

	<%=afisareData(rs("data"))%> - "><%=rs("subiect")%> <%=rs("descriere")%>