<%
' Upload Sem componentes ---------------------------------------
Sub BuildUploadRequest(RequestBin)
    on error resume next

    PosBeg = 1
    PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))
    boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg)
    BoundaryPos = InStrB(1, RequestBin, boundary)

    Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--")))

  Dim UploadControl
  Set UploadControl = CreateObject("Scripting.Dictionary")
  Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition"))
  Pos = InStrB(Pos, RequestBin, getByteString("name="))
  PosBeg = Pos + 6
  PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))
  Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
  PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename="))
  PosBound = InStrB(PosEnd, RequestBin, boundary)

  If PosFile <> 0 And (PosFile < PosBound) Then
      PosBeg = PosFile + 10
      PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))
      FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
      UploadControl.Add "FileName", FileName
      Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:"))
      PosBeg = Pos + 14
      PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))
      ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
      UploadControl.Add "ContentType", ContentType
      PosBeg = PosEnd + 4
      PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2
      Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg)
  Else
      Pos = InStrB(Pos, RequestBin, getByteString(Chr(13)))
      PosBeg = Pos + 4
      PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2
      Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
  End If

  UploadControl.Add "Value", Value
  UploadRequest.Add Name, UploadControl
  BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary)
    Loop
End Sub

Function getByteString(StringStr)
    For i = 1 To Len(StringStr)
  Char = Mid(StringStr, i, 1)
  getByteString = getByteString & ChrB(AscB(Char))
    Next
End Function

Function getString(StringBin)
    getString = ""
    For intCount = 1 To LenB(StringBin)
  getString = getString & Chr(AscB(MidB(StringBin, intCount, 1)))
    Next
End Function

' Fim upload sem Componentes -----------------------------------------
%>