Inte testat men jag kom på att jag kanske bara kan lägga till:
If aspSmartImg.OriginalHeight > 100 then aspSmartImg.Resample 0,100
:)
Frågan#1
Jag använder AspSmartImage och denna sub för att göra tumnaglar av mina bilder. Det funkar bra.
Sub resampleimg(img)
Dim aspSmartImg
Set aspSmartImg = Server.CreateObject("aspSmartImage.SmartImage")
aspSmartImg.OpenFile(img)
If aspSmartImg.OriginalWidth > 80 then aspSmartImg.Resample 80,0
aspSmartImg.SaveFile(img)
Set aspSmartImg = Nothing
End Sub
Nu till kruxet om bilden är väldigt hög i förhållande till bredden så blir ändå bilden för stor. Jag skulle vilja att bildens höjd inte får överstiga, låt säga 100 pixlar. Hur gör jag då?
Måste jag ta det i flera steg eller kan jag göra det i "ett svep"?
Jag vill heller inte klippa i bilderna.