Upload Baol: problemi con nome file

[[trodat]]

Ciao a tutti.

Utilizzo il codice di Baol per l'uplaod di files sul server.

Il form di invio è questo:

<form action="?upload=1" method="POST" ENCTYPE="multipart/form-data">
                  
   <input type="file" name="File1" size="35">

   <input type="file" name="File2" size="35">

   <input type="file" name="File3" size="35">

   <input type="file" name="File4" size="35">

   <input type="file" name="File5" size="35">

   <input type="text" name="Nota_1" size="25">
   <input type="text" name="Nota_2" size="25">
   <input type="text" name="Nota_3" size="25">
   <input type="text" name="Nota_4" size="25">
   <input type="text" name="Nota_5" size="25">

</form>

Come si può vedere ad ogni input type="file" corrisponde un input type="text" chiamato "Nota".

Succede che quando recupero i dati dal form se uno degli input type="file" non contiene nulla, quindi nessun file da uploadare, lo script va in errore generico error '80020009' sulla riga che nel codice è segnata in rosso.

Sapreste aiutarmi a risolvere questo problema?

If Request("Upload") = "1" then

Dim oUpload

   Set oUpload= new cUpload

   With oUpload
   .EnabledAspUpload = False
   .EnabledLog = False
   .AutoRename = True
   .Overwrite = False
   .SetPath "ticket\"
   .Load 
   

if oUpload.Form("NOTA_2") <> "" then
   strNOTA_2 = oUpload.Form("NOTA_2") 
else
   strNOTA_2 = "-" 
end if  

if oUpload.Form("NOTA_3") <> "" then
   strNOTA_3 = oUpload.Form("NOTA_3") 
else
   strNOTA_3 = "-" 
end if 

if oUpload.Form("NOTA_4") <> "" then
   strNOTA_4 = oUpload.Form("NOTA_4") 
else
   strNOTA_4 = "-" 
end if 

if oUpload.Form("NOTA_5") <> "" then
   strNOTA_5 = oUpload.Form("NOTA_5") 
else
   strNOTA_5 = "-" 
end if  

strNOTA = oUpload.Form("NOTA_1") & ";" & strNOTA_2 & ";" & strNOTA_3 & ";" & strNOTA_4 & ";" & strNOTA_5

While Not .Eof

arrNota = Split(strNOTA, ";")
for i = LBound(arrNota) to UBound(arrNota)

if oUpload.Form("File1") <> "" then
   file_uploaded = replace(oUpload.files("name"), "'", "''") & "." & oUpload.files("ext")  
elseif oUpload.Form("File2") <> "" then
   file_uploaded = replace(oUpload.files("name"), "'", "''") & "." & oUpload.files("ext")
elseif oUpload.Form("File3") <> "" then
   file_uploaded = replace(oUpload.files("name"), "'", "''") & "." & oUpload.files("ext")
elseif oUpload.Form("File4") <> "" then
   file_uploaded = replace(oUpload.files("name"), "'", "''") & "." & oUpload.files("ext")
elseif oUpload.Form("File5") <> "" then
   file_uploaded = replace(oUpload.files("name"), "'", "''") & "." & oUpload.files("ext")      
else
   file_uploaded = "Nessuno"
end if 

 .Save  

strSQL = " INSERT INTO "
strSql = strSql & " tabella "
strSql = strSql & " ( "
strSql = strSql & "   PERCORSO_FILE, "
strSql = strSql & "   NOTE "
strSql = strSql & " ) "
strSql = strSql & "   VALUES "
strSql = strSql & " ( "
strSql = strSql & "  'http://www.mywebpage.com/public/files/"& file_uploaded &"', "
strSql = strSql & "  '" & arrNota(i) & "' "
strSql = strSql & " ) "
cn.execute strSql

 .MoveNext

next

Wend

End With
Set oUpload = Nothing

end if

[[trodat]]

up

[Santino83_02]

ma fare un:

while not oUpload.eof

response.write oUpload.Files("InputName") & "
"
response.write oUpload.Files("Name") & "." & oUpload.files("ext") & "
"

oUpload.movenext
wend

senza tutti quegli if?

[[trodat]]

Va in errore: error '80020009' sempre sulla stessa riga, cioè questa:

strSql = strSql & "  'http://www.mywebpage.com/public/files/"& oUpload.Files("Name") & "." & oUpload.files("ext")  &"', "

Codice completo:

If Request("Upload") = "1" then

Dim oUpload

   Set oUpload= new cUpload

   With oUpload
   .EnabledAspUpload = False
   .EnabledLog = False
   .AutoRename = True
   .Overwrite = False
   .SetPath "ticket\"
   .Load 
   

if oUpload.Form("NOTA_2") <> "" then
   strNOTA_2 = oUpload.Form("NOTA_2") 
else
   strNOTA_2 = "-" 
end if  

if oUpload.Form("NOTA_3") <> "" then
   strNOTA_3 = oUpload.Form("NOTA_3") 
else
   strNOTA_3 = "-" 
end if 

if oUpload.Form("NOTA_4") <> "" then
   strNOTA_4 = oUpload.Form("NOTA_4") 
else
   strNOTA_4 = "-" 
end if 

if oUpload.Form("NOTA_5") <> "" then
   strNOTA_5 = oUpload.Form("NOTA_5") 
else
   strNOTA_5 = "-" 
end if  

strNOTA = oUpload.Form("NOTA_1") & ";" & strNOTA_2 & ";" & strNOTA_3 & ";" & strNOTA_4 & ";" & strNOTA_5

While Not .Eof

arrNota = Split(strNOTA, ";")
for i = LBound(arrNota) to UBound(arrNota)

while not oUpload.eof

response.write oUpload.Files("InputName") & "
"
response.write oUpload.Files("Name") & "." & oUpload.files("ext") & "
"

oUpload.movenext
wend

 .Save  

strSQL = " INSERT INTO "
strSql = strSql & " tabella "
strSql = strSql & " ( "
strSql = strSql & "   PERCORSO_FILE, "
strSql = strSql & "   NOTE "
strSql = strSql & " ) "
strSql = strSql & "   VALUES "
strSql = strSql & " ( "
strSql = strSql & "  'http://www.mywebpage.com/public/files/"& oUpload.Files("Name") & "." & oUpload.files("ext")  &"', "
strSql = strSql & "  '" & arrNota(i) & "' "
strSql = strSql & " ) "
cn.execute strSql

 .MoveNext

next

Wend

End With
Set oUpload = Nothing

end if

[Roby_72]

Vedo tre cicli: 2 sulla classe e uno sull'array....

Roby

[[trodat]]

Originariamente inviato da Roby_72
Vedo tre cicli: 2 sulla classe e uno sull'array....

Roby

Scusami ma non capisco cosa vuoi dirmi.... o suggerirmi...

[Roby_72]

Hai ciclato due volte la classe...
While Not .Eof
while not oUpload.eof e quest'utlima dentro la for...

sei sicuro che sia corretto?

Roby

[[trodat]]

Originariamente inviato da Roby_72
Hai ciclato due volte la classe...
While Not .Eof
while not oUpload.eof e quest'utlima dentro la for...

sei sicuro che sia corretto?

Roby

No, non sono sicuro... ho provato il suggerimento di Santino... ma l'errore è sempre lo stesso e si verifica perchè uno dei campi input type="file" non contiene file da inviare in upload al server...

[[trodat]]

up