prompt "Save as" dialog for image

[dave]

Hi there
I'm trying to force save as dialogue using this code in download.asp..but
when it runs it prompts for download.asp to save or open.

code snippet (from aspfaq.com)

Response.ContentType = "application/x-unknown" ' arbitrary
fn = "wallpaper_1_1.jpg"
Response.write "<br>" & Server.MapPath("wallpaper") & "<br>"
FPath = Server.MapPath("wallpaper") & fn
Response.AddHeader "Content-Disposition","attachment; filename=" & fn

Set adoStream = CreateObject("ADODB.Stream")
adoStream.Open()
adoStream.Type = 1
adoStream.LoadFromFile(FPath)
Response.BinaryWrite adoStream.Read()
adoStream.Close
Set adoStream = Nothing


I want this page to prompt save image option, not page itself.

Any help would be appreciated!!!

 

[Ray Costanzo [MVP]]

Are you accessing the page via http? Like, you're going to
http://localhost/download.asp as opposed to C:\Inetpub\wwwroot\download.asp?

Ray at work

 

[dave]

yes
i m accessling thru http:
http://localhost/download.asp
and its asking me open, save,cancel options
dave

 

[Ray Costanzo [MVP]]

Do you have an On Error Resume Next? Well, regardless, a couple of changes
will be necessary.

When you Response.write FPath, did you notice that there was no \ between
the directory name and the filename? You'll need that. Also, make sure you
do not leave the Response.Write code in there when you get this working.
Try this code:

Response.ContentType = "application/x-unknown" ' arbitrary
fn = "wallpaper_1_1.jpg"
'Response.write "<br>" & Server.MapPath("wallpaper") & "<br>"
FPath = Server.MapPath("wallpaper") & "\" & fn
Response.AddHeader "Content-Disposition","attachment; filename=" & fn

Set adoStream = CreateObject("ADODB.Stream")
adoStream.Open()
adoStream.Type = 1
adoStream.LoadFromFile(FPath)
Response.BinaryWrite adoStream.Read()
adoStream.Close
Set adoStream = Nothing

Ray at home

 

[dave]

yeh man, it worked
thanx for help
dev

Do you have an On Error Resume Next? Well, regardless, a couple of changes
will be necessary.

When you Response.write FPath, did you notice that there was no \ between
the directory name and the filename? You'll need that. Also, make sure you
do not leave the Response.Write code in there when you get this working.
Try this code:

Response.ContentType = "application/x-unknown" ' arbitrary
fn = "wallpaper_1_1.jpg"
'Response.write "<br>" & Server.MapPath("wallpaper") & "<br>"
FPath = Server.MapPath("wallpaper") & "\" & fn
Response.AddHeader "Content-Disposition","attachment; filename=" & fn

Set adoStream = CreateObject("ADODB.Stream")
adoStream.Open()
adoStream.Type = 1
adoStream.LoadFromFile(FPath)
Response.BinaryWrite adoStream.Read()
adoStream.Close
Set adoStream = Nothing

Ray at home

 

[dave]

just one question
how do i make this code to work with most common all browser
dev

 

[Ray Costanzo [MVP]]

Do you have evidence that suggests that it doesn't?

Ray at home

 

[dave]

no..but

Do you have evidence that suggests that it doesn't?

Ray at home

 

[dave]

no but
http://www.aspfaq.com/show.asp?id=2161
in last lines of articles says u might have to change addheader lines to get
correct filename...
thts wht puzzling me
dave