MOTOBIT.COM - ASP upload, IIS utility String Default Property, read only of FormField class

Upload - Check file contents to ensure the field is really an image

Upload - Write contents of all text form fields

<%
  Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm")

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

  For Each Item In Form.Texts
    I = I + 1
    Response.Write "<br><br>Item no.:" & I

    'Write contents of the field.
    Response.Write "<br>Field Contents:" & Item.String

    'String is default property of FormField, so you can write
    Response.Write "<br>Field Contents:" & Item

  Next

%>  
<form name="file_upload" method="POST" ENCTYPE="multipart/form-data" >
<input Name="Description1" Value="Text in field Description 1"><br>
<input Name="Description2" Value="Text in field Description 2"><br>
<input Value="Submit >>" Type=Submit><br>
</Form>

Form output:
Form.Items.Count:2

Item no.:1
Field Contents:Text In field Description 1
Field Contents:Text In field Description 1

Item no.:2
Field Contents:Text In field Description 2
Field Contents:Text In field Description 2

Upload - Use x-mac-ce code page for form data.

<%

  Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm")

  'Set response.ContentType to x-mac-ce
  If Form.Items.Count=0 Then 
    Response.CharSet = "x-mac-ce"
  Else
    Response.Write "<br>Form.Items.Count:" & Form.Items.Count

    For Each Item In Form.Texts
      I = I + 1
      Response.Write "<br><br>Item no.:" & I
      Response.Write "<br>Length:" & Item.Length

      'Item.Name returns name of the source field encoded using x-mac-ce
      'you will see right characters if response.CharSet is set to "x-mac-ce"
      Response.Write "<br>Name:" & Item.Name

      'You can decode the name from x-mac-ce charset
      Response.Write "<br>Name encoded with x-mac-ce:" & Item.Name("x-mac-ce")
    
      'Same conversion for value of field.
      Response.Write "<br>Value:" & Item.Value.String
      Response.Write "<br>Value encoded with x-mac-ce:" & Item.Value.String("x-mac-ce")
    Next
  End If
%>  
<form name="file_upload" method="POST" ENCTYPE="multipart/form-data" >
<input Name="Description1" Value="Text1"><br>
<input Name="Description2" Value="Text2"><br>
<input Value="Submit >>" Type=Submit><br>
</Form>