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>