I want to give the user an image assets page... where the user (who is using an home-brew CMS solution to manage content for a site) is able to click to view 'all available images' that they can insert into the content they are posting...
I would like to have this based on all images within a specific folder (all will be jpegs)... so on the simple one-page that lists them all out for the user, Im trying to figure out how to
a) list them all out vertically
b) for images that are TALLER than xx pixels, I want to determine the width and height then divide both those by 2 (to resize the down to a smaller version)
Is this do-able?
here is the code Im using successfully to show all the images in a folder...
is there a way to integrate the ability to determine and where needed, re-define the height / width parameters of each image listed???
I would like to have this based on all images within a specific folder (all will be jpegs)... so on the simple one-page that lists them all out for the user, Im trying to figure out how to
a) list them all out vertically
b) for images that are TALLER than xx pixels, I want to determine the width and height then divide both those by 2 (to resize the down to a smaller version)
Is this do-able?
here is the code Im using successfully to show all the images in a folder...
Code:
Dim oFilesys, oFolder, oFile
Set oFilesys= CreateObject("Scripting.FileSystemObject")
Set oFolder= oFilesys.GetFolder(Server.MapPath("../../images"))
For Each oFile in oFolder.Files
'Response.write "<img src=../../images/"&oFile.Name&">"
'Response.write "<hr />"
thisimg="../../images/"&oFile.Name
%>
<img src="<%=thisimg%>" /><br />
<%Next
Set oFolder=Nothing
Set oFilesys=Nothing
is there a way to integrate the ability to determine and where needed, re-define the height / width parameters of each image listed???