---
title: "bild strolek i Persits.Upload.1?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/124566-bild-strolek-i-persits-upload-1"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bosse168"
published: "2005-03-17T08:59:18.000Z"
updated: "2005-03-17T09:31:33.000Z"
replies: 3
views: 283
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/124566-bild-strolek-i-persits-upload-1"
---

# bild strolek i Persits.Upload.1?

## #1 — Bosse168, 2005-03-17T08:59Z

Hur gör man för att kolla storleken i Persits.Upload.1 och om måttet är större än 1500 så ska bild storleken delas med 5.7.

Jag använde **aspimage.Image** innan och då funkade denna kod:

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

If File.ImageWidth > 1700 Then 
bredd = 5.7
ElseIf File.ImageWidth > 1600 Then 
bredd = 4
ElseIf File.ImageWidth > 1500 Then 
bredd = 3
Elseif File.ImageWidth > 1200 then
bredd = 2.6
Elseif File.ImageWidth > 1000 then
bredd = 2.2
Elseif File.ImageWidth > 650 then
bredd = 1.5
End If

'----------------------------------------------------------------------------------

If bredd<>"" Then

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

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

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

End If '------- Avslutar om bredden inte är för stor.
```

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

## #2 — @nders, 2005-03-17T09:06Z

ASPUpload är bara en filuppladdningskomponent och har ingen funktionalitet för att skala om bilder.

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

## #3 — Bosse168, 2005-03-17T09:30Z

Skummt för jag fick det att funka med denna kod:

```
' Creating the Image object 
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("bilder") &"\"& NewName & Ext

If File.ImageWidth > 1700 Then 
bredd = 5
ElseIf File.ImageWidth > 1600 Then 
bredd = 4
ElseIf File.ImageWidth > 1500 Then 
bredd = 3
Elseif File.ImageWidth > 1200 then
bredd = 2.6
Elseif File.ImageWidth > 1000 then
bredd = 2.2
Elseif File.ImageWidth > 650 then
bredd = 1.5
End If

'----------------------------------------------------------------------------------

If bredd<>"" Then

   Jpeg.Width = Jpeg.OriginalWidth / bredd
   Jpeg.Height = Jpeg.OriginalHeight / bredd
   Response.Write Jpeg.OriginalHeight & "-" & Jpeg.Height

Jpeg.Save Server.MapPath("bilder") &"\"& NewName & Ext

End If '------- Avslutar om bredden inte är för stor.
```

[Manual för att beskära](http://www.aspupload.com/manual_image.html)

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

## #4 — @nders, 2005-03-17T09:31Z

Ja, det är möjligt att det funkar med den koden. Men den använder ju inte ASPUpload-komponenten, utan Persits bildkomponent.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/124566-bild-strolek-i-persits-upload-1