upload og resize hvis filtype er jpg !

Jeg har et uploadscript der uploader filer (mp3 + jpg) med aspupload. Nu vil jeg gerne resize(hvis filen er et billede) men har ikke meget held med at koble ASPUPLOAD og ASPJPEG :

Her er koden : <%

    dag = Day(Date)
    mdr = Month(Date)
    aar = Year(Date)
    ctime = Hour(Time)
    min = Minute(Time)
    sek = Second(Now)

TIDNU = aar & mdr & dag & ctime & min & sek

function lavPassword(antal)
  tilladtkarakter = "abcdefghijklmnopqrstuvwxyz1234567890"
  str = ""
  randomize
  for j = 1 to antal
    index = Int(rnd * len(tilladtkarakter))+1
    str = str & Mid(tilladtkarakter,index,1)
  next
  lavPassword = str
end function
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.ProgressID = Request.QueryString("PID")
'Upload.SetMaxSize 3000000, True
CountFiles = Upload.Save
if CountFiles < 2 then response.redirect "uploadfform_alfa_lot1.asp?message=Du skal have valgt en lydfil og 1 billede med gennemse"
i=1
Recordset1.addnew
for each file in Upload.Files
fn  = lcase(Right(File.ExtractFileName, 4))
imageerror="uploadfform_alfa_lot1.asp?message=Du må kun uploade billeder af typen .gif eller .jpg og lydfiler af typen .mp3"
if imageerror <> "" then
Ext = lcase(Right(File.ExtractFileName, 3))
If not (Ext = "gif" or Ext = "jpg" or Ext = "mp3") Then
File.Delete
Response.Redirect imageerror
End If
End if
set descr=Upload.Form("descr" & i)
set filnavn=Upload.Form("pic" & i)
set check=Upload.Form("check" & i)
        if check = "-1" then
  check = "-1"
else
  check = "0"
end if

filnavn = Session("MM_Username") & TIDNU & lavpassword(5) & fn
If File.ImageType <> "UNKNOWN" Then

    ' Create instance of AspJpeg object
    Set jpeg = Server.CreateObject("Persits.Jpeg")

    ' Open uploaded file
    jpeg.Open(File.Path)
' New width
L = 400
' Resize, preserve aspect ratio
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
' create thumbnail and save it to disk
Jpeg.SaveAs "d:/Inetpub/wwwroot/putandtake/alfa/media/" & filnavn
else
File.SaveAs "d:/Inetpub/wwwroot/putandtake/alfa/media/" & filnavn
end if
Recordset1("filnavn" & i)="media/" & filnavn
Recordset1("Descr" & i)=descr
Recordset1("check" & i)=check
i=i+1
next
set bruger=Upload.Form("bruger")
set niveau=Upload.Form("niveau")
set bem=Upload.Form("bem")
set titel=Upload.Form("titel")
set typen=Upload.Form("type")
Recordset1("user")=bruger
Recordset1("niveau")=niveau
Recordset1("bem")=bem
Recordset1("titel")=titel
Recordset1("type")=typen
Recordset1.update
response.redirect "uploadfform_alfa_lot1.asp?message=" & Countfiles & " fil(er) blev uploadet til serveren !"
%>
Den er gal med filepath, men sikkert også med if sætningen ?

Persits.Jpeg.1 error '800a0002'

The system cannot find the path specified.

/Uploadnewkol_alpha1.asp, line 77