Malfunzionamento salvataggio file di testo

[Abraxas606]

Cia a tutti!!!
Nella mia applicazione il cliente deve avere la possibilità di scaricarsi un file di testo da lui generato.
Per far salvare il file uso questo script:

Dim objStream, strFileName
strFileName = Request.QueryString("myfile")
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile Server.MapPath("esportazioni/" & strFileName)
' Istruiamo il browser sul tipo di file
Response.AddHeader "Content-Disposition", "attachment; filename=" & Server.MapPath("esportazioni/" & strFileName)
Response.ContentType = "application/octet-stream"
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing 

Ma non mi funziona in quanto mi apre il file ma non lo salva.
Lo uso su win2003 server.
Qualcuno sà spiegarmi dove sbaglio???

Grazie.