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>
codice:
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"
%>
grassie