AspImage sub

Någon som kan hjälpa mig att "konfiguera" ett script som gör om storleken på den uppladdade bilden?
Istället för att göra om bilden till den fasta storleken som scriptet använder nu så vill jag att den bara ska dela storleken beroende på bildens storlek.

'This sub is used to resize the photo 
Sub ResizeX (intXSize) 
Dim intYSize 
intYSize = (intXSize / myImage.MaxX) * myImage.MaxY 
myImage.ResizeR intXSize, intYSize 
End Sub

' Creating the Image object 
Dim myImage 
Set myImage = Server.CreateObject("aspimage.Image") 

' Loading Image object and resize 
myImage.LoadImage Server.MapPath("test") &"\"& NewName & Ext

' Här vill jag få in en variabel (bredd) med hur mycket höjden och bredden ska delas med.
Call ResizeX(100) 

' Save Photo File 
myImage.Filename = Server.MapPath("test") &"\"& NewName & Ext 
myImage.SaveImage
 
Set myImage=Nothing

Kanske finns någon bättre lösning :stud

Innan använde jag AspJpeg och använde då följande kod.

if Jpeg.OriginalWidth > 1500 then
Jpeg.Width = Jpeg.OriginalWidth / 3
Jpeg.Height = Jpeg.OriginalHeight / 3

' Optional: apply sharpening
Jpeg.Sharpen 1, 200
' Create thumbnail and save it to disk
Jpeg.Save Server.MapPath("bilder") &"\upload\"& NewName & Ext

Elseif Jpeg.OriginalWidth > 1000 then
Jpeg.Width = Jpeg.OriginalWidth / 2.2
Jpeg.Height = Jpeg.OriginalHeight / 2.2

End If

'This sub is used to resize the photo 
Sub ResizeX (intXSize) 
Dim intYSize 
intYSize = ((myImage.MaxX/intXSize) / myImage.MaxX) * myImage.MaxY 
myImage.ResizeR (myImage.MaxX/intXSize), intYSize 
End Sub

' Creating the Image object 
Dim myImage 
Set myImage = Server.CreateObject("aspimage.Image") 

' Loading Image object and resize 
myImage.LoadImage Server.MapPath("test") &"\"& NewName & Ext

' Här vill jag få in en variabel (bredd) med hur mycket höjden och bredden ska delas med.
Call ResizeX(100) 

' Save Photo File 
myImage.Filename = Server.MapPath("test") &"\"& NewName & Ext 
myImage.SaveImage
 
Set myImage=Nothing

Kanske kan fungera. (Lite simpelt gjort iofs.)

Oj glömde säga att ligger på en upload sida.
Så sub ligger alltså innan:

For Each File in Upload.Files

Och detta innanför

' Creating the Image object 
Dim myImage 
Set myImage = Server.CreateObject("aspimage.Image") 

' Loading Image object and resize 
myImage.LoadImage Server.MapPath("test") &"\"& NewName & Ext

' Här vill jag få in en variabel (bredd) med hur mycket höjden och bredden ska delas med.
Call ResizeX(100) 

' Save Photo File 
myImage.Filename = Server.MapPath("test") &"\"& NewName & Ext 
myImage.SaveImage
 
Set myImage=Nothing

Sorry :r

Löste det tog bort subben och använde denna koden direkt i loopen.

Dim intYSize 
intYSize = ((myImage.MaxX/bredd) / myImage.MaxX) * myImage.MaxY 
myImage.ResizeR (myImage.MaxX/bredd), intYSize

Du lär väl kunna ändra i subben till bara:

Sub ResizeX (nSize)
myImage.ResizeR (myImage.MaxX/nSize), (myImage.MaxY/nSize)
End Sub

Det spelar väl ingen roll? Bara att du ser till att är bilderna i din loop du öppnar o ändrar storlek på, mha File-objektet som du skapar.

Så sant så sant, varför krängla till det mer än nödvändigt?
Det är för sent för sånt här nu känner jag... :)

Samma här :)
Men tack för hjälpen

AspImage

Oops, postade mitt inlägg på helt fel plats :)