Uso l'Upload di Baol, tutto a posto.... TRANNE!....![]()
Uso questo codice
Come vedete dalla riga in rosso, ho necessità che in base alla categoria i files vengano messi in 4 cartelle diverse (nel form il campo CATEGORIA è una tendina a 4 voci e le cartelle le ho già create). Eppure niente da fare, continua a mettermi i files dentro PUBLIC. L'aggiornamento del database lo fa correttamente!!!!codice:<% Dim oUpload Set oUpload= new cUpload With oUpload .SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("\database\data001.mdb"),"SELECT Top 1 * FROM risorse" .EnabledAspUpload = False .EnabledImageSize = False .EnabledLog = False .AutoRename = False .Overwrite = True .SetPath "../public/" & oUpload.Form("categoria") .Load .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("versione") = .Form("nome") .Database.Fields("tipologia") = .Form("categoria") .Database.Fields("file") = .GetFileName 'Inserimento .Database.AddNew() response.Write "il file " & .GetFileName &" è stato salvato" .MoveNext Wend end if End With Set oUpload = Nothing %>
BAOOOOOOOL, AIUTOOOOOOO!
:master:

Rispondi quotando