Upload - Save all source files to the specified path

<%
'Sample file Fields-Save.asp 
' Save all source files to one destination folder.
'
Option Explicit
'Get an destination path
Dim DestPath: DestPath = Server.MapPath("UploadFolder")

'Create upload form
Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm")

'was the Form successfully received?
If Form.State = 0 Then


  'Save all source files to the path
  Form.Files.Save DestPath
  '

  Response.Write "<br>Files was saved to " & DestPath & " folder."

End If'Form.State = 0 then
%>  
<br>sample For <A Href=http://www.motobit.com>HugeASP upload</A>
<br>This sample saves source files To '<%=DestPath%>' folder.

<form name="file_upload" method="POST" ENCTYPE="multipart/form-data" >
<Div ID=files>
   File 1 : <input type="file" name="File1"><br>
   File 2 : <input type="file" name="File2">
</Div>
<Input Type=Button Value="Add a file" OnClick=return(Expand()) 
 Style="border=0;background=yellow;cursor:hand"><br>

Description:<input Name=Description1><br>
<input Name=SubmitButton Value="Submit >>" Type=Submit><br>
</Form>

<Script>
var nfiles = 2;
Function Expand(){
  nfiles++
  var adh = '<BR> File '+nfiles+' : <input type="file" name="File'+nfiles+'">';
  files.insertAdjacentHTML('BeforeEnd',adh);
  return false;
}
</Script>