Problema con upload in windows 2003

[mexican]

Ciao a tutti io ho questa funzione:
<%
function Rinomina (idCliente, nomeFile, cartella)
Dim fso, sPath, sNewFile, sOldFile
'percorso fisico dove risiede il file
if cartella="piccole" then
sPathOld = Server.MapPath(".") & "\allegati_mercatino\piccole"
sPathNew = Server.MapPath(".") & "\allegati_mercatino\piccole"
else
sPathOld = Server.MapPath(".") & "\allegati_mercatino\grandi"
sPathNew = Server.MapPath(".") & "\allegati_mercatino\grandi"
end if
'file da rinominare
sOldFile = nomeFile
'nuovo nome
sNewFile = "_" & idCliente & nomeFile
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.MoveFile sPathOld & "\" & sOldFile, sPathNew & "\" & sNewFile

Set fso = Nothing
Rinomina=sNewFile
end function
%>
<%
set rs=server.CreateObject("adodb.recordset")
server.ScriptTimeout=3000
Response.Expires=-1500
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest

'QUESTA FUNZIONE RECUPERA IL VALORE DEI CAMPI TESTUALI
function RequestForm(nome_campo)

Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item(nome_campo).Item("ContentType")

filepathname = UploadRequest.Item(nome_campo).Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item(nome_campo).Item("Value")
Set UploadRequest = nothing
RequestForm=value
end function


'inserimento file 1
filename_1=""
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item("allegato_1").Item("ContentType ")
filepathname = UploadRequest.Item("allegato_1").Item("FileName")
filename_1 = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("allegato_1").Item("Value")

if filename_1 <> "" then


Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
' da modificare
pathEnd=server.MapPath(".") & "\allegati_mercatino\piccole\" & filename_1


Set MyFile = ScriptObject.CreateTextFile(pathEnd)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
filename_1=Rinomina(session("id_cliente"), filename_1, "piccole")
end if
Set UploadRequest = nothing

e mi funzionava benissimo sul 2000 server ma ora che sono passato al 2003 mi da errore, è un problema di impostazione del server?

[deivnet]

Dipende sempre dall'errore che da... tipo permessi di scrittura su qualche cartella

[mexican]

mi dava errori sul database
a livello di permessi

[deivnet]

Ti dava ... perchè adesso hai impostato i permessi spero

[mexican]

perchè ora cancello prima il file e poi lo riscrivo!Ho risolto così ma spero sia qualcosa del server e lo vorrei sapere altrimentidevo cambiare in molti siti!!

[deivnet]

Tu cancelli il contenuto di un file che già esiste.
Secondo me ti mancano i permessi di scrittura, dove viene depositato il file. Devono essere impostati sul server, è fondamentale perchè funzioni.

[mexican]

se io faccio l'upload di un'img di nome "pippo.jpg" la prima volta funziona, poi se faccio di nuovo l'upload dell'img "pippo.jpg" non me la sovrascrive e mi da errore.I permessi ci sono sulla cartella.

[deivnet]

o non ci sono i permessi di modifica, oppure il file che tu carichi resta bloccato ...

[mexican]

dovrei dare i permessi=?
E nel caso rimane bloccato perchè?
A te funziona una cosa del genere(movefile) su windows 2003???

[deivnet]

A me funziona benissimo e ho impostato sulla cartella tutti permessi tranne FullControl...

Nel caso rimanga bloccato vuol dire che quando non chiudi qualche oggetto quando fai l'upload