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
'

Hola Alberto.

¿Cómo llamas a la "pagina.asp"?

Creo que tu problema radica en la forma de efectuar la llamada a la
página. Revisa por ese lado.

Saludos!
Miguel


Alberto Valle wrote:

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) & "fichero.doc" & 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
'

Que tal Miguel:

La PAGINA.ASP es la que contiene el código para la descarga, y se
llama así "PAGINA,ASP". Es un ejemplo, quizás fuera más propiado
llamarla DESCARGA.ASP.

La llamo directamente, escribiendo su URL en la barra de direcciones.
Antes la llamaba por un FORM, pero como me daba estos problemas hice
esta página única asignando las rutas y el fichero como constantes.

Seguramente el fallo sea algo en la llamada. he probado a activar el
BUffer y borrarlo con CLEAR antes de inicializar el STREAM pero ni pr
esas.

Gracias, y un saludo.

Hola Alberto.

¿Cómo llamas a la "pagina.asp"?

Creo que tu problema radica en la forma de efectuar la llamada a la
página. Revisa por ese lado.

Saludos!
Miguel


Alberto Valle wrote:

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) & "fichero.doc" & 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
'

Hola Alberto.

¿Cómo llamas a la "pagina.asp"?

Creo que tu problema radica en la forma de efectuar la llamada a la
página. Revisa por ese lado.

Saludos!
Miguel


Alberto Valle wrote:

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) & "fichero.doc" & 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
'

¡Importante!: Colabora con el grupo. Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
No he probado tu código pero para que usas FSO??? y depsués no lo
"limpias"...

Prueba así:
<%

call getBinaryFile("c:\descargas\fichero.doc")

Function getBinaryFile(strFilePath)
Dim TypeBinary, oStream, binFile, nomb, s

if len(strFilePath)>0 then

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

nomb = split(strFilePath,"/")(ubound(split(strFilePath,"/")))

TypeBinary = 1
oStream.Open
oStream.Type = TypeBinary
oStream.LoadFromFile strFilePath
binFile = oStream.read

oStream.Flush
if oStream.State = 1 then oStream.Close
Set oStream = Nothing

Response.Buffer = true
Response.Clear
Response.AddHeader "content-disposition", "attachment; filename=" & nomb
Response.ContentType = "application/" &
split(nomb,".")(ubound(split(nomb,".")))
Response.BinaryWrite binFile

end if

End Function

%>

Sashka
MS MVP Access
MCP ASP.Net

"Alberto Valle" escribió en el mensaje
news:
Que tal Miguel:

La PAGINA.ASP es la que contiene el código para la descarga, y se
llama así "PAGINA,ASP". Es un ejemplo, quizás fuera más propiado
llamarla DESCARGA.ASP.

La llamo directamente, escribiendo su URL en la barra de direcciones.
Antes la llamaba por un FORM, pero como me daba estos problemas hice
esta página única asignando las rutas y el fichero como constantes.

Seguramente el fallo sea algo en la llamada. he probado a activar el
BUffer y borrarlo con CLEAR antes de inicializar el STREAM pero ni pr
esas.

Gracias, y un saludo.

Hola Alberto.

¿Cómo llamas a la "pagina.asp"?

Creo que tu problema radica en la forma de efectuar la llamada a la
página. Revisa por ese lado.

Saludos!
Miguel


Alberto Valle wrote:

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) & "fichero.doc" & 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
'