MOTOBIT.COM - ASP upload, IIS utility Texts Property, read only of ASPForm class

Upload - Enumerate text fields in a form.

<%
'Sample file Form-Texts.asp
' Enumerates all text (non-file) source fields.
'

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

'was the Form successfully received?
If Form.State = 0 Then
  'Number of text fields 
  Response.Write "<br>n of text fields:" & Form.Texts.Count
  '
  Response.Write "<br>" & vbCrLf

  Response.Write "Text field names and length:"
  'Enumerate texts 
  Dim Field: For Each Field In Form.Texts
    '
    Response.Write "<br> " & Field.Name & " - " & Field.Length
  Next

End If'Form.State = 0 then

%>  
<br>sample For <A Href=http://www.motobit.com>HugeASP upload</A>
<br>Enumerates all text (non-file) source fields.

<form name="file_upload" method="POST" ENCTYPE="multipart/form-data" >
File1:<input Name=SourceFile1 Type=File><br>
File2:<input Name=SourceFile2 Type=File><br>
Description:<input Name=Description1><br>
<input Type=CheckBox Name=Save>Also save<br>
<TextArea Name=LongText Cols=60 Rows=10></TextArea><br>
<input Type=HIDDEN Name=HIDDENField Value="Some hidden data">
<input Name=SubmitButton Value="Submit >>" Type=Submit><br>

</Form>

Upload - Save extra upload info to a database

<%
'Sample file Field-SaveAs.asp 
'Store extra upload info to a database
' and file contents to the disk

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

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

  'Create destination path+filename for the source file.
  Dim DestinationPath, DestinationFileName
  DestinationPath = Server.MapPath(".") & "\"
  DestinationFileName = "~upload-" & Form("SourceFile").FileName


  'Open recordset to store uploaded data
  Dim RS: Set RS = OpenUploadRS

  'Store extra info about upload to database
  RS.AddNew
   RS("UploadDT") = Now()
   RS("Description") = Form.Texts("Description")
   RS("SourceFileName") = DestinationFileName
   '...
  RS.Update

  'Save file to the destination
  Form("SourceFile").SaveAs DestinationPath & DestinationFileName
  '

  Response.Write "<br>Source file names:"
  Dim Field: For Each Field In Form
    Response.Write "<br> " & Field.FileName
  Next
End If'Form.State = 0 then

Function OpenUploadRS()
  Dim RS  : Set RS = CreateObject("ADODB.Recordset")

  'Open dynamic recordset, table Upload
  RS.Open "Upload", GetConnection, 2, 2
  
  Set OpenUploadRS = RS
End Function 

Function GetConnection()
  Dim Conn: Set Conn = CreateObject("ADODB.Connection")
  Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
  Conn.Open "Data Source=" & Server.MapPath("upload.mdb") 
	Set GetConnection = Conn
End Function



%>  
<br>sample For <A Href=http://www.motobit.com>HugeASP upload</A>
<br>Store extra upload info To a database
<br> And file contents To the disk
<form name="file_upload" method="POST" ENCTYPE="multipart/form-data">
File1:<input Name=SourceFile Type=File><br>
Description:<input Name=Description><br>
<input Name=SubmitButton Value="Submit >>" Type=Submit><br>
</Form>