Upload - Save only images

<%
  'Save images only

'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(".")

  For Each File In Form.Files
    Select Case LCase(File.FileExt)
      Case "gif", "jpg", "jpeg", "bmp", "png":
        File.Save DestPath
        Response.Write "<br>File " & File.FileName & _
	  " was saved to " & DestPath
      Case else:
        Response.Write "<br>Bad image file: " & File.FileName
    End Select
  Next
End If'Form.State = 0 then

%>  
<br>sample For <A Href=http://www.motobit.com>Huge-ASP file upload</A>
<br>Save only image source files 
<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>