upload file di grandi dimensioni

[domenico.nardo]

Buonasera... quella che mi è capitata è una vera emergenza. Dovrei dare la possibilità di uploadare un file .pdf o .doc o img di grandi dimensioni...
lo script che utilizzo adesso è:

<%
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 = "/public/schemi/"
Set MyFile = ScriptObject.CreateTextFile(Server.MapPath(pathEnd & filename))

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close%>
<%
response.redirect "../admin/insertschema.asp?schema=" & filename
%>

Per file fino a 2,5 Mb va bene.
Oltre mi da errore... alla linea 7 che è:

RequestBin = Request.BinaryRead(byteCount)

C'è qualcuno che sa dirmi come faccio ad aumentare la capacità di questo script?

Nel senso che avrei la necessità di uploadare file di circa 5 mb e oltre..

Grazie in anticipo.

[DarioN1]

Addio , 2.5 mb trammite web ???

Fagli zippare il file và . . .