Problemer med FileUp

Goddag alle eksperter

Jeg sidder med noget af et problem. Jeg skal have uploadet 2 filer på samme tid via en asp-kode. Vi har Surftowns største pakke, men deres support har ikke kunne hjælpe os, desværre.

Problemet ligger i, at koden kun vil uploade det ene sted på webserveren. Jeg har åbnet for skriverettighederne og fået det kontrolleret hos Surftown.

Bemærk venligst at denne kode skal indsættes på en Windows webserver.

Her er min kode. Der er 200 point til den person, som kan løse problemet. Tusind tak på forhånd.

<%
dim fs, f, FolderName
FolderName = Server.MapPath("../../../../../../xxx.xxx1.dk/")
set fs = server.createobject("scripting.filesystemobject")

if fs.FolderExists(FolderName) = false then
set f=fs.CreateFolder(FolderName)
set f=nothing
end if

set fs=nothing

dim ns, n, FolderName2
FolderName2 = Server.MapPath("../../../../../../xxx.xxx2.dk/")
set ns = server.createobject("scripting.filesystemobject")

if ns.FolderExists(FolderName2) = false then
set n=n.CreateFolder(FolderName2)
set n=nothing
end if

set ns=nothing
%>
<% if request.querystring("Save") = "Done" then

  set upl = Server.CreateObject("SoftArtisans.FileUp")
  Navn = replace(upl.Form("Navn"), "'", "''")
  Beskrivelse = replace(upl.Form("Beskrivelse"), "'", "''")
  Englishbeskrivelse = replace(upl.Form("Englishbeskrivelse"), "'", "''")
  Kategori = replace(upl.Form("Kategori"), "'", "''")
  Swftype = replace(upl.Form("Swftype"), "'", "''")
  SwftypeHost = replace(upl.Form("SwftypeHost"), "'", "''")
  Hyperlink = replace(upl.Form("Hyperlink"), "'", "''")
  Spiltype = replace(upl.Form("Spiltype"), "'", "''")

  ' Angiv den sti, som filen skal placeres i
  ' - her bruges den aktuelle sti (.)
  upl.Path = FolderName

  if (upl.IsEmpty) then
    Response.write "<p><b>Fejl:</b> Tilføj venligst et billede for, at tilføje spillet korrekt.</p>"
  elseif (upl.ContentDisposition <> "form-data") then
    Response.write "<p><b>Fejl:</b> Upload mislykkedes. Prøv igen senere.</p>"
  else
    Response.write "<p>Spillet blev tilføjet med <b>succes</b> og kan derfor <b>aktiveres</b> af en medarbejder.</p>"
  on error resume next
    upl.Save
    Filename = upl.ShortFileName
   
    upl.Path = FolderName2

  if (upl.IsEmpty) then
    Response.write "<p><b>Fejl:</b> Tilføj venligst en flash-fil (.swf) for, at tilføje spillet korrekt.</p>"
  elseif (upl.ContentDisposition <> "form-data") then
    Response.write "<p><b>Fejl:</b> Upload mislykkedes. Prøv igen senere.</p>"
  else
    Response.write "<p>Spillet blev tilføjet med <b>succes</b> og kan derfor <b>aktiveres</b> af en medarbejder.</p>"
  on error resume next
    upl.Save
    OtherFilename2 = upl.ShortOtherFileName2
   
    Net.Execute("INSERT INTO `spil` (  `navn`  ,  `beskrivelse`  ,  `englishbeskrivelse`  ,  `kategori`  ,  `billede` ,  `swftype`  ,  `swftypehost`  ,  `swf`  ,  `hyperlink`  ,  `spiltype`  ) VALUES ('" & navn & "', '" & beskrivelse & "', '" &  englishbeskrivelse & "', '" & kategori & "', 'http://www.xxx.xxx1.dk/' '" & Filename & "', '" & swftype & "', '" & swftypehost & "', 'http://www.xxx.xxx2.dk/' '" & OtherFilename2 & "', '" & hyperlink & "', '" & spiltype & "')")
   
  end if
  ' response.write(Filename)
 
  end if
  ' response.write(OtherFilename2)
 
end if
%>