<%@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
%>