Upload - Write names of all form fields

<%
'Sample file Field-Name.asp 
'Enumerate all source fields and write its names 
Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm")
'was the Form successfully received?
If Form.State = 0 Then

  Response.Write "<br>Form.Items.Count:" & Form.Items.Count

  For Each Item In Form
    Dim I:I = I + 1
    Response.Write "<br><br>Item no.:" & I
    Response.Write "<br>Length:" & Item.Length
    'Write name of the source field
    Response.Write "<br>Name:" & Item.Name
    '
  Next
End If'Form.State = 0 then
%>  
<br>sample For <A Href=http://www.motobit.com>HugeASP upload</A>
<form name="file_upload" method="POST" ENCTYPE="multipart/form-data" >
<input Name=SourceFile1 Type=File><br>
<input Name=SourceFile2 Type=File><br>
<input Name=Description1 Value="Some description"><br>
<input Type=CheckBox Checked Name=Check1 Value="abcdefgh">Check 1<br>
<input Type=CheckBox Checked Name=Check1>Check 1<br>
<input Type=CheckBox Checked Name=Check2>Check 2<br>
<SELECT NAME="Select field" SIZE="1">
  <OPTION VALUE="Option 1">Option 1
  <OPTION VALUE="Option 1">Option 2
  <OPTION VALUE="Option 1" SELECTED>Option 3
</SELECT><br>
<input Name=SubmitButton Value="Submit >>" Type=Submit><br>
</Form>