Classic ASP

Re: download problems

tomkmvp — Mon, 15 Jun 2009 14:59:39 GMT

You'll have to use another object to access them. You could try this, not sure how it handles binary data:

http://classicasp.aspfaq.com/general/how-do-i-read-the-contents-of-a-remote-web-page.html

Re: download problems

shank63056 — Sat, 13 Jun 2009 15:41:31 GMT

Addendum: I think I know what the problem is, but not sure how to remedy. When I was on a dedicated server, my FPath was on the same machine and all worked fine.

I have since moved to a shared server, but my downloads are on another server entirely. So, instead of FPath="C:\myfiles\etc.", it's now FPath=http://www.myotherserver.com/myfiles/etc.

I don't want to disclose where the file is being downloaded from. Can the above be modified to do that?

thanks!

download problems

shank63056 — Sat, 13 Jun 2009 00:56:36 GMT

I'm having issues with the below. When a dialog box opens I opt to save the
file, but all I get is a 0 length file. Files should be 3MB+. I write FPath
to the screen and the link is correct. I can cut-n-paste to a browser
address bar and download the file as expected.

Is there a way to write FPath to the dialog box so I can see what's
happening there? Otherwise, what am I doing wrong here?

thanks!

<%
    Response.Buffer = False
    Server.ScriptTimeout = 30000

    Response.ContentType = "application/x-unknown" ' arbitrary
    fn = (rsFreeDownload.Fields.Item("FileNam").Value)
    FPath = "http://www.xyz.com" &
(rsFreeDownload.Fields.Item("Folder").Value) & fn
    Response.AddHeader "Content-Disposition", "attachment; filename=" & fn

    Set adoStream = CreateObject("ADODB.Stream")
    chunk = 4096
    adoStream.Open()
    adoStream.Type = 1
    adoStream.LoadFromFile(FPath)

    iSz = adoStream.Size

    Response.AddHeader "Content-Length", iSz

    For i = 1 To iSz \ chunk
        If Not Response.IsClientConnected Then Exit For
        Response.BinaryWrite adoStream.Read(chunk)
    Next

    If iSz Mod chunk > 0 Then
        If Response.IsClientConnected Then
            Response.BinaryWrite adoStream.Read(iSz Mod chunk)
        End If
    End If

    adoStream.Close
    Set adoStream = Nothing

    Response.End
%>