Problem med aspupload

Jeg er ved at lave en upload funktion, der gør således:

1. uploader fil til memory
2. laver en mappe med et navn (fra formen)
3. gemmer filen i den mappe.

Jeg har 2 problemer, punkt 2 og 3.

Ved punkt 2 kommer denne fejl:

Persits.Upload.1 error '800a0022'

Access is denied.

/admin/UploadScript.asp, line 39

linie 39:
Upload.CreateDirectory stien, True

Jeg ved at stien er korrekt, så det er vel et rettigheds problem?


Punkt 3:

Her kommer denne fejl:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/admin/UploadScript.asp, line 46

linie 46:
File.SaveAs (Server.MapPath("../billeder/" & navnet & "/" & Filnavn))

Jeg har prøvet at udskrive "Server.MapPath("../billeder/" & navnet & "/" & Filnavn)" og det ser rigtigt ud, så hvad er problemet her?

Her er hele koden:

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

' we use memory uploads, so we must limit file size
Upload.SetMaxSize 500000, True

Upload.Savetomemory

' This is needed to enable the progress indicator
'Upload.ProgressID = Request.QueryString("PID")

' Uncomment this line if unique file name generation is necessary
Upload.OverwriteFiles = False

navnet=upload.form("navnet")
alttekst=upload.form("alttekst")
virtualsti = "../billeder/" & navnet & "/"

response.write "navnet: " & navnet & "<br>"
response.write "alttekst: " & alttekst & "<br>"
response.write "virtualsti: " & virtualsti & "<br>"
stien = "D:\2kweb\kunder\portalsex.dk\www\billeder\" & navnet
response.write stien & "<br>"

' Create path, ignore "already exists" error
Upload.CreateDirectory stien, True

If Not Upload.Files("FILE1") Is Nothing Then
    Filnavn = Upload.Files("FILE1").ExtractFilename
    response.write "D:\2kweb\kunder\portalsex.dk\www\billeder\" & navnet & "\" & Filnavn & "<br>"
    response.write Server.MapPath("../billeder/" & navnet & "/" & Filnavn)
    File.SaveAs (Server.MapPath("../billeder/" & navnet & "/" & Filnavn))
End If