Upload baol filu multiplo con controllo

[Skyscraper84]

Ciao,
da una form consento di caricare 2 file, ma l'utente potrebbe caricarne uno solo a sua discrezione.

Come faccio in fase di salvataggio a verificare quale dei 2 file è stato inserito?

 do While Not oUpload.Eof  
   
passo = passo + 1   
   ' oUpload.SaveAs oUpload.GetFileName
	if passo = 1 then
		documento = "Procura"
	end if
	if passo = 2 then
		documento = "Documento"
	end if
   
   oUpload.SaveAs IdRichiesta & "_" & IdProv & "_" & REASoc & "_" & documento & "." & oUpload.files("ext")
	if passo = 1 then
		rs_pratiche("FileProcura") = IdRichiesta & "_" & IdProv & "_" & REASoc & "_" & documento & "." & oUpload.files("ext")
	end if
	if passo = 2 then
		rs_pratiche("FileDocumento") = IdRichiesta & "_" & IdProv & "_" & REASoc & "_" & documento & "." & oUpload.files("ext")
	end if
   
   
   
   file_uploaded = replace(oUpload.files("name"), "'", "''") & "." & oUpload.files("ext") 
   ' response.write file_uploaded & "

"

	
   ' oUpload.MoveNext
   ' loop

	rs_pratiche.update


Set oUpload=Nothing

Allo stato attuale il codice mi salva l'eventuale unico file allegato nella posizione Procura anche se magari è stato allegato in Documento

Grazie
Ciao

[Roby_72]

Devi controllare la proprietà InputName mi pare.

Roby

[Skyscraper84]

Niente di più specifico Roby?

Non conosco bene Baol

Ciao

[Skyscraper84]

ho fatto così

passo = 0
   do While Not oUpload.Eof  
   
passo = passo + 1   
   ' oUpload.SaveAs oUpload.GetFileName
	if passo = 1 then
		documento = "Procura"
	end if
	if passo = 2 then
		documento = "Documento"
	end if
   
   oUpload.SaveAs IdRichiesta & "_" & rs_pratiche("IdProvinciaCCIAA") & "_" & rs_pratiche("NumeroRea") & "_" & documento & "." & oUpload.files("ext")
	' if passo = 1 then
		' rs_pratiche("FileProcura") = IdRichiesta & "_" & IdProv & "_" & REASoc & "_" & documento & "." & oUpload.files("ext")
	' end if
	' if passo = 2 then
		' rs_pratiche("FileDocumento") = IdRichiesta & "_" & IdProv & "_" & REASoc & "_" & documento & "." & oUpload.files("ext")
	' end if
   
Select Case lCase(oUpload.Files("InputName"))
			Case "Procura"
					rs_pratiche("FileProcura") = IdRichiesta & "_" & rs_pratiche("IdProvinciaCCIAA") & "_" & rs_pratiche("NumeroRea") & "_Procura." & oUpload.files("ext")
					rs_pratiche.update
			Case "Documento"
					rs_pratiche("FileDocumento") = IdRichiesta & "_" & rs_pratiche("IdProvinciaCCIAA") & "_" & rs_pratiche("NumeroRea") & "_Documento." & oUpload.files("ext")
					rs_pratiche.update

						End Select

   
   file_uploaded = replace(oUpload.files("name"), "'", "''") & "." & oUpload.files("ext") 
   ' response.write file_uploaded & "

"

	
    oUpload.MoveNext
    loop

	rs_pratiche.update


Set oUpload=Nothing

ma c'è ancora qualcosa che non va... scrive sempre il file come Procura

[Skyscraper84]

help...

con queste input...

<input type="file" name="Documento" id="Documento" size="60">
<input type="file" name="Procura" id="Procura" size="60">

oUpload.MoveFirst

   do While Not oUpload.Eof  
   

  
Select Case lCase(oUpload.Files("InputName"))
			Case "Procura"
					oUpload.SaveAs IdRichiesta & "_" & rs_pratiche("IdProvinciaCCIAA") & "_" & rs_pratiche("NumeroRea") & "_Procura." & oUpload.files("ext")
					rs_pratiche("FileProcura") = IdRichiesta & "_" & rs_pratiche("IdProvinciaCCIAA") & "_" & rs_pratiche("NumeroRea") & "_Procura." & oUpload.files("ext")
					rs_pratiche.update
			Case "Documento"
					oUpload.SaveAs IdRichiesta & "_" & rs_pratiche("IdProvinciaCCIAA") & "_" & rs_pratiche("NumeroRea") & "_Documento." & oUpload.files("ext")
					rs_pratiche("FileDocumento") = IdRichiesta & "_" & rs_pratiche("IdProvinciaCCIAA") & "_" & rs_pratiche("NumeroRea") & "_Documento." & oUpload.files("ext")
					rs_pratiche.update

						End Select



	
    oUpload.MoveNext
    loop

e questo codice non accade un bel nulla, dove sbaglio?
il file non viene salvato e sul database non scrive nei campi appositi.

Altri dati del form vengono invece correttamente salvati sul database

Idee? Cosa mi sfugge?

[Skyscraper84]

Che errore banale...

Case "Procura"

maledetta P maiuscola!

Grazie