<% dim conn dim rs set conn = Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") conn.Open "driver= {Microsoft Access(*mdb)} ; dbq="&Server.MapPath("prova.mdb") dim strSQL strSQL = "SELECT *" strSQL= StrSQL & "FROM Prodotti" rs.Open strSQL,conn %> <% rs.MoveNext Loop %>