MOTOBIT.COM - ASP upload, IIS utility SizeLimit Property of ASPForm class

Upload - Do not upload data greater than 1MB.

<%
'Sample file Form-SizeLimit.asp
' Lets you specify maximum amount od data which will ASPForm accept.
'

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

'Do not upload data greater than 1MB. 
Form.SizeLimit = &H100000
'


Const fscompleted  = 0
Const fsSizeLimit   = &HD

If Form.State = fsSizeLimit Then 'Data exceeds limit. 
  Response.Write "Form data exceeds limit (" & Form.SizeLimit/1024 & "kB)."
ElseIf Form.State = fscompleted Then 'completed
  'Process form fields
  Response.Write "<br>n of Items:" & Form.Items.Count
  Response.Write "<br>n of Text fields:" & Form.Texts.Count
  Response.Write "<br>n of Files:" & Form.Files.Count
Else 
  Response.Write "<br>Form.State:" & Form.State
  'Another upload error - client is not connected, partial data, ....
End If 

  
%>  
<br>sample For <A Href=http://www.motobit.com>HugeASP upload</A>
<br> Lets you specify maximum amount od data which will ASPForm accept.
<br> Form.SizeLimit Is <%=Form.SizeLimit%> B (<%=Form.SizeLimit \ &H100000 %>MB).
<form name="file_upload" method="POST" ENCTYPE="multipart/form-data">
<input Name=SourceFile1 Type=File>
<input Name=SourceFile2 Type=File>
<input Name=Description1>
<input Name=SubmitButton Value="Submit >>" Type=Submit>
</Form>