Persits - problem ved upload af flere filer på én gang

Jeg har dette script

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

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

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


Upload.SaveVirtual ("../billeder")
For Each File in Upload.Files

set file = Upload.Files(1)
  filnavn = File.Filename


  Set Image = Server.CreateObject("AspImage.Image")
  Image.AutoSize = true
Image.LoadImage(server.mappath("\hilhane\billeder\" & filnavn))




  intXSize = 415

  if Int(Image.MaxX) >= intXSize then
  intYSize = (intXSize / Image.MaxX) * Image.MaxY
  Image.ResizeR intXSize, intYSize
  end if
'Image.AddImageTransparent "d:\home\jonsendk\www\album\billeder\overlay.jpg", 300, 0, vbWhite
Image.FileName = server.mappath("\hilhane\billeder\stor\" & filnavn) 
Image.SaveImage
 
  Set objImg = nothing
  Set Image = nothing

  Set Image = Server.CreateObject("AspImage.Image")
  Image.AutoSize = true
Image.LoadImage(server.mappath("\hilhane\billeder\" & filnavn)) 

  intXSize = 125
  intYSize = (intXSize / Image.MaxX) * Image.MaxY
  Image.ResizeR intXSize, intYSize
Image.FileName = server.mappath("\hilhane\billeder\" & filnavn)
Image.SaveImage
 
  Set objImg = nothing
  Set Image = nothing

Set Image = Server.CreateObject("AspImage.Image")
  Image.AutoSize = true
Image.LoadImage(server.mappath("\hilhane\billeder\" & filnavn)) 

  intYSize = 94
  intXSize = (intYSize / Image.MaxY) * Image.MaxX
  Image.ResizeR intXSize, intYSize
Image.FileName = server.mappath("\hilhane\billeder\" & filnavn)
Image.SaveImage

kategori = Upload.Form("kategori")
   
SQL = "INSERT INTO [billeder] (kategori,Billede) VALUES (" & kategori & ", '" & filnavn & "')"
'response.write sql
conntemp.execute(sql)
Next
response.redirect "?mode=billeder&funktion=side&id=" & kategori & ""

Men den gemmer du alle billederne i billeder/ de gemmes ikke i billeder/stor. Der laves også x antal rækker - men det samme filnavn bliver gemt under billeder i alle rækker.

På forhånd tak.