That feature is included with v5 Option pack.
When the customer is done and the payment method was one of the approved methods, then a link is generated to download from the receipt page. Check this out:
http://www.vpasp.com/virtprog/vpasp500optiondesign.pdf
The modification I made was to the secure download seciton of the option pack because some of the things VPASP did in the code did not make sense to me and seemed to just be wasting time and server resources and created some security issues.
I have had a chance to clean up the download function a bit more:
Sub DownloadFile (realfile, stagingfile, filename)
response.clear
Dim oStr
Dim sFile
sfile=stagingfile
dim fso, f, sizeof
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(realfile)
SizeOf = f.Size
Set f = nothing
set fso = nothing
Set oStr = server.CreateObject("ADODB.Stream")
oStr.Open
oStr.LoadFromFile realfile
Response.ContentType = "application/octet-stream"
Response.AddHeader "content-disposition", "filename=" & filename
Response.AddHeader "Content-Length", SizeOf
Dim Buff
Do
Buff = oStr.ReadText(1024)
Response.BinaryWrite buff
Response.Flush
Loop Until IsNull(buff) or buff = ""
end sub
Edited by - gabriel on September 03 2003 15:43:04
Edited by - gabriel on September 04 2003 09:48:29