0

Hi everyone,

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.

-LP

PS. Ignore the session and application variables, it was part of a test that didn't go so well.

1
Contributor
1
Reply
2
Views
7 Years
Discussion Span
Last Post by LurkerPatrol
0

Nevermind guys, I figured out a workaround.

Edited by LurkerPatrol: n/a

This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.