IPSEA.it - Innovazione Promozione Sviluppo Economia Aziendale

<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath(".") & "\news/ipsea001_10.mdb" SQL="SELECT * from news" Set Rsarch = Server.CreateObject("ADODB.Recordset") Rsarch.Open sql, conn, 3, 3 %> IPSEA.it - Innovazione Promozione Sviluppo Economia Aziendale

<% For i=1 to Rsarch.PageSize %> ')"><%= left(Rsarch("data"),10) %>

')"><%= (Rsarch.Fields.Item("titolo").Value) %>

')"><%=(Rsarch.Fields.Item("sottotitolo").Value)%>

<% Rsarch.MoveNext If Rsarch.EOF Then Exit For Next %>