Descargas y cuadros de dialogo

Hola a todos:

Estoy intentando realizar descargas automatizadas con
BINARYWRITE, gracias a la ayuda de un forero enrollao :-)

El problema que surge, es que me aparecen 2 cuadros de diálogo
consecutivos, no debiendo aparecer más que el segundo:

- el primero dice, "Está descargando el archivo pagina.ASP". Aquí
está el problema, pues esta página es la que contiene el Script en
ASP, y está claro que no debería aparecer.
- el 2º cuadro de diálogo, que es el correcto, aparece al pulsar
"Abrir..." y m descarga el fichero real", por ejemplo "Está
descargando el archivo fichero.doc"

¿Como evito que aparezca el 1er cuadro de diálogo?


Quiero aclarar que la página ASP nunca llega a descargarse realmente,
¡menos mal! O:-), pero hay que aceptar este mensaje para que aparezca
e l 2º con el fichero, que es el que únicamente me interesa que
aparezca.

Hhe probado con distintos valores para response.Addheader y
contentType, y en distinto orden. Os envío parte del código.

Muchas gracias por vuestro tiempo.

'
Set fso = CreateObject("Scripting.FileSystemObject")
Set fichero = fso.GetFile("c:\descargas\fichero.doc") '--por ejemplo

response.contentType = "application/x-unknown"
'-- he probado con y sin ella y con distintos valores '
' -- "application/x-unknown" , "application/octet-stream",
"application/msword", etc,

response.addHeader "Content-Disposition", "attachment; filename=" &
chr(34) & vfich & chr(34)

response.BinaryWrite getBinaryFile( "c:\descargas\fichero.doc"))


function getBinaryFile(fileSpec)
Dim adTypeBinary
adTypeBinary = 1
Dim oStream
set oStream = server.createobject("ADODB.Stream")
oStream.Open
oStream.Type = adTypeBinary
oStream.LoadFromFile fileSpec
getBinaryFile = oStream.read
set oStream = Nothing
end function
'