Felkod 8007007e

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.