<% 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." else do while not rs.EOF Response.Write ""& afisareData(rs("data")) & "
" & "" & rs("subiect") &"
"& _ "" & left(rs("descriere"), 150) if len(rs("descriere")) > 150 then Response.Write "..." Response.Write "

---

" rs.MoveNext loop end if rs.Close : set rs = nothing Conn.Close : set Conn = nothing %>