So I have a form that I'm running which has an option to upload a resume.
The form itself is actually multi-page but it all sits inside 1 asp file. The way I manage that is to use a select function and case function and depending on the "page" it will display the appropriate form material.
I have loaded in some asp code that I found online for uploading, and it works when it's stand-alone.
However when I incorporate it into my form code, it gives me the error
Request object error 'ASP 0206 : 80004005'
Cannot call BinaryRead
/members/Loader.asp, line 36
Cannot call BinaryRead after using Request.Form collection.
My code is as such
<%@LANGUAGE="VBSCRIPT"%> <% Option Explicit %> <!--#include virtual="/Connections/CTRI_Web.asp" --> <!--#include file="Loader.asp"--> <% Const NUMBER_OF_PAGES = 4 Const DBOR = true Dim intPreviousPage Dim intCurrentPage Dim strItem Dim AbortMessage Dim AlertMsg Dim email Dim pw Dim pwconfirm Dim gonext Dim results Dim fitem Dim eMailResults Dim UploadAbortMessage Session("fileName") = "" Session("filePath") = "" Session("extension") = "" Session("eemail") = "" Application("pathToFile") = "" %> <% Function uHaul() Response.Buffer = True ' load object Dim load Set load = new Loader ' calling initialize method load.initialize ' File binary data Dim fileData fileData = load.getFileData("file") ' File name Dim fileName fileName = LCase(load.getFileName("file")) Session("fileName") = fileName ' File path Dim filePath filePath = load.getFilePath("file") ' File path complete Dim filePathComplete filePathComplete = load.getFilePathComplete("file") ' File size Dim fileSize fileSize = load.getFileSize("file") ' File size translated Dim fileSizeTranslated fileSizeTranslated = load.getFileSizeTranslated("file") ' Content Type Dim contentType contentType = load.getContentType("file") ' No. of Form elements Dim countElements countElements = load.Count ' Value of text input field "name" Dim nameInput nameInput = load.getValue("name") ' Path where file will be uploaded Dim pathToFile pathToFile = Server.mapPath("/Uploader/uploaded/") & "\" & Session("eemail") & Session("fileName") Application("pathToFile") = pathToFile ' Uploading file data Dim fileUploaded fileUploaded = load.saveToFile ("file", pathToFile) ' destroying load object Set load = Nothing End Function %>
This bit of code sits right on top of everything else.
So what exactly have I done wrong and how can I go about fixing it?
Thanks for all of your advice and help.
PS. Ignore the session and application variables, it was part of a test that didn't go so well.