News: <% Dim mymarquee set conn=server.createobject("adodb.connection") conn.open "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("www.aazanskar.org/mdb-database/AZnews.mdb") sql="select top 5 * from news order by eventodagiorno desc" set rs=server.createobject("adodb.recordset") rs.open sql, conn, 1, 3 if rs.eof = false then for x = 1 to 5 mymarquee = mymarquee &" "& rs("eventodagiorno") &" - "& mid(rs("titolo"), 1, 70) & "....." rs.movenext if rs.eof then exit for next end if rs.close conn.close set rs=nothing set conn=nothing %>