como bajar archivo plano automaticamente?

[ElAprendiz]

hola
tengo un archivo plano creado en asp, y quiero que al pinchar sobre un enlace (direccionado al archivo) me lo descargue y no me lo muestre en el navegador, he intendo cambiarle la extension a formatos no conocidos (xxx, zzz, fil, tx2) pero igual me lo abre en el navegdor como texto plano, si le coloco la extension. bat o exe me lo baja pero no puede colocar esa extension por que son formatos conocidos por el sistema. hay alguna forma de bajar automaticamente archivos planos?? (que no sea clic con el segundo boton y guardar como) o alguna idea??


gracias de antemano

[affv]

Mira creo que esto te puede servir es para descargar cualquier archivo sin importar la extension lo he probado para txt y funciona bien espero te sirva.

<%
Response.Buffer = True
Dim strFilePath, strFileSize, strFileName

Const adTypeBinary = 1

strFilePath = Server.MapPath("txt\archivo.txt")
strFileSize = "50000"
strFileName = "archivo.txt"

Response.Clear


Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath

strFileType = lcase(Right(strFileName, 4))

Select Case strFileType
Case ".asf"
ContentType = "video/x-ms-asf"
Case ".avi"
ContentType = "video/avi"
Case ".doc"
ContentType = "application/msword"
Case ".zip"
ContentType = "application/zip"
Case ".xls"
ContentType = "application/vnd.ms-excel"
Case ".gif"
ContentType = "image/gif"
Case ".jpg", "jpeg"
ContentType = "image/jpeg"
Case ".wav"
ContentType = "audio/wav"
Case ".mp3"
ContentType = "audio/mpeg3"
Case ".mpg", "mpeg"
ContentType = "video/mpeg"
Case ".rtf"
ContentType = "application/rtf"
Case ".htm", "html"
ContentType = "text/html"
Case ".asp"
ContentType = "text/asp"
Case Else
ContentType = "application/octet-stream"
End Select


Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName
Response.AddHeader "Content-Length", strFileSize

Response.Charset = "UTF-8"
Response.ContentType = ContentType

Response.BinaryWrite objStream.Read
Response.Flush

objStream.Close
Set objStream = Nothing

%>

[ElAprendiz]

mnmhhh.. interesante..lo probare jojojojo

[ElAprendiz]

excelente!!!

[ElAprendiz]

bueno al parecer en tu codigo, hay objetos que no estan soportados en asp 2. existe alguna equivalencia para estos objetos??

[ElAprendiz]

cual de los metodos del codigo de arriba no esta soportados en asp 2