codice:
<%

dbPath = Server.MapPath("\")

Set dbConn = Server.CreateObject("ADODB.Connection")
dbConn.ConnectionTimeout=60
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0; "
ConnStr = ConnStr & "Data Source = " & dbPath & "\nomedatabase.mdb"
dbConn.Open(ConnStr) 
sql = "SELECT * FROM tabella WHERE nome <> ''"
Set RS=Server.CreateObject("ADODB.Recordset")
Set RS=dbConn.Execute(sql)

%>