Simple download script with asp

download.asp

<%
On Error Resume Next

downloadPath = <<path>>
fileName = <<name>>
fileExt  = <<extension>>
varTo = Server.MapPath(downloadPath) & "\" & fileName & fileExt
Set objStream = Server.CreateObject("ADODB.Stream") 

objStream.Open
objStream.Type = 1
objStream.LoadFromFile varTo

If Err = 0 Then
	Response.AddHeader "Content-Disposition", "attachment; filename=" & fileName & fileExt
	Response.Charset = "UTF-8"
	Response.ContentType = "application/vnd.ms-excel" 'Download Excel Files
	Response.BinaryWrite objStream.Read
End If

objStream.Close
Set objStream = Nothing
%>