Ciao.

Che cosa sbaglio in questo codice di upload Baol?

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

Function IsSet(Value)
 IsSet = Not IsNull(Value) And Value <> ""
End Function

Sub Write(Value)
 Response.Write Value
End Sub

Set oUpload = new cUpload  
With oUpload
oUpload.Load
      
strCartellaUno = Split(oUpload.Form("C1"), "-")
strCartellaDue= Split(oUpload.Form("C2"), "-")  
strCartellaTre = Split(oUpload.Form("C3"), "-") 
    
    strFolder = "Folder/" & strCartellaUno1(1) & "/" & strCartellaDue(1) & "/" & strCartellaTre(1) & ""  

If IsSet(strFolder) Then

 oUpload.SetPath strFolder 
 oUpload.AutoRename = true
 oUpload.Overwrite = false
 
 While Not .Eof    
    
    oUpload.SaveAs oUpload.GetFileName    

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

 oUpload.MoveNext
Wend

Else
 Write "Percorso non valido"
End if

End With

Set oUpload = Nothing
Va in errore sulla riga rossa... error 80020009