Why is the user unable to download large .mp3 or .wav files with this code? It works perfectly well with small files.
(This is for you simonchristies... you helped me before)
<%
Set filesys = CreateObject("Scripting.FileSystemObject")
strWav = "/media/"&Request.Form("code1")&".mp3"
strFilename = server.MapPath(strWav)
if len(request.form("code1")) <7 Then
response.write "Please enter the correct number of digits."
else
If filesys.FileExists(strFilename) Then
strFilename = server.MapPath(strWav)
Response.Buffer = True
Response.Clear
Set s = Server.CreateObject("ADODB.Stream")
s.Open
s.Type = 1
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.Charset = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite s.Read
Response.Flush
s.Close
Set s = Nothing
Else
response.write "Sorry, your file is not yet prepared."
End If
End If
%>
(This is for you simonchristies... you helped me before)
<%
Set filesys = CreateObject("Scripting.FileSystemObject")
strWav = "/media/"&Request.Form("code1")&".mp3"
strFilename = server.MapPath(strWav)
if len(request.form("code1")) <7 Then
response.write "Please enter the correct number of digits."
else
If filesys.FileExists(strFilename) Then
strFilename = server.MapPath(strWav)
Response.Buffer = True
Response.Clear
Set s = Server.CreateObject("ADODB.Stream")
s.Open
s.Type = 1
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(strFilename)
intFilelength = f.size
s.LoadFromFile(strFilename)
Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name
Response.AddHeader "Content-Length", intFilelength
Response.Charset = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite s.Read
Response.Flush
s.Close
Set s = Nothing
Else
response.write "Sorry, your file is not yet prepared."
End If
End If
%>