Problema con descargas

Buenos días. Tengo un problema con una página que permite descargar
archivos. El caso es que desde un ordenador a la hora de pinchar en un
archivo, le descarga "default.asp", página que no existe en mi directorio.

El código que tengo es el siguiente:

Dim miarchivo
Dim miruta
Dim midescarga
Dim fso
miarchivo = request("archivo")
miruta = replace(request("ruta"),"/","\")
midescarga = miruta & "\" & miarchivo
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment; filename=" &
miarchivo
Const adTypeBinary = 1
Dim strFilePath
strFilePath = midescarga 'This is the path to the file on disk.
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing

Este código a mi me funciona correctamante, pasandole el nombre del archivo
(miarchivo) y la ruta (miruta). Tambien funciona correctamente en otros
ordenadores, pero en el que debe funcionar, no funciona. ¿Cual puede ser el
problema? ¿Hay alguna forma mejor para descargar archivos (sean del tipo que
sean)?

Como no funciona?

Que error te da?

La forma de hacer la descarga es correcta. Indudablemente, siempre esta la
posibilidad de hacer un link directo al archivo, pero para descargar
archivos
de rutas que no estan expuestas el codigo es funcional.

Microsoft MVP
Orador Regional INETA


"Carlos Marco" wrote:

Buenos días. Tengo un problema con una página que permite descargar
archivos. El caso es que desde un ordenador a la hora de pinchar en un
archivo, le descarga "default.asp", página que no existe en mi
directorio.

El código que tengo es el siguiente:

Dim miarchivo
Dim miruta
Dim midescarga
Dim fso
miarchivo = request("archivo")
miruta = replace(request("ruta"),"/","\")
midescarga = miruta & "\" & miarchivo
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment; filename=" &
miarchivo
Const adTypeBinary = 1
Dim strFilePath
strFilePath = midescarga 'This is the path to the file on disk.
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing

Este código a mi me funciona correctamante, pasandole el nombre del
archivo
(miarchivo) y la ruta (miruta). Tambien funciona correctamente en otros
ordenadores, pero en el que debe funcionar, no funciona. ¿Cual puede ser
el
problema? ¿Hay alguna forma mejor para descargar archivos (sean del tipo
que
sean)?

Lo que ocurre es que cuando pincha en el archivo, que lo rellena de una
base de datos, le intenta descargar la página "descarga.asp", que es la
que contiene ese código. Como si no reconociera la extensión. En todos los
PCs que he probado, funciona correctamente, entra a descarga.asp, ejecuta
ese código, y muestra el cuadro de descarga con los datos del fichero que
he seleccionado.

Quería saber porque puede ser debido este funcionamiento del navegador. Le
falla tanto IE como Mozilla, con lo que puede ser el firewall o algo.







"Matias Iacono" escribió en el
mensaje news:

Como no funciona?

Que error te da?

La forma de hacer la descarga es correcta. Indudablemente, siempre esta
la
posibilidad de hacer un link directo al archivo, pero para descargar
archivos
de rutas que no estan expuestas el codigo es funcional.

Microsoft MVP
Orador Regional INETA


"Carlos Marco" wrote:

Buenos días. Tengo un problema con una página que permite descargar
archivos. El caso es que desde un ordenador a la hora de pinchar en un
archivo, le descarga "default.asp", página que no existe en mi
directorio.

El código que tengo es el siguiente:

Dim miarchivo
Dim miruta
Dim midescarga
Dim fso
miarchivo = request("archivo")
miruta = replace(request("ruta"),"/","\")
midescarga = miruta & "\" & miarchivo
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment; filename=" &
miarchivo
Const adTypeBinary = 1
Dim strFilePath
strFilePath = midescarga 'This is the path to the file on disk.
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing

Este código a mi me funciona correctamante, pasandole el nombre del
archivo
(miarchivo) y la ruta (miruta). Tambien funciona correctamente en otros
ordenadores, pero en el que debe funcionar, no funciona. ¿Cual puede ser
el
problema? ¿Hay alguna forma mejor para descargar archivos (sean del tipo
que
sean)?

Verifica la aplicación en el IIS, yo hace unos tiempos estive com el
mismo problema pero yá no me recuerdo lo que hice pero creo que era por
causa de la aplicación (web site) no estar bien configurada en el IIS.
Recuerda que para que una aplicación web te ejecute código ASP tieneque
ser del tipo "aplicación".

NS


Nuno Santos
nunos7[REMOVER]@hotmail.com

"Carlos Marco" wrote in message
news:

Lo que ocurre es que cuando pincha en el archivo, que lo rellena de una
base de datos, le intenta descargar la página "descarga.asp", que es la
que contiene ese código. Como si no reconociera la extensión. En todos
los PCs que he probado, funciona correctamente, entra a descarga.asp,
ejecuta ese código, y muestra el cuadro de descarga con los datos del
fichero que he seleccionado.

Quería saber porque puede ser debido este funcionamiento del navegador.
Le falla tanto IE como Mozilla, con lo que puede ser el firewall o algo.







"Matias Iacono" escribió en el
mensaje news:

Como no funciona?

Que error te da?

La forma de hacer la descarga es correcta. Indudablemente, siempre esta
la
posibilidad de hacer un link directo al archivo, pero para descargar
archivos
de rutas que no estan expuestas el codigo es funcional.

Microsoft MVP
Orador Regional INETA


"Carlos Marco" wrote:

Buenos días. Tengo un problema con una página que permite descargar
archivos. El caso es que desde un ordenador a la hora de pinchar en un
archivo, le descarga "default.asp", página que no existe en mi
directorio.

El código que tengo es el siguiente:

Dim miarchivo
Dim miruta
Dim midescarga
Dim fso
miarchivo = request("archivo")
miruta = replace(request("ruta"),"/","\")
midescarga = miruta & "\" & miarchivo
Response.ContentType = "application/octet-stream"
Response.AddHeader "Content-Disposition", "attachment; filename=" &
miarchivo
Const adTypeBinary = 1
Dim strFilePath
strFilePath = midescarga 'This is the path to the file on disk.
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing

Este código a mi me funciona correctamante, pasandole el nombre del
archivo
(miarchivo) y la ruta (miruta). Tambien funciona correctamente en otros
ordenadores, pero en el que debe funcionar, no funciona. ¿Cual puede
ser el
problema? ¿Hay alguna forma mejor para descargar archivos (sean del
tipo que
sean)?