Utilizzo lo script Baol per uplodare i file e scrivere i risultati in un db, tutto funziona benissimo vorrei solo che comparisse una semplice popup di attesa durante l upload con la sua chiusura al termine queste sono le mie due pagine :
codice:pagina di Form <form method="POST" enctype="multipart/form-data" action="Upload_Database.asp" onSubmit="return Controllo(this);"> <input name="file1" type="file" id="file1" size="40"> </form>grassiecodice:pagina Upload.Database.asp <% Dim oUpload Set oUpload= new cUpload With oUpload .SetDatabase "Driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.mappath("/mdb-database/db_bianca.mdb")& ";pwd=thematrix2it","SELECT Top 1 * FROM tbl_documenti" .EnabledAspUpload = False .EnabledImageSize = False .EnabledLog = False .AutoRename = True .Overwrite = False .SetPath "\public\" .Load .UploadOnly "zip" .MoveFirst if .EOF then 'NumFiles = .Count() 'Response.write "0 Files caricati su " & NumFiles &" : controlla le dimensioni e il tipo di file." else .Database.Open() While Not .EOF .Save 'Inserimento dei valori .Database.Fields("Titolo") = .Form("Titolo") .Database.Fields("Descrizione") = .Form("Descrizione") .Database.Fields("percorsoDoc")= .GetFileName 'Inserimento .Database.AddNew() .MoveNext Wend end if End With Set oUpload = Nothing response.Redirect "documenti.asp?sid="&session.sessionid&"&campo="&campo2&"&filtro="&filtro&"&aindex="&MM_index&"&action=view" %>

Rispondi quotando
