Jim,
The "downloadable files" and "imagegallery" follow the same code path. The only difference is : "downloadable files" allow you to view and download Files.
To handle the download, we use the following fuctions:
|
function downloadfile(file)
dim objFSO,objFile,objStream
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(file)
dim name, size
name = objFile.Name
size = objFile.Size
Set objFile = Nothing
Set objFSO = Nothing
Response.Clear
Response.AddHeader "Content-Disposition", "attachment; filename=" & name
Response.AddHeader "Content-Length", size
Response.ContentType = "application/octet-stream"
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
Response.CharSet = "UTF-8"
objStream.LoadFromFile(file)
Response.BinaryWrite(objStream.Read)
objStream.Close
Set objStream = nothing
end function |
I think maybe your Firewall block the 'Content-Disposition' directive causes the problem.
I suggest you try the following approach:
Replace the downloadfile function as an empty function:
| function downloadfile(file)
end function |
And test it on your server . If it works, that will prove it's a firewall issue.
Keep me posted.
asp.net Chat http://cutesoft.net/ASP.NET+Chat/default.aspx
Web Messenger: http://cutesoft.net/Web-Messenger/default.aspx
asp.net wysiwyg editor: http://cutesoft.net/ASP.NET+WYSIWYG+Editor/default.aspx
asp wysiwyg html editor: http://cutesoft.net/ASP
asp.net Image Gallery: http://cutesoft.net/ASP.NET+Image+Gallery/default.aspx
Live Support: http://cutesoft.net/live-support/default.aspx