filnamnsproblem med aspjpeg

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>