Asp upload komponentproblem

Hej hopp...

Jag har lite svårt att förstå syntaxen i denna komponent. Det jag vill göra är att ladda upp en jpg bild och sedna förminska denna till en bredd på 120 pixlar.
Vad gör jag för fel. Filen laddas upp men den skalas inte om...

<% varFolderPath = "/xxxxx/yyyyy"
filepath = server.mappath(varFolderPath) %>

<% Set Upload = Server.CreateObject("Persits.Upload") 

' Limit file size to 50000 bytes, throw an exception if file is larger
Upload.SetMaxSize 500000, True 

' Intercept all exceptions to display user-friendly error
On Error Resume Next 

' Perform upload
Upload.Save filepath 

' 8 is the number of "File too large" exception
If Err.Number = 8 Then
   Response.Write "Din fil är för stor."
Else
   If Err <> 0 Then
      Response.Write "An error occurred: " & Err.Description
   Else
      Response.Write "Det fungerade bra!"
  		call subCreateThumb
   End If
End If
%> 

<%
sub subCreateThumb 	
	response.write "VISA DENNA TEXT DÅ !!"
	' Open source image
	Jpeg.Open filepath &"/" &File.FileName
		
	' Räkna fram hur många procent som vi vill minska bilden med. Bredden ska vara fixerad.
	varMellanSumman = Jpeg.OriginalWidth - 120 '=bredden på bilden.
	varDecimalProcent = varMellanSumman / Jpeg.OriginalWidth
	' räknar fram hur många pixlar %en motsvarar.
	varTaBortBredd = varDecimalProcent * Jpeg.OriginalWidth 
	varTaBortHojd = varDecimalProcent * Jpeg.OriginalHeight 
	' Skalar om bilderna
	Jpeg.Width = Jpeg.OriginalWidth - varTaBortBredd
	Jpeg.Height = Jpeg.OriginalHeight - varTaBortHojd 
		
	if Jpeg.Height < 120 then	
		' Lägg till vitt
		response.write "<h1>LÄGG TILL</h1>"	
	elseif Jpeg.Height > 120 then 
		response.write "<h1>CROP</h1>"	
	end if
		' create thumbnail and save it to disk
		varSaveThis = lcase(strPath &"\thumb@" &varDatabasID &varFileExtention)
		Jpeg.Save varSaveThis
		%>
		<font color=red>
		<%=filepath &"\thumb@" &varDatabasID &varFileExtention %><br>
		</font>
<% end sub %>

Det jag tror felar är sättet att hitta filen som jag nyss har laddat upp. Jag provade med:

Jpeg.Open filepath &"/" &File.FileName

men det har jag inte bevisat att det fungerar :(

My bad... som vanligt ;)

<% sub subCreateThumb 	
varFolderPath = "/landrin/personalentren/anvandarkonton/personalfoton/temp"
filepath = server.mappath(varFolderPath)
set fso = server.createobject("scripting.filesystemobject")
Set folder = fso.GetFolder(filepath)  
Set folderCollection = folder.SubFolders 
for each file in folder.files 
varFileName = file.name %>
	2) Skalar om bilden: <b><%=file.name%></b><p>
<%next%>

<% ' Create instance of AspJpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg") 
varFolderPath = "/landrin/personalentren/anvandarkonton/personalfoton/temp" 
filepath = server.mappath(varFolderPath)
response.write filepath &"<hr>"

	' Open source image
	Jpeg.Open filepath &"/" &varFileName

response.write "Normal storlek: " &Jpeg.OriginalWidth &" x " & Jpeg.OriginalHeight &"<p>"

	' Räkna fram hur många procent som vi vill minska bilden med. Bredden ska vara fixerad.
	varMellanSumman = Jpeg.OriginalWidth - 120 '=bredden på bilden.
	varDecimalProcent = varMellanSumman / Jpeg.OriginalWidth
	' räknar fram hur många pixlar %en motsvarar.
	varTaBortBredd = varDecimalProcent * Jpeg.OriginalWidth 
	varTaBortHojd = varDecimalProcent * Jpeg.OriginalHeight 
	' Skalar om bilderna
	Jpeg.Width = Jpeg.OriginalWidth - varTaBortBredd
	Jpeg.Height = Jpeg.OriginalHeight - varTaBortHojd 
		
	if Jpeg.Height < 120 then	
		' Lägg till vitt
		response.write "<h1>LÄGG TILL</h1>"	
	elseif Jpeg.Height > 120 then 
		response.write "<h1>CROP</h1>"	
	end if
		' create thumbnail and save it to disk
		varSaveThis = filepath &"/test.jpg"
		Jpeg.Save varSaveThis
		%>