<<<<<



<% xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db/tb.mdb") & ";" set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str set rs=conn.execute("select top 4 * from news order by id desc") do while not rs.eof %> <%= rs("titolo") %>
<%=replace(rs("testo") & "",chr(10),"
") %>

<% rs.movenext loop conn.close set conn = nothing %>