Ændre thumb men ikke orginal billede
Nedenstående kode virker helt perfekt! den skal dog også resize det orginale billede til 150 i width i bib.: billeder/produkter/ som den ikke går nu! hvorledes indsætter man det i koden??-----------------------------------------------------
<%
'--- start --
ImageDir = "../../../billeder/produkter/"
ImageIn=server.mappath(ImageDir) &"\"
ImageOut=server.mappath(ImageDir&"thum") &"\"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
For Each Image In objFiles
img = Image.Name
Set Image = Server.CreateObject("AspImage.Image")
Image.AutoSize = false
Image.LoadImage(ImageIn& img )
X = Image.MaxX
Y = Image.MaxY
If X > 50 Then
ResizedX = 50
ResizedY = (ResizedX * Y/X)
End if
Image.Resize ResizedX, ResizedY
Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.FileName = (ImageOut & img )
Image.SaveImage
Set Image = nothing
Next
Set objFS = Nothing
'--- slut ---
%>
