udlæs binary file med save as dialog

Jeg har været en hel del rundt for at finde frem til at kunne fremtvinge en download dialogboks, hvor JEG kan foreslå navnet på denne fil.

Min kode som kommer fra Microsoft ser sådan ud:
<%
  fn = \"D:\\pn1_images\\images\\832001\\3579.jpg\"   
  Response.buffer = TRUE
  Response.ContentType = \"image/jpeg\"

  Dim vntStream

  Set oMyObject = Server.CreateObject(\"MyObject.BinRead\")
  vntStream = oMyObject.readBinFile(fn)

  Response.BinaryWrite(vntStream)

  Set oMyObject = Nothing

  Response.End
%>
Dette script fejler med et CreateObject failed!!
Jeg har fundet frem til følgende ting, hvis jeg vil kunne angive filnavnet:
Response.addheader \"content-disposition\", \"attachment; filename=fname.txt\"

Men jeg kan ikke få det til at spille, den downloader godt nok noget, men det er enten den asp fil jeg kommer fra eller selve den asp fil som skal sende billedet ?!?!?

Please, det må da kunne lade sig gøre ??

mvh
Mark