Ciao a tutti di seguito riporto la pagina che si dovrebbe occupare dell'upload delle immagini, purtroppo mi sono reso conto che non funziona sempre, se provo ad uploadare immagini grosse mi rimane in esecuzione senza mai portare a termine l'operazione, mentre con immagine piccole va bene, qualcuno sa aiutarmi?

Grazie 1000

<!-- #include file="i_utile.asp" -->
<%

percorso = "/"

ByteRicevuti = Request.TotalBytes

if ByteRicevuti > 0 then
DatiRicevuti = Request.BinaryRead(ByteRicevuti)

For i = 1 To lenB(DatiRicevuti)
FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
Next

FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
ArrPezzi = split(FileBinario,FirmaFile)

for item = 1 to ubound(ArrPezzi)-1
Inizio = instr(ArrPezzi(item),"" & vbCrLf & "" & vbCrLf)
Intestazione = left(ArrPezzi(item),Inizio-1)
Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)

' Recupero i campi se sono compilati
if instr(Intestazione,"txtTitolo") > 0 then
if ContenutoFile = "" then
Titolo=""
else
Titolo = ContenutoFile
end if
end if


if instr(Intestazione,"txtFoto") > 0 then
i = instr(Intestazione,"filename=")
j = instr(i + 10,Intestazione,chr(34))
NomeUpload = mid(Intestazione,i + 10,j-i-10)
i = instrRev(NomeUpload,"\")

if i<>0 then
NomeFile = mid(NomeUpload,i + 1)
else
NomeFile = NomeUpload
end if
if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
EstensioneFile1 = right(ContenutoFile,3)
NomeFile1 = NomeFile


Set textStream = FSO.CreateTextFile(server.mappath("images/" & NomeFile1), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
end if
end if

next

End if
%>