Ciao a tutti,
dopo due giorni di ricerca e lettura post su questo forum sono riuscito a usare la fantastica clase di baol....
ora sto provando a fare una cosa un tantino più complicata...
fare l'uload di più file, i quali devono andare in diverse cartelle, e aggiornare dei campi di un database:
posto il codice che funziona per aggirnamento campi db e upload dei file tutti nel paht specificato:
Qualcuno può aiutarmi a rendere dinamico il paht e far si che ogni uno dei 4 file che ho nella form vengono uploadati in dir differenti.codice:<% If Request("Upload")="1" then Dim oUpload Set oUpload = new cUpload With oUpload .SetDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/mdb-database/lasercut.mdb"),"SELECT * FROM products" .EnabledImageSize = TRUE .SetPath "/mdb-database/db_documents/images/faq/" .Load .UploadOnly "Images" .MoveFirst .Database.open() While Not .Eof If .Files("Height")>150 or .Files("Width")>150 then Response.write ("<span class=""intestazioni"">LE DIMENSIONI DELL'IMMAGINE </span> <span class=""intestazioni"">" &_ .GetFileName() &"</span> <span class=""intestazioni""> NON SONO CORRETTE</span> <span class=""intestazioni"">(" &_ .Files("Height") &"x" & .Files("Width") &")</span>: <span class=""intestazionired"">Immagine non caricata!</span> " ) Test = False else .Save filename = .GetFileName() Test = True end if .MoveNext Wend 'Spiegazione di questa if: inserirai i dati nel db solo se entrambe le foto hanno una dimensione corretta e se entrambe sono state caricate. If Test then '.Database.Fields("idfaq") = .Form("fidnews") .Database.Fields("anno") = .Form("fyear") .Database.Fields("title") = .Form("ftitle") .Database.Fields("description") = .Form("fdescription") .Database.Fields("ldescription") = .Form("fldescription") .Database.Fields("idcategoria") = .Form("fcategory") .Database.Fields("image") = filename .Database.Addnew response.write "<span class=""intestazioni"">" response.write ("AGGIUNTA FAQ CON IMMAGINE RIUSCITA!") response.write "</span>" elseif test = false and .form("campo1") = "" then '.Database.Fields("idnews") = .Form("fidnews") .Database.Fields("data") = .Form("fdata") .Database.Fields("title") = .Form("ftitle") .Database.Fields("description") = .Form("fdescription") .Database.Fields("text") = .Form("ftext") .Database.Addnew response.write "<span class=""intestazioni"">" response.write ("LA FAQ E' STATA INSERITA CORRETTAMENTE! L'IMMAGINE NON E' STATA INSERITA POICHE' SI E' SCELTO DI NON CARICARE ALCUNA IMMAGINE CON QUESTA FAQ!") response.write "</span>" else end if End With Set oUpload = Nothing end if %>
grazie

Rispondi quotando