Uploade fil og så flytte den bagefter

Web10 har desværre indført den problematiske sikkerhed, at man kun kan uploade til .\upload og ingen andre, hvilket er enormt besværligt, især når de ikke yder service til, hvordan man får filen flyttet bagefter.

Jeg har prøvet at lave lidt kode, men den siger stadig permission denied, hvordan skal det se ud?

  Set Upload = Server.CreateObject("Persits.Upload")
  Upload.SetMaxSize 18000, True
  Upload.Save
  subdir = Upload.Form("subdir")
  path = Server.MapPath("..\upload")
  Set fso = CreateObject("Scripting.FileSystemObject")
  For Each File in Upload.Files
    File.SaveAs Path & "\" & File.FileName
    fso.MoveFile Path & "\" & File.FileName, Server.MapPath("..") &"\img\news\"& subdir &"\"& File.FileName
  Next
  Set fso = Nothing