Downloading files of known mime type

[Bret Thompson]

I am attempting to write an ASP page that will download a file rather then
open it, when it is of known type. I found this code here:
http://mosley.arach.net.au/dev/docs/save%20as.htm

The first example works fine, for files under 5 Mb, the second example
downloads the file but the data is corrupted. Using a JGP file as a
reference, it seems to corrupt the end of the file (since the bottom of the
JPEG is corrupted).

Here is the code I am using. Any idea how to fix this? or an alternative
method?
Response.Conten tType = "applicatio n/x-unknown"
Response.AddHea der "content-disposition","a ttachment; filename=" &
Request.QuerySt ring("File")

Set adoStream = CreateObject("A DODB.Stream")
chunk = 2048
adoStream.Open( )
adoStream.Type = 1
adoStream.LoadF romFile(Server. MapPath(vFilePa th))

iSz = adoStream.Size

Response.AddHea der "Content-Length", iSz

For i = 1 To iSz \ chunk
If Not Response.IsClie ntConnected Then Exit For
Response.Binary Write adoStream.Read( chunk)
Next

If iSz Mod chunk > 0 Then
If Response.IsClie ntConnected Then
Response.Binary Write objStream.Read( iSz Mod chunk)
End If
End If

adoStream.Close
Set adoStream = Nothing

Response.End

[Ray Costanzo [MVP]]

What's with the chunks? Perhaps try this code here.

http://www.aspfaq.com/show.asp?id=2161

Ray at work

"Bret Thompson" <Bret Th******@discus sions.microsoft .com> wrote in message
news:17******** *************** ***********@mic rosoft.com...

I am attempting to write an ASP page that will download a file rather then
open it, when it is of known type. I found this code here:
http://mosley.arach.net.au/dev/docs/save%20as.htm

The first example works fine, for files under 5 Mb, the second example
downloads the file but the data is corrupted. Using a JGP file as a
reference, it seems to corrupt the end of the file (since the bottom of the JPEG is corrupted).

Here is the code I am using. Any idea how to fix this? or an alternative
method?
Response.Conten tType = "applicatio n/x-unknown"
Response.AddHea der "content-disposition","a ttachment; filename=" &
Request.QuerySt ring("File")

Set adoStream = CreateObject("A DODB.Stream")
chunk = 2048
adoStream.Open( )
adoStream.Type = 1
adoStream.LoadF romFile(Server. MapPath(vFilePa th))

iSz = adoStream.Size

Response.AddHea der "Content-Length", iSz

For i = 1 To iSz \ chunk
If Not Response.IsClie ntConnected Then Exit For
Response.Binary Write adoStream.Read( chunk)
Next

If iSz Mod chunk > 0 Then
If Response.IsClie ntConnected Then
Response.Binary Write objStream.Read( iSz Mod chunk)
End If
End If

adoStream.Close
Set adoStream = Nothing

Response.End

[Bret Thompson]

Ray,

Your link is the exact same code at the correct site. Scroll down to the
part that says
"Many people have complained that larger files simply do not work."
And you will see where I got the code with the "Chunks". This is thier
solution for large files.

The first code example fails with files larger then roughly 5 Mb.

Bret
"Ray Costanzo [MVP]" wrote:

What's with the chunks? Perhaps try this code here.

http://www.aspfaq.com/show.asp?id=2161

Ray at work

"Bret Thompson" <Bret Th******@discus sions.microsoft .com> wrote in message
news:17******** *************** ***********@mic rosoft.com...

I am attempting to write an ASP page that will download a file rather then
open it, when it is of known type. I found this code here:
http://mosley.arach.net.au/dev/docs/save%20as.htm

The first example works fine, for files under 5 Mb, the second example
downloads the file but the data is corrupted. Using a JGP file as a
reference, it seems to corrupt the end of the file (since the bottom of

the

JPEG is corrupted).

Here is the code I am using. Any idea how to fix this? or an alternative
method?
Response.Conten tType = "applicatio n/x-unknown"
Response.AddHea der "content-disposition","a ttachment; filename=" &
Request.QuerySt ring("File")

Set adoStream = CreateObject("A DODB.Stream")
chunk = 2048
adoStream.Open( )
adoStream.Type = 1
adoStream.LoadF romFile(Server. MapPath(vFilePa th))

iSz = adoStream.Size

Response.AddHea der "Content-Length", iSz

For i = 1 To iSz \ chunk
If Not Response.IsClie ntConnected Then Exit For
Response.Binary Write adoStream.Read( chunk)
Next

If iSz Mod chunk > 0 Then
If Response.IsClie ntConnected Then
Response.Binary Write objStream.Read( iSz Mod chunk)
End If
End If

adoStream.Close
Set adoStream = Nothing

Response.End

[Bret Thompson]

Ray,

Nevermind, I finally found it. There is a typo in thier code. Look at the
2 Response.Binary Write statements:
Response.Binary Write adoStream.Read( chunk)
Response.Binary Write objStream.Read( iSz Mod chunk)

Bret
"Ray Costanzo [MVP]" wrote:

What's with the chunks? Perhaps try this code here.

http://www.aspfaq.com/show.asp?id=2161

Ray at work

"Bret Thompson" <Bret Th******@discus sions.microsoft .com> wrote in message
news:17******** *************** ***********@mic rosoft.com...

I am attempting to write an ASP page that will download a file rather then
open it, when it is of known type. I found this code here:
http://mosley.arach.net.au/dev/docs/save%20as.htm

The first example works fine, for files under 5 Mb, the second example
downloads the file but the data is corrupted. Using a JGP file as a
reference, it seems to corrupt the end of the file (since the bottom of

the

JPEG is corrupted).

Here is the code I am using. Any idea how to fix this? or an alternative
method?
Response.Conten tType = "applicatio n/x-unknown"
Response.AddHea der "content-disposition","a ttachment; filename=" &
Request.QuerySt ring("File")

Set adoStream = CreateObject("A DODB.Stream")
chunk = 2048
adoStream.Open( )
adoStream.Type = 1
adoStream.LoadF romFile(Server. MapPath(vFilePa th))

iSz = adoStream.Size

Response.AddHea der "Content-Length", iSz

For i = 1 To iSz \ chunk
If Not Response.IsClie ntConnected Then Exit For
Response.Binary Write adoStream.Read( chunk)
Next

If iSz Mod chunk > 0 Then
If Response.IsClie ntConnected Then
Response.Binary Write objStream.Read( iSz Mod chunk)
End If
End If

adoStream.Close
Set adoStream = Nothing

Response.End