Allora il problema è questo
adopero questo script preso qui ed elaborato nel tempo e i sto sbattendo la testa per capire che cosa devo manipolare per aumentare la capacità di upload dell'immagine che attualmente è di circa 150 Kb

Grazie a chi mi aiuta, un ringraziamento anticipato a Roby ed Andrea che mi hanno sempre soccorso, spero domani mattina di trovare suggerimenti

------------------------------------------------------------------------ > > >

dim Upload1
dim nomeFilemio
dim nomeDescrittivo

Function RSBinaryToString(xBinary)
Dim Binary
If vartype(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary

Dim RS, LBinary
Const adLongVarChar = 201
Set RS = CreateObject("ADODB.Recordset")
LBinary = LenB(Binary)

If LBinary>0 Then
RS.Fields.Append "mBinary", adLongVarChar, LBinary
RS.Open
RS.AddNew
RS("mBinary").AppendChunk Binary
RS.Update
RSBinaryToString = RS("mBinary")
Else
RSBinaryToString = ""
End If
End Function

Function MultiByteToBinary(MultiByte)

Dim RS, LMultiByte, Binary
Const adLongVarBinary = 205
Set RS = CreateObject("ADODB.Recordset")
LMultiByte = LenB(MultiByte)
If LMultiByte>0 Then
RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte
RS.Open
RS.AddNew
RS("mBinary").AppendChunk MultiByte & ChrB(0)
RS.Update
Binary = RS("mBinary").GetChunk(LMultiByte)
End If
MultiByteToBinary = Binary
End Function



Upload1=false

ByteRicevuti = Request.TotalBytes

response.write(bytericevuti)

on error resume next

if ByteRicevuti > 0 then
DatiRicevuti = Request.BinaryRead(ByteRicevuti)
FileBinario = RSBinaryToString(DatiRicevuti)
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)

if instr(Intestazione,"testo1") > 0 then
testo1 = ContenutoFile
end if

if instr(Intestazione,"file1") > 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



mioInizioDescr = instr(ArrPezzi(2),"" & vbCrLf & "" & vbCrLf)
mioIntestazioneDescr = left(ArrPezzi(2),mioInizioDescr-1)
mioInizioDescr = mioInizioDescr + len("" & vbCrLf) + len("" & vbCrLf)
mioContenutoFileDescr = mid(ArrPezzi(2),mioInizioDescr,len(ArrPezzi(2))-mioInizioDescr-1)
nomeDescrittivo=mioContenutoFileDescr


Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
'EstensioneFile1 = right(ContenutoFile,3)
EstensioneFile1 = right(NomeFile,4)



if (len(NomeFile)-4) > 0 then
NomeFile1 = left(NomeFile,len(NomeFile)-4)
end if











nomef=nomefile1


if instr(ucase(estenzioni),ucase(EstensioneFile1&",") )>0 and nomef<>"" then

call controlla_cartella(percorso)
nomef=replace(nomef,"%20","")
nomef=replace(nomef," ","")

Set textStream = FSO.CreateTextFile(Server.MapPath(percorso) & "/"&nomef&EstensioneFile1, True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing

response.Redirect(paginaredir)

else
response.Write("I formati dei files accettati sono .JPG,.JPEG,.GIF,.BMP,.PNG,.JPEG,"&estenzioni&" file non caricato.")
end if

end if
next
End if

set DatiRicevuti=nothing

response.write ("bla bla bla")