Upload - Save form files with special name.

<%
  'Sample file Field-SaveAs-I.asp 
  'Save source files with special file names

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

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

  'Get an destination path
  Dim DestPath: DestPath = Server.MapPath(".")

  'File counter
  Dim I: I=1
  For Each File In Form.Files
    Response.Write "<br>File" & I & " was saved as "
    Response.Write DestPath & "\UploadFolder\SourceFile" & I & ".bin"
    'Save file with a new name
    File.SaveAs DestPath & "\UploadFolder\SourceFile" & I & ".bin"
    '
    I = I+1
  Next
End If'Form.State = 0 then

%>  
<br>sample For <A Href=http://www.motobit.com>HugeASP upload</A>
<br>Save source files with special file names
<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>