codice:
<%
SQL = "SELECT * from [primo$]" 
strProvider="DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath ("descrizione.xls") 
Set rs = Server.CreateObject("ADODB.recordset") 
rs.Open SQL, strProvider 
If rs.EOF then%>
non ci sono dati
<%Else
rs.MoveFirst
Do While Not rs.Eof
Dim ConnDown 
Set ConnDown=Server.CreateObject("ADODB.Connection") 
ConnDown.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(path&"mdb-database/my-db.mdb") 
Dim SQL1, RECDown 

SQL1 = "INSERT INTO descrizione (nome, cognome, telefono) VALUES (' "& rs("nome") &" ',' "& rs("cognome") &" ',' "& rs("telefono") &" ' )" 
set RECdown = connDown.execute(sql1)
rs.MoveNext
loop
rs.close
end if
%>
è perfetto sul server, ma in locale stampa nel db altri record nulli del file descrizione.xls