ZLib - Accept compressed data on server-side ASP

<%
ReceiveFile()

'Server-side function
'This function accepts and saves uploaded data compressed by the Compress method on the servers ASP
Sub ReceiveFile()
  Dim SourceData, FileName, FileContents, ByteArray
  
  'Test if this is request from our client
  FileName = Request.ServerVariables("HTTP_FILENAME")
  If FileName <> "" Then 'This is a request from our client
    'Read compressed file from the source stream
    SourceData = Request.BinaryRead(Request.TotalBytes)
    
    'Uncompress the source file
    Set ZLib = CreateObject("ScriptUtils.ZLib")
    Set FileContents = ZLib.UnCompress(SourceData)
    
    'Save source file to the destination directory (current directory)
    FileContents.SaveAs Server.MapPath(GetFileName(FileName))
  End If
End Sub

Function GetFileName(FullPath)
  'Returns file name from full path
  Dim Pos
  Pos = InstrRev(FullPath, "\")
  GetFileName = Mid(FullPath, Pos + 1)
End Function
%>