Ciao Ragazzi,
qualcuno sa come fare l'upload di un file in locale?
mi spiego, se lo faccio sul server aruba tutto ok,funziona perfettamente, ma se cerco di farlo in locale nada...!

ecco il codice..




<%
Response.Expires=1000
Response.Buffer = true
Response.Clear

'************************************************* ********************
' UPLOAD DEL FILE
%>

<%
'Creiamo l'oggetto FileUploader ed assegnamogli il nome Uploader
Dim Uploader, File, corpoMessaggio, numeroCampi, msg
Set Uploader = New FileUploader

'Impostiamo la dimensione max del file in byte
Uploader.maxSize = 500000 'in byte

'Impostiamo il tipo di file ammessi
Uploader.fileExt = "jpg,gif,bmp,txt,doc,pdf,zip"

'Iniziamo il processo di upload
Uploader.Upload()

'------------Recupero campi del form

idUtente = Uploader.Form("id")

'------------Recupero file
'Impostiamo la cartella in cui andranno memorizzati i file di upload
'strPath = Server.MapPath("../public/curriculum/")
strPath = Server.MapPath("../public/curriculum/")

'Controlliamo se sono stati inviati dei file
If Uploader.Files.Count = 0 Then ' Nessun file inviato
If Uploader.Error Then ' file allegato non ammesso
msg = "file allegato non ammesso"
End If

Else

' Ciclo tra i file inviati...
' ...In questo esempio già so che ce ne sarà solo uno, quindi
' dichiaro un riferimento di tipo file e lo associo fuori
' dal for così lo posso usare dopo...
Dim objFSO, objFolder, objFile
Set objFSO = server.createobject("Scripting.FileSystemObject")

For Each File In Uploader.Files.Items

'Salvo il file
File.SaveToDisk strpath

dim estensioneFile
estensioneFile = right(File.FileName,4)
File.FileName

nome = "curriculum_" & idUtente & estensioneFile

if (objFSO.FileExists(strpath & nome)) then
objFSO.DeleteFile strpath & nome
end if

'response.write strpath & nome

'objFSO.moveFile strpath & "/" & File.FileName, strpath & nome


'-------------------------------------------------------------
Next



Set Uploader = Nothing
End If

if (objFSO.FileExists(strpath & nome)) then
response.write "
<p align=center><font face=verdana size=3 color=#000080>Il curriculum e' stato inserito!</font></center>"
response.write "
<p align=center><font face=verdana size=1 color=#000080>[b]torna all' elenco</font></p>"
else
response.write "
<center><font face=verdana size=3 color=#000080>Il curriculum non e' stato inserito!</font></center>"
response.write "
<p align=center><font face=verdana size=1 color=#000080>[b]<a href=javascript:history.back();>torna all' elenco</a></font></p>"
end if


'************************************************* ************
' RICORDARE DI LIBERARE LE RISORSE objfolder e objfso !
'************************************************* ************

'elimino il file temporaneo e libero le risorse
if objFile <> "" then
objFile.delete
end if

set objfolder = Nothing
set objfso = nothing
%>