<% ' Definisci stringa di connessione strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("mdb-database/cantieri.mdb") %> <% Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adOpenStatic = 3 Const adCmdText = &H0001 Set conn = Server.CreateObject("ADODB.connection") Set rs = Server.CreateObject("ADODB.Recordset") conn.Open strConn %> Gruppo Dalla Bona
  Eventi
<% rs.Open "SELECT * FROM Eventi ORDER BY Data DESC" , conn, adOpenStatic, adLockReadOnly, adCmdText Do while Not rs.EOF %>
<%=rs("Data") %>

<%=rs("Descrizione")%>


" width="210" border="0">

<% rs.MoveNext Loop rs.Close conn.Close %>