Korrigering af upload-script...

Hej,

Eftersom min web-udbyder har ændret på opsætningen af min uploadkomponent, kan jeg ikke længere anvende mit originale script. Jeg plejer at bruge nedenstående script, men har nu fået at vide at jeg i stedet skal anvende SaveVirtual.

<%
    Set Upload = Server.CreateObject("Persits.Upload.1")
   
    Upload.OverWritefiles = True
    Upload.SetMaxSize 100000, True
    Count = Upload.Save(Server.MapPath("../Grafik/Kunder/"))
   
set fso = CreateObject("Scripting.FileSystemObject")

    For Each File in Upload.Files
    set f = fso.getfile(File.Path)
    extension = fso.Getextensionname(File.Path)
if fso.fileexists(f.parentfolder & "\" & Session("Virksomhed") & "." & extension) then
  fso.deletefile(f.parentfolder & "\" & Session("Virksomhed") & "." & extension)
end if
f.name = Session("Virksomhed") & "." & extension
   
    Response.Write File.Name & "= " & File.Path & " (" & File.Size &")<BR><br>"
    Next

%>

Jeg giver pointsene til den som kan hjælpe mig med mit problem.

/peter