<%

dir="/REPORT" 
Set file1 = CreateObject("Scripting.FileSystemObject") 
Set file2 = file1.GetFolder(server.mappath("REPORT/STIVE")) 
Set file3 = file2.Files 

For Each file in file3 




'apro la connessione al db dove importare i dati
Set DFCon = Server.CreateObject( "ADODB.Connection" )
DFCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Persist Security Info=False; Data Source=" & Server.MapPath("mdb/TOTEM.mdb")
DFCon.Open




'mi connetto al foglio excel



Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("REPORT/stive/" &file.name) & ";;Extended Properties=""Excel 8.0;HDR=YES;IMEX=1""" 







'faccio la query al fooglio excel per leggere i dati
Set objRS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * from [sheet1$]"

objRS.Open SQL, objConn
If Not objRS.EOF then 'se ci sono dati 


Do while not objRS.eof 
 






'eseguo l'insert nella tabella del db
Set objRSInsert = Server.CreateObject("ADODB.Recordset")
strSQLInsert = "INSERT INTO appstive (TIMEIN, TIMEOUT, KANBAN) VALUES  (' "& objRS(0) &" ',' "& objRS(1) &" ',' "& objRS(2) &" ' )"




' response.End()

objRSInsert.Open strSQLInsert, DFCon, 3, 3
Set objRSInsert = Nothing


objRS.MoveNext
loop

Else
Response.Write("nessun record")
End IF
objRS.Close
Set objRS = Nothing
Next
DFCon.Close
Set DFCon = Nothing


%>