---
title: "Mer ASP.image strul"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/165041-mer-asp-image-strul"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "TomKarl"
published: "2007-10-01T10:24:01.000Z"
updated: "2007-10-01T11:10:56.000Z"
replies: 7
views: 436
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/165041-mer-asp-image-strul"
---

# Mer ASP.image strul

## #1 — TomKarl, 2007-10-01T10:24Z

Hej! 

Jag får: 

Microsoft VBScript runtime error '800a01a8' 
Object required: '' 
/hammare/test/test/ndo_upload.asp, line 113 

```
Set Image = Server.CreateObject("AspImage.Image") 
Image.LoadImage(Server.MapPath("../uploadedimg/" & File.Filename ))   [B]<--- line 113[/B] 
Image.FileName = (Server.MapPath("../uploadedimg/" & File.Filename )) 
Image.ImageFormat = 1 
Image.JPEGQuality = 90 
divX = Image.MaxX / 440 
divY = Image.MaxY / 440 
intXsize = Image.MaxX / divx 
intYSize = Image.MaxY / divx 
Image.ResizeR intXSize,intYSize 
Image.SaveImage 
Set Image = Nothing
```

Vad kan det bero på? ASP.image finns på servern. Har hållit på flera dagar nu med detta \*suck\*
Mera av koden:

```

                        
                        Set addNewRS = Server.CreateObject("ADODB.Recordset")
                        SQLeftl = "SELECT * FROM TBL_Projekt"
                        addNewRS.Open SQLeftl, Conn, 3, 3

			addNewRS.AddNew ' create a new record

		        ' Check if any files were uploaded
                        If  Not Uploader.Files.Count = 0 Then
                        
                       	' Loop through the uploaded files
                        For Each File In Uploader.Files.Items
                        
                        
                        
                        
                        extension = right(File.FileName,4)

			 File.FileName = "projekt_" & NyttNamn & extension
                        
       
			' Save the file			
			File.SaveToDisk server.mappath ("../uploadedimg/")
			      
			addNewRS("Pro_Rubrik") = File.FileName
			
			Next
			
			End If
			
				
			' Commit the changes and close
			addNewRS.Update
			
			
		addNewRS.Close					
 		Set addNewRS=Nothing
 		Conn.Close
		Set Conn=Nothing
		

Set Image = Server.CreateObject("AspImage.Image") 
Image.LoadImage(Server.MapPath("../uploadedimg/" & File.Filename )) 
Image.FileName = (Server.MapPath("../uploadedimg/" & File.Filename )) 
Image.ImageFormat = 1 
Image.JPEGQuality = 90 
divX = Image.MaxX / 440 
divY = Image.MaxY / 440 
intXsize = Image.MaxX / divx 
intYSize = Image.MaxY / divx 
Image.ResizeR intXSize,intYSize
Image.SaveImage 
Set Image = Nothing
```

/Tomas

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

## #2 — @nders, 2007-10-01T10:29Z

Hej!

Vore mysigt om du använder \[kod\]-taggar när du postar kod - så blir det mycket lättare för oss att läsa - och därmed lättare att hjälpa.

Felmeddelandet betyder sannolikt att ett objekt du försöker använda helt enkelt inte finns. Jag skulle tro att det beror på att *File* inte längre finns - det objektet existerar nog inte utanför din for each-slinga.

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

## #3 — jonne, 2007-10-01T10:30Z

Du har inte initierat objektet File som du hänvisar till i File.Filename

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

## #4 — TomKarl, 2007-10-01T10:36Z

> **@nders skrev:**
>
> Hej!
> 
> Vore mysigt om du använder \[kod\]-taggar när du postar kod - så blir det mycket lättare för oss att läsa - och därmed lättare att hjälpa.
> 
> Felmeddelandet betyder sannolikt att ett objekt du försöker använda helt enkelt inte finns. Jag skulle tro att det beror på att *File* inte längre finns - det objektet existerar nog inte utanför din for each-slinga.

Kod taggar fixat. Om jag stoppar in filnamnet i ex. en session innaför for-each slingan skulle det kunna funka då?

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

## #5 — TomKarl, 2007-10-01T10:37Z

> **jonne skrev:**
>
> Du har inte initierat objektet File som du hänvisar till i File.Filename

Hur gör jag det?

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

## #6 — @nders, 2007-10-01T10:40Z

> Kod taggar fixat. Om jag stoppar in filnamnet i ex. en session innaför for-each slingan skulle det kunna funka då?

Du menar inuti? Ja - men det är onödigt att använda sessionsvariabler till det. Det räcker med att spara det i en vanlig variabel.

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

## #7 — jonne, 2007-10-01T10:53Z

Nu vet jag inte riktigt vad du använder för komponenter men File initierar du på samma sätt som du gör med exv ditt Imageobjekt:

```
Set Image = Server.CreateObject("AspImage.Image")
```

Om du har en uploadkomponent som du använder tillsammans med detta så skulel det kunna vara något i stil med:

```
   ' Obtain File object representing uploaded file
  Set File = Upload.Files(1)
```

*(från 2:a exemplet på http://www.aspjpeg.com/manual_03.html)*

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

## #8 — TomKarl, 2007-10-01T11:10Z

Funkar nu!

Tack för hjälpen! Nu äntligen funkar det.

Fick lägga File.FileName i en variabel och ändra 

```
Image.LoadImage(Server.MapPath("../uploadedimg/" & File.Filename )) 
Image.FileName = (Server.MapPath("../uploadedimg/" & File.Filename ))
```

till

```
Image.LoadImage(Server.MapPath("../uploadedimg/" & Filnamnet )) 
Image.FileName = (Server.MapPath("../uploadedimg/" & "thmb_" & Filnamnet ))
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/165041-mer-asp-image-strul