var sidebar_align = 'right';
var content_container_margin = parseInt('290px');
var sidebar_width = parseInt('270px');
Unanswered: download images
Here is the code I use in order to list the images but I still do not know how to dispalys the pop up in order to be able to dave or to open
Dim str_tbl, counter,imgnumber
imgnumber = 36
counter = 1
str_tbl = "<table border ='1'>" & _
"<tr><td colspan='2'>Cliquez sur la photo ou sur le lien pour Télécharger</td></tr>"
For counter = 1 to imgnumber-1 step 2
str_tbl = str_tbl & "<tr>" & _
"<td><a href=gallerie/" & counter & ".jpg>" & "<img border='1' width ='200' height = '200' src=gallerie/" & counter & ".jpg>" & "<br>Télécharger</a></td>" & _
"<td><a href=gallerie/" & counter +1 & ".jpg>" & "<img border='1' width ='200' height = '200'src=gallerie/" & counter +1 & ".jpg>" & "<br>Télécharger</a></td>"
str_tbl = str_tbl & "</tr>"
str_tbl = str_tbl & "</table>"
Response.Write str_tbl & "<br>"
Can any body helps me please
Perhaps you could remind users that to save an image that can do right click | Save Picture As...
You could try streaming the image down but it will probably just automatically open in whatever they have it associated with....
I agree with Bull, tell them to right click and save picture as....
Actually, you can do this by using ADODB.Stream object, but all 36 images could not be made available for download at once. You can link each image to another asp page, which shall use the adodb.stream object to read image data from file system and pop-up the dialog for visitor to save the image.
Here is a short example of reading a zip file from drive and make it available to the visitor to downlaod it. you'll need to modify it to meet your needs ...
set oFile = server.CreateObject("ADODB.Stream")
oFile.Type = 1
sFileData = oFile.Read(-1)
lsize = oFile.Size
set oFile = nothing
Response.AddHeader "Content-Disposition", "attachment; filename=" & chr(34) & "download.zip" & chr(34)
Response.AddHeader "Content-Length", lsize
Response.ContentType = "application/x-zip-compressed"
on error goto 0