Uso questo per forzare il download di file...
codice:
Dim download, filescar
filescar = Request.QueryString("file")

Set download = Server.CreateObject("ADODB.Stream") 

download.Type = 1 
download.Open 
download.LoadFromFile Server.MapPath(filescar) 

Response.AddHeader "Content-Disposition", "attachment; filename=" & filescar 
Response.ContentType = "application/octet-stream" 
Response.BinaryWrite download.read 

download.Close 
Set download = Nothing
Funziona, ma se il file supera una certa dimensione (4Mb, più o meno), non riconosce il tipo di file e va in errore il download. In particolare ho provato con gli ZIP, con gli altri file non so. Come mai??