---
title: "filnamnsproblem med aspjpeg"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/122341-filnamnsproblem-med-aspjpeg"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "timedia"
published: "2005-02-13T17:21:24.000Z"
updated: "2005-02-13T17:57:24.000Z"
replies: 3
views: 261
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/122341-filnamnsproblem-med-aspjpeg"
---

# filnamnsproblem med aspjpeg

## #1 — timedia, 2005-02-13T17:21Z

Får detta fel 

```
1 file(s) uploaded. 
Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/admin/bild/pic2.asp, line 37
```

Nåt konstigt gör jag, men vad? Linje 37 i fet txt.

```
<%
'  Variables
'  *********
   Dim mySmartUpload
   Dim intCount
   Dim map
   Dim bilden
'  Object creation
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
   mySmartUpload.Upload

'  Save the files with their original names in a virtual path of the web server
'  ****************************************************************************

   intCount = mySmartUpload.Save(Server.MapPath(mySmartUpload.Form("map")))
   ' sample with a physical path 
   ' intCount = mySmartUpload.Save("c:\temp\")

'  Display the number of files uploaded
'  ************************************
   Response.Write(intCount & " file(s) uploaded.")

Set Jpeg = Server.CreateObject("Persits.Jpeg")
'Path = Server.MapPath("photoalbum\Webmaster") & "\test.jpg"
[B]Path = Server.MapPath(mySmartUpload.Form("map")) & "\"&File.ExtractFileName&".jpg"[/B]
Jpeg.Open Path

	if Jpeg.OriginalWidth > 100 then

		strPercent = 100 / jpeg.originalwidth
		Jpeg.Width = "100"
		Jpeg.Height = Jpeg.OriginalHeight * strPercent
	end if

Jpeg.Save Server.MapPath(mySmartUpload.Form("map")) & "\th_"&File.ExtractFileName&".jpg"
%>
```

Såhär ser formuläret ut:

```
<FORM METHOD="POST" ACTION="pic2.asp" ENCTYPE="multipart/form-data">
<select name="map">
<option value="">Välj Katalog</option>
<option>---------------</option>

<%
	set fso = server.createobject("scripting.filesystemobject")
set folder =fso.getfolder(Server.Mappath("../bild"))
for each fo in folder.subfolders

response.write "<option value="& fo.name &">"& fo.name &"</option>"
 next %>
</select> <br>
   <INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
   
   
   <INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>
```

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

## #2 — LarsG, 2005-02-13T17:43Z

```
Set Jpeg = Server.CreateObject("Persits.Jpeg")
```

Du använder File nedan.

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

## #3 — timedia, 2005-02-13T17:49Z

Hur ska jag göra då?

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

## #4 — LarsG, 2005-02-13T17:57Z

Byt File mot Jpeg.  (Jag såg flera förekomster.)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/122341-filnamnsproblem-med-aspjpeg