Scaricare un EXE non zippato

[albis]

una volta ho dovuto fare una cosa del genere
per un file .csv

prova a vedere se ti è utile

Set objFSO = CreateObject("Scripting.FileSystemObject")
		set objFile = objFSO.OpenTextFile(strPercorso, 2,true)
		objFile.Write strTesto
		objFile.Close
		
		Dim Stream 
		Dim Contents 
		Dim FileName 
		FileName = "Contatti.csv" 
		Response.ContentType = "application/octet-stream" 
		Response.AddHeader "content-disposition", "attachment; filename=" & FileName 
		Set Stream = server.CreateObject("ADODB.Stream") 
		Stream.Open 
		Stream.LoadFromFile strPercorso'Server.MapPath(FileName) 
		Contents = Stream.ReadText 
		Response.BinaryWrite Contents 
		Stream.Close 
		Set Stream = Nothing