<%
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
%>
|
