ciao, vengo subito al dunque, ho il seguente codice che mi permette di uploadare un file su server ARUBA:

codice:
<% Server.ScriptTimeout=3600%> 
 
<%Response.Expires=0 
Response.Buffer = TRUE 
Response.Clear 
byteCount = Request.TotalBytes 
RequestBin = Request.BinaryRead(byteCount) 
Dim UploadRequest 
Set UploadRequest = CreateObject("Scripting.Dictionary") 
BuildUploadRequest RequestBin 
contentType = UploadRequest.Item("blob").Item("ContentType") 
filepathname = UploadRequest.Item("blob").Item("FileName") 
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) 
value = UploadRequest.Item("blob").Item("Value") 

'Create FileSytemObject Component 
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") 

'Create and Write to a File 
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14 
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd) & filename) 

For i = 1 to LenB(value) 
MyFile.Write chr(AscB(MidB(value,i,1))) 
Next 
MyFile.Close%>

Se io uppo file da 2-3 Mb, lo sricpt funziona alla grande, il file viene uploadato con successo.

Ma se incomincio a uppare file da 15-20 Mb, mi da o un errore nella riga 6 o un errore nella riga 7.

Qualcuno sa spiegarmi il perchè?
Devo usare un codice diverso?

Grazie in anticipo