---
title: "Ladda upp & förminska"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/150428-ladda-upp-förminska"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "asp"
published: "2006-08-22T15:15:30.000Z"
updated: "2006-08-22T15:15:30.000Z"
replies: 0
views: 308
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/150428-ladda-upp-förminska"
---

# Ladda upp & förminska

## #1 — asp, 2006-08-22T15:15Z

Hej. Jag använder följande kod för att ladda upp bilder.

```
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save
Set File = Upload.Files("FILE1")
Filename = picName() & ".jpg"
File.SaveAs Server.MapPath("pictures") & "\" & Filename
```

Men om jag nu skulle vilja förminska bilderna så de max har 800 pixlar i bredd eller 600 pixlar i höjd, hur gör jag då. Vill alltså förminska innan de läggs upp på servern. Kvalité kan sättas till medel också.

Använder denna kod för thumnails, tror det är aspJpeg...

```
If Jpeg.OriginalWidth > 120 And (Jpeg.OriginalWidth * 0.75) > Jpeg.OriginalHeight Then
	Jpeg.Width = 120
	Jpeg.Height = Jpeg.OriginalHeight / Jpeg.OriginalWidth * 120
ElseIf Jpeg.OriginalHeight > 90 Then
	Jpeg.Width = Jpeg.OriginalWidth / Jpeg.OriginalHeight * 90
	Jpeg.Height = 90
End if
```

Extremt tacksam för svar!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/150428-ladda-upp-förminska