Upload - handle other requests with higher priority

<%
'This file is using ThreadPriority to set less thread priority for upload

Dim DestinationPath
DestinationPath = Server.MapPath("UploadFolder")

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

Server.ScriptTimeout = 2000
Form.SizeLimit = &H10000000
Form.ThreadPriority = -1

If Form.State = 0 Then 'completed
  Form.Files.Save DestinationPath 
  Response.Write "<br><Font Color=green>Files (" & _
    Form.TotalBytes \1024 & "kB) was saved to " & _
    DestinationPath & " folder.</Font>"
ElseIf Form.State > 10 Then
  Const fsSizeLimit = &HD
  Select Case Form.State
    Case fsSizeLimit: Response.Write  _
     "<br><Font Color=red>Source form size (" & _
     Form.TotalBytes & "B) exceeds form limit (" & _
     Form.SizeLimit & "B)</Font><br>"
    Case Else Response.Write _
     "<br><Font Color=red>Some form error.</Font><br>"
  End Select
End If'Form.State = 0 then

%>