è perfetto sul server, ma in locale stampa nel db altri record nulli del file descrizione.xlscodice:<% 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 %>

Rispondi quotando
