Salve a tutti,
sto usando il della Persits ASPUPLOAD all'interno di un ciclo "For Each File in Upload.Files".
Uso il metodo "File.SaveAs" per salvare due file con nomi diversi nella stessa cartella.
Il primo file me lo salva, il secondo mi dà il seguente errore:
Persits.Upload.1 error '800a001a'
Access is denied.
/gestioni/addmovimento.asp, line 819
Posto il codice:
In grassetto la riga dove mi da l'errore
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles=True
Upload.Save
root=server.MapPath("/")
folder="Sistemi Informativi"
For Each File in Upload.Files
NomefileOrigine=File.OriginalPath
NomefileUploadato=File.Path
NomeBreve=File.ExtractFileName
Dimensione=File.Size
Estensione=GetFileExtension(NomefileOrigine)
prefisso=Left(nomebreve, 3)
if ucase(prefisso) = "RAM" or ucase(prefisso)="RBA" then
anno = mid(nomebreve,5, 4)
end if
if ucase(prefisso)="RAM" or ucase(prefisso)="RBA" then
percorso=root & ("\documenti\") & folder & "\" & nomebreve
File.SaveAs(percorso)
elseif ucase(prefisso)="SKA" then
percorso=root & ("\documenti\") & folder & "\" & nomebreve
File.SaveAs(percorso)
elseif ucase(estensione)=".JPG" or ucase(estensione)=".GIF" then
Asset=File.Path
end if
Next
Grazie