---
title: "Aspupload med förminska bild"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/137497-aspupload-med-förminska-bild"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "freddssite"
published: "2005-11-13T00:15:41.000Z"
updated: "2005-11-14T13:59:55.000Z"
replies: 1
views: 264
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/137497-aspupload-med-förminska-bild"
---

# Aspupload med förminska bild

## #1 — freddssite, 2005-11-13T00:15Z

Denna koden rullar igenom och jag får inga felmeddelanden. Filen finns på servern och fram till dess är allt bra! men öppnas filen har den ej förminskats! Vad har jag gjort för fel i min kod? Snälla hjälp!

```
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/db/filer/"))
For Each file In Upload.Files
  If File.ImageType = "UNKNOWN" Then
  
      Response.Redirect "/error.asp?msg=wrongFileType"
      File.Delete 
   End If
  Next
For Each file In Upload.Files

If file.Size = 100000 Then
        'This means the file was truncated
        Response.Redirect "/error.asp?msg=fileTooBig"
    File.Delete 
    End If
Next

Set File = Upload.Files
sender = replace(Upload.form("txtSender"),"'","''")
If NOT File Is Nothing Then
On Error Resume Next
strFileName= Upload.Files("blob").ExtractFileName  

END IF
   
Set Image = Server.CreateObject("AspImage.Image")
Image.Loadimage (Server.MapPath("/db/filer/"&strFileName))

Image.ImageFormat = 1
Image.JPEGQuality = 90
Image.Resize 150,150

Image.TextOut "Http://kort.webbisen.com/vykort", 220, 230, false

Image.FileName = (Server.MapPath("/db/filer/"&strFileName))
Image.SaveImage

Set Image = Nothing

%>
```

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

## #2 — J.N., 2005-11-14T13:59Z

HEJ!

Kan ej AspImage, men två frågor kan jag komma med:

\#1:
Är denna rätt?
Image.TextOut "Http://kort.webbisen.com/vykort", 220, 230, false
Vet inte direkt vad den gör, men är domänen rätt?

\#2:
Tittar du i denna mapp för att kontrollera filen?
Har du rätt rättigheter där? Behövs Delete för att radera originalfilen?
Image.FileName = (Server.MapPath("/db/filer/"&strFileName))

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/137497-aspupload-med-förminska-bild