Upload - Enumerate source fields using index

Examples

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 >>

<%
'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 >>

Other links for Upload - Enumerate source fields using index

ScriptUtils.FormFields

Contains collection of document fields of files.

ScriptUtils

Easy to use, hi-performance ASP file upload component with progress bar indicator. Let's you upload multiple files with size up to 2GB to a disk or database along with another form fields. Works with large posts, any character set (including unicode utf-8). Contains one-click multiple files/folders download with on-the-fly compression (Using BinaryWrite/BinaryRead).

      Hi-performance text file logging for ASP/VBScript/VBA applications. Lets you create daily/weekly/monthly log files with variable number of logged values and extra timing and performance info.
       Lets you work with safearray binary data in VBS/JS. It also enables conversion between binary and String data using several code pages. ZLib compress and uncompress functions. Lets you transfer files using compressed stream from a client to server using IE.
      This library also enables calling of some Kernel and Advapi functions (performance, timing, sleep, configuration ...) and enables native work with INI files.

	Upload - Enumerate source fields using index
	Sample for ScriptUtils.FormFields.Item