<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=D:\Inetpub\webs\ifioriblucom\mdb-database\fontedati.mdb"
set rstNews = Server.CreateObject("ADODB.Recordset")
rstNews.Open ("SELECT id,titolo,notizia,data FROM news ORDER by data DESC "), Conn
%>
I Fiori Blu | Notizie
News.
<% do until rstNews.eof %>
-
<%=rstNews("titolo")%>
<%=rstNews("data")%>
<%=rstNews("notizia")%>
<% rstNews.movenext
loop
%>
<%
rstnews.close
set rstNews = nothing
conn.close
set conn = nothing
%>
