<% ' dichiaro la variabile Conn di connessione Dim Conn ' eseguo la connessione con password Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("areanews/dbdata/db_gest.mdb") & ";PWD=sx52" %> <% ' dichiaro la variabile che conterr l'oggetto Recordset Dim rs 'creo l'oggetto Recordset Set rs = Server.CreateObject("ADODB.Recordset") 'Eseguo la query SQL SELECT rs.Open "SELECT * FROM news", Conn %> <% Do While not rs.EOF %> <%=rs("data") %> - "><%=rs("titolo") %>

<% rs.MoveNext Loop %>