---
title: "Felkod 8007007e"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/141142-felkod-8007007e"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "SoulGod"
published: "2006-01-19T13:15:42.000Z"
updated: "2007-04-29T17:21:43.000Z"
replies: 2
views: 1132
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/141142-felkod-8007007e"
---

# Felkod 8007007e

## #1 — SoulGod, 2006-01-19T13:15Z

Får detta fel när jag försöker ladda upp lite bilder till mitt bildarkiv:
Feltyp:
Serverobjekt, ASP 0177 (0x8007007E)
8007007e
/cina/bildarkiv/admin_ladda_upp.asp, line 130

Och koden är:

```
  <%
	
	katid = Request("arkiv")
	Set rs = Connect.execute("Select * From bildkategorier WHERE ID = '"&katid&"'")
	
	mapp = rs("mapp")
	
	rs.Close: Set rs = Nothing
	
	Set Upload = Server.CreateObject("Persits.Upload") 

		
	strUploadFolder = strUploadFolder
	strimageUploadFolder = strimageUploadFolder &"\"& mapp
	strThumbUploadFolder = strThumbUploadFolder &"\"& mapp
	
	Path = Server.MapPath(strUploadFolder) 
	imagePath = Server.MapPath(strimageUploadFolder) 
	thumbPath = Server.MapPath(strThumbUploadFolder)

	Count = Upload.Save(Path) 

	If Count = 0 Then
		Response.Write "No images selected."
	Else
		For Each File in Upload.Files

Rad 130 -->	Set jpeg = Server.CreateObject("Persits.Jpeg") 
			
			'Gör om bilden
			jpeg.Open( File.Path ) 
			
			L = 660

			If jpeg.OriginalWidth > jpeg.OriginalHeight Then
			   jpeg.Width = L
			   jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
			Else
			   jpeg.Height = L
			   jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
			End If

			SavePath = imagePath & "\" & File.ExtractFileName 

			jpeg.Save SavePath 
			
			' Skapa Thumbnails
			jpeg.Open( File.Path ) 
			
			L = 180

			If jpeg.OriginalWidth > jpeg.OriginalHeight Then
			   jpeg.Width = L
			   jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
			Else
			   jpeg.Height = L
			   jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
			End If

			SavePath = thumbPath & "\" & File.ExtractFileName 

			bild 	= mapp & "/" & File.ExtractFileName 

			Connect.Execute("INSERT INTO bildarkiv (katid, bild) VALUES('"& katid &"','"& bild &"')")

			jpeg.Save SavePath 
			
			Upload.DeleteFile File.Path
		Next
	End If
```

Det är den kod ni behöver se.. tror jag.. om inte annat , ropa till.

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

## #2 — SoulGod, 2006-01-19T13:30Z

Löste det själv...Var aspJpeg som inte var regristrerad ordentligt.

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

## #3 — Trumpf, 2007-04-29T17:21Z

Hehehe intresserad av detta, men vad var felet?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/141142-felkod-8007007e