% data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ Server.MapPath("../database/Fiere.mdb") Set con = Server.CreateObject ("ADODB.Connection") con.open data_source sqlProv = "select Distinct Provincia from Comuni order by Provincia;" Set RSProv=con.execute(sqlProv) Prov = RSProv.GetRows() %>