aspimage og persits upload problem

Jeg bruger følgende script.

Den uploader også billedet fint nok men derefter går det galt.

Den skulle gerne resize og ligger billedet i en anden folder - men gider den ikke. Der kommer ingen fejlmeddelse eller noget, der sker bare intet

  Set Upload = Server.CreateObject("Persits.Upload.1")

  Upload.OverwriteFiles = False ' Generate unique names
  Upload.SetMaxSize 1048576 ' Truncate files above 1MB

  'Hvor ligger folderen log i for hold til denne ASP fil ?
   
'Upload.Save server.mappath("\ny\upload_billeder\bs\") 
Upload.Save "d:\web\ph-computer.dk\www\ny\upload_billeder"
if Upload.Form("file1") <> "" then
set file = Upload.Files("file1")  'eller Upload.Files(1)
  filnavn = File.Filename



  Set Image = Server.CreateObject("AspImage.Image")
  Image.AutoSize = true

  Image.LoadImage("d:\web\ph-computer.dk\www\ny\upload_billeder\" & filnavn)

response.write filnavn

  intXSize = 200

  if Int(Image.MaxX) >= intXSize then
  intYSize = (intXSize / Image.MaxX) * Image.MaxY
  Image.ResizeR intXSize, intYSize
  end if
 
Image.FileName ("d:\web\ph-computer.dk\www\ny\upload_billeder\stor\" & filnavn))
Image.SaveImage
 
  Set objImg = nothing
  Set Image = nothing

  Set Image = Server.CreateObject("AspImage.Image")
  Image.AutoSize = true
image.LoadImage("d:\web\ph-computer.dk\database\bs_billeder\" & filnavn) 



  intXSize = 100
  intYSize = (intXSize / Image.MaxX) * Image.MaxY
  Image.ResizeR intXSize, intYSize
Image.FileName("d:\web\ph-computer.dk\database\bs_billeder\lille\" & filnavn)
Image.SaveImage
 
  Set objImg = nothing
  Set Image = nothing