Upload - Enumerate source fields using index

<%
'Sample file Fields-Item.asp 
'Enumerate and access source form fields using For-Each
' and using Item(Index)
Option Explicit

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

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

  Dim Field, Index

  Response.Write "<br>Enumerate source fields using For Each"
  For Each Field In Form
    Response.Write "<br> " & Field.Name & ",Length:" & Field.Length & ", Value:" & Field
  Next

  Response.Write "<br>Enumerate source fields using index"
  For Index = 1 To Form.Items.Count
    Set Field = Form.Items(Index)
    Response.Write "<br> " & Field.Name & ",Length:" & Field.Length & ", Value:" & Field
  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><br>
<input Type=CheckBox Checked Name=Check1>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>

<form method="POST">
<input Type=Submit>
</Form>

Script output:

Enumerate source fields using For Each
 SourceFile1,Length:0, Value:
 SourceFile2,Length:0, Value:
 Description1,Length:0, Value:
 Check1,Length:2, Value:on
 Check1,Length:2, Value:on
 Check2,Length:2, Value:on
 Select field,Length:8, Value:Option 1
 SubmitButton,Length:9, Value:Submit >>
Enumerate source fields using index
 SourceFile1,Length:0, Value:
 SourceFile2,Length:0, Value:
 Description1,Length:0, Value:
 Check1,Length:2, Value:on
 Check1,Length:2, Value:on
 Check2,Length:2, Value:on
 Select field,Length:8, Value:Option 1
 SubmitButton,Length:9, Value:Submit >>