This worked for me (I was running into the 4MB ceiling too) (Thanks to
Jason Withrow's contribution to ASP101
which helped me get started on downloading files)
Response.Buffer = True 'I didn't try "False"
Const BufSize = 2097152 '2MB "chunk"
Dim i
Dim objstream
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
strFileType = lcase(Right(strFileName, 4))
' Feel Free to Add Your Own Content-Types Here
Select Case strFileType
Case ".doc"
ContentType = "application/msword"
Case ".jpg", "jpeg"
ContentType = "image/jpeg"
:
: 'other cases
:
Case Else
ContentType = "application/octet-stream"
End Select
Response.Charset = "UTF-8"
Response.ContentType = ContentType
i = 1
Response.BinaryWrite objStream.Read(BufSize)
Response.Flush
while not objstream.EOS
objstream.Position = (BufSize * i)
Response.BinaryWrite objstream.Read(BufSize)
Response.flush
i = i + 1
wend
objStream.Close
Set objStream = Nothing
"cnote" <cn***@discussions.microsoft.comwrote in message
news:B1**********************************@microsof t.com...
>I am trying to upload large images ( around 4 mb) from the server to show
on
the client. Currently I'm using an http handler to do it and breaking it
into chunks sending it 1 mb at a time. Sometimes I'm getting errors, like
the page won't load. Any solutions on how this is done right? Thanks for
your help.