Upload af filer til forskellige mapper

PS! Formularen ser sådan ud:

  <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="admin_image_article_upload_perform.asp">
      Front page image: (669x24px, including 2px white border and text (Georgia)<br><INPUT TYPE="FILE" SIZE="25" NAME="front"><BR><br>
      Article image: (486x224px, no border)<br><INPUT TYPE="FILE" SIZE="25" NAME="article"><BR><br>
      Thumbnail: (75x75px, no border)<br><INPUT TYPE="FILE" SIZE="25" NAME="thumb"><BR><br>

  <INPUT TYPE=SUBMIT VALUE="Upload">
  </FORM>

Det skal helst være en løsning med AspUpload i øvrigt! :)

jeg omdøber mine filer så der ikke kommer mystiske navne med har sat det op i forhold til de to første så kan du selv sætte den sidste på:

Set Upload = Server.CreateObject("Persits.Upload")
' Save to memory. Path parameter is omitted
Upload.Save
'her henter jeg d.d. til navn på filen
strdato = Now()
strdato = replace(strDato,"-","_")
strdato = replace(strDato,"/","_")
strdato = replace(strDato,":","_")
strdato = replace(strDato," ","_")
'slut
Set File = Upload.Files("front")
If Not File Is Nothing Then
For Each File in Upload.Files
Navn = file.Filename
Navn = replace(Navn,"æ","")
Navn = replace(Navn,"ø","")
Navn = replace(Navn,"å","")
Navn = replace(Navn,"Æ","")
Navn = replace(Navn,"Ø","")
Navn = replace(Navn,"Å","")

Navn = replace(Navn," ","")
Navn = replace(Navn,"%","")
Navn = trim(Navn)
navn = replace(Navn,"."," ")
navn = right(navn,Len(navn)-InstrRev(navn," "))
navn = "." & navn
mappe_1 = "m1_" & strdato & navn

sti = server.mappath("mappe_1/" & mappe_1)
  File.SaveAs sti 'Her angives filnavnet
next
end if
'mappe 2
Set File = Upload.Files("article")
If Not File Is Nothing Then
For Each File in Upload.Files
Navn = file.Filename
Navn = replace(Navn,"æ","")
Navn = replace(Navn,"ø","")
Navn = replace(Navn,"å","")
Navn = replace(Navn,"Æ","")
Navn = replace(Navn,"Ø","")
Navn = replace(Navn,"Å","")

Navn = replace(Navn," ","")
Navn = replace(Navn,"%","")
Navn = trim(Navn)
navn = replace(Navn,"."," ")
navn = right(navn,Len(navn)-InstrRev(navn," "))
navn = "." & navn
mappe_1 = "m2_" & strdato & navn

sti = server.mappath("mappe_2/" & mappe_1)
  File.SaveAs sti 'Her angives filnavnet
next
end if

ups fik ikke lige rettet disse linier på den sidste - men det har ikke den store betydning

mappe_1 = "m2_" & strdato & navn
sti = server.mappath("mappe_2/" & mappe_1)
rettes til
mappe_2 = "m2_" & strdato & navn

sti = server.mappath("mappe_2/" & mappe_2)

har du fået det til at virke ???

Sorry, glemte at give points i sin tid! Tak for hjælpen :)