---
title: "Resampla bilder"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/151635-resampla-bilder"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Travoni"
published: "2006-09-21T22:49:22.000Z"
updated: "2006-09-29T16:04:01.000Z"
replies: 2
views: 276
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/151635-resampla-bilder"
---

# Resampla bilder

## #1 — Travoni, 2006-09-21T22:49Z

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.

Permalänk: https://www.webforum.nu/p/151635

## #2 — Travoni, 2006-09-21T22:55Z

Inte testat men jag kom på att jag kanske bara kan lägga till:
If aspSmartImg.OriginalHeight \> 100 then aspSmartImg.Resample 0,100

:)

Permalänk: https://www.webforum.nu/p/1870672

## #3 — timedia, 2006-09-29T16:04Z

Glöm det, såg att du hade svaret själv   :x

Permalänk: https://www.webforum.nu/p/1875718

---

Tråden på webben: https://www.webforum.nu/amne/asp/151635-resampla-bilder