Hi,
I am creating a form which should upload a file to the server but the code gets stuck at a certain point.
The code from the form is:

<form method=post enctype="multipart/form-data" action="CompanyFolderTab.asp" target="filelist">
    <tr>
        <td class=header bordercolor="#315182" colspan=2>
            Nieuw of aangepast bestand publiceren
        </td>
    </tr>
    <tr>
        <td>Bestand&nbsp</td>
        <td><input type="file" name="fileSource"></td>
    </tr>
    <tr>
        <td width=1></td>
        <td><input type="submit" value="Publiceren"></td>
    </tr>
    </form>

In the CompanyFolderTab.asp the Upload.inc is included and the function GetFields is called

This function looks like this (The logfile exists and works)

Function GetFields(UploadSizeLimit,logfile)
  logfile.WriteLine(" Function GetFields. UploadSizeLimit= " & UploadSizeLimit)
  Dim Result
  Set Result = Nothing
  'Request method must be "POST"
  If Request.ServerVariables("REQUEST_METHOD") <> "POST" Then
    logfile.WriteLine("Request method is " & Request.ServerVariables("REQUEST_METHOD") & ".")
    Err.Raise 51, "GetUpload", "Request method is """ & Request.ServerVariables("REQUEST_METHOD") & """. Dit moet ""post"" zijn."
  Else

    'read Content-Type
    Dim CT
    CT = Request.ServerVariables("HTTP_Content_Type")
    logfile.WriteLine("Header = " & CT)
    ' Content-Type header must be "multipart/form-data"
    If LCase(Left(CT, 19)) <> "multipart/form-data" Then
      logfile.WriteLine("Header is niet multipart/form-data maar is :" & CT)
      Err.Raise 51, "GetUpload", "Content-type is """ & CT & """. Dit moet ""multipart/form-data"" zijn."
    Else
      Dim Boundary, PosB, PosE

      'Get the boundary and length from Content-Type header
      PosB = InStr(LCase(CT), "boundary=")
      If PosB > 0 Then Boundary = Mid(CT, PosB + 9)

      '****** Error of IE5.01 - doubles http header
      PosB = InStr(LCase(CT), "boundary=")
      If PosB > 0 then 'Patch for the IE error
        PosB = InStr(Boundary, ",")
        If PosB > 0 Then Boundary = Left(Boundary, PosB - 1)
      end if
      logfile.WriteLine("PosB : " & PosB & " Boundary : " & Boundary)
      '****** Error of IE5.01 - doubles http header

      Dim Length
      Length = CLng(Request.ServerVariables("HTTP_Content_Length" )) 'Get Content-Length header
      logfile.WriteLine("Length = " & Length)
      If "" & UploadSizeLimit <> "" Then
        UploadSizeLimit = CLng(UploadSizeLimit)
        If Length > UploadSizeLimit Then
' Request.BinaryRead (Length)
            logfile.WriteLine("Uploadsize is to large.")
          Err.Raise 2, "GetUpload", "Upload (" & FormatNumber(Length, 0) & " B) is groter dan toegelaten (" & FormatNumber(UploadSizeLimit, 0) & " B)"
          Exit Function
        End If
      End If

      If Length > 0 And Boundary <> "" Then 'Are there required informations about upload ?
        Boundary = "--" & Boundary
        logfile.WriteLine("Length = " & Length & " - - Boundary : " & Boundary)
        logfile.WriteLine("Why do you stop here?")
        Dim fileData
        fileData = "dude this is going bad"
        logfile.WriteLine("Dim Binary : " & fileData )
        'Reads binary data from client
         fileData = Request.BinaryRead(Length) ///////This is were it goes wrong
         logfile.WriteLine("After binary read")

        'Retrieves the upload fields from binary data
        Set Result = SeparateFields(fileData, Boundary)
        logfile.WriteLine("Result = " & Result)
        fileData = Empty 'Clear variables
      Else
      logfile.WriteLine("Http contents is empty")
        Err.Raise 51, "GetUpload", "HTTP inhoud is leeg."
      End If
    End If
  End If
  Set GetFields = Result
End Function


I know it is a lot of code but near the end there is the line:
fileData = Request.BinaryRead(Length)
This is were it goes wrong. The script will not go past this line.
(Length = TotalBytes)

any suggestions to how I can get this to work.

Greetz

Tom.

By the way:

The Error message is


Request object error 'ASP 0104 : 80004005'

Operation not Allowed

/includes/Upload.inc, line 74

and line 74 is fileData = Request.BinaryRead(Length)

Greetz

Tom

Watch that you dont have anti-virus software on that IIS server which prevents script processing - that will hold it up.

I have found that the error doesn't occur with small files.

< 100 K

But once a file is a bit larger but still within the limits I set I get the error.

How does this come and how do I solve this.

To Recap: the upload works but not with larger files.

Any suggestions.

Greetz

Tom.

Well, my day is saved thanks to the following post I found on another forum.

For all the persons who have trouble with up and download in asp with iis 6.0 here is the solutions that helped me

IIS 6.0: upload and download issues
If any of you are having issues with uploads and downloads with Web Explorer Free and are running IIS 6.0, try these solutions first: open up the file "metabase.xml" with notepad...should be located in C:\windows\sytem32\inetserv. Find the variable named "AspBufferingLimit" and change it to something greater than what is there. By default this is set to around 4 megs. By changing this variable you are increasing the max size of ASP response buffer, thus letting you download files greater than 4 megs using WexFree. For uploading files greater than this ammount, look for the variable named "AspMaxRequestEntityAllowed" and change it to the desired size. And there you have it. By increasing the number of these variables, you can controll the size of uploads and downloads (respectively) while using Web Explorer Free. Hope this helps. -Peace-

Enjoy

Greetz

Tom.

i can not get metabase.xml to save when editing in notepad...

how did u manage to edit it?

I tried this... unfortunately didnt help for the download via ado.stream..

the save to dialogue doesnt even pop up when i changed the 4MB limit to a 40MB limit.

The Save Dialogue box doesn't have anything to do with the limits set in the xml file.

When this does not show there is probably something wrong with your Form Code.

The Errors that have something to do with the upload limits occur on the server side and a dialogue box happens on the client side.

Regards, Tom.