Upload di due file contemporaneamente

[Luis33]

Hola a todos!

Ho un problema con l'upload di due file contemporaneamente; l'upload si esegue correttamente, ma nel dbase si creano 2 records diversi (uno per ogni file inviato).

Dovrebbe crearsi ,invece, un solo record che contenga in due campi diversi della tabella (percorsofile1 e percorsofile2) i due file inviati in upload; ecco il codice:

Dim FileField
  For Each FileField in Form.Files.Items
    if len(FileField.FileName)> 0 then 
    
     Dim DestinationFileName
     DestinationFileName = DestinationPath & FileField.FileName
     response.write DestinationFileName &"
"

     FileField.SaveAs DestinationFileName
      
      RS.AddNew
       RS("DATA") = Now()
       RS("titolo") = FileField.Name
       RS("Upload") = virtDestinationPath & FileField.FileName
       RS.Update
    end if
  Next

dove sbaglio?

[Roby_72]

Non sbagli.
Inserisci i nomi dei file e le altre informazioni in un array e poi fai l'inserimento DOPO il ciclo in base a quanto contenuto nell'array.

Roby

[Luis33]

Grazie Roby... ma non ho capito...

[Roby_72]

Bene...
Tu scrivi un record per ogni file che recuperi perché l'inserimento lo fai nel ciclo di recupero dei file.
Invece di far questo, inserisci le informazioni in un array e dopo fai una sola insert su un solo record.

Roby

[Luis33]

mi fai un esempio per favore? grazie...

[Roby_72]

Dim FileField
dim arr_file(1)
cont = 0
  For Each FileField in Form.Files.Items
    if len(FileField.FileName)> 0 then 
    
     Dim DestinationFileName
     DestinationFileName = DestinationPath & FileField.FileName
     response.write DestinationFileName &"
"

     FileField.SaveAs DestinationFileName
      arr_file(cont) = FileField.Name
      cont = cont +1
    end if
  Next

'Inserisci nel db
I due nomi di file sono in arr_file(0) e arr_file(1)

Roby

[Luis33]

grazie Roby, adesso crea un solo record con i due files inviati in upload... ma memorizza i nomi dei campi del form (file1 e file2) e non più il percorso dei files....

[Roby_72]

Ma il percorso lo conosci, a cosa ti serve?

Roby

[Luis33]

Il problema che ho previsto che se per un caso qualsiasi, si esegue l'upload di un file già presente nella cartella (ossia con lo stesso nome), il nuovo file venga automaticamente rinominato così:

2-stessonomefile.jpg

quando però faccio la query il file che si inserisce è sempre

stessonomefile.jpg

; questo il codice:

Dim File, DestFileName
  dim arr_file(1)
  cont = 0
  For Each File In Form.Files.Items
		If Len(File.FileName) > 0 Then
        DestFileName = GetUniqueFileName(File.FileName, DestinationPath)
        DestinationFileName = DestinationPath & File.FileName
        response.write DestinationFileName &"
"        
        File.SaveAs DestinationPath & "\" & DestFileName
        a = virtDestinationPath & File.FileName
        response.write a &"
"
        arr_file(cont) = File.FileName
        cont = cont +1
	  End If
  Next

AUTORE=FORM("AUTORE")
TITOLO=FORM("TITOLO")
CATEGORIA=FORM("CATEGORIA")
TESTO=FORM("TESTO")

DIM ARR_DALFORM_CATEGORIA
ARR_DALFORM_CATEGORIA = split(CATEGORIA, "-")
CATEGORIA0 = ARR_DALFORM_CATEGORIA(0)
CATEGORIA1 = ARR_DALFORM_CATEGORIA(1)

SQL = "INSERT INTO LA_TECNICA(AUTORE, TITOLO, CATEGORIA, ID_CATEGORIA, TESTO, DATA, UPLOAD_COPERTINA, UPLOAD_RIPRODUZIONE) VALUES ('"&AUTORE&"','"&TITOLO&"', '"&CATEGORIA1&"', "&CATEGORIA0&", '"&TESTO&"', #"&NOW&"#, '"&arr_file(0)&"', '"&arr_file(1)&"')"
Conn.Execute(SQL)

[Roby_72]

E se uno inserisce subito questo nome file: 2-stessonomefile.jpg?
Non mi sembra tu metta il 3, ecc...

Non credo questo meccanismo sia sicuro.

Roby