ASP out of memory error

programming
1

Hi, I’ve been working on this ASP upload script, with a component I downloaded from 4guysfromrolla.com. All of a sudden, the other day, after a colleague of mine made minor adjustments to a for loop (which he then undid) we suddenly started receiving the following error:

Microsoft VBScript runtime  error '800a0007'
Out of memory: 'GetObject'

The script uses an upload component called MetaBuilders.FileUp.wsc. There’s one file input box. Every time you choose a file from this, and click the add button which sits beside it, your file details then become visible below and you’re given the option to the file - using a submit button. Once you’ve finished adding the files you want, you then click ‘Upload’ and a thank you message appears on the screen.

This is the area of the script it suddenly doesn’t seem to like:

strPath = "script:" & Server.MapPath("MetaBuilders.FileUp.wsc" )
set MBRequest = GetObject( strPath )

This is the full code (default4.asp):


<%@ Language=VBScript %>
<% Option Explicit %>
<% response.buffer=true %>
<%
Dim strPath
Dim MBRequest

strPath = "script:" & Server.MapPath("MetaBuilders.FileUp.wsc" )
	'Response.Write strPath
	'Response.End
	set MBRequest = GetObject( strPath )

fileAddedString = MBRequest("fileAddedString")
%>

<html>

<head>
	<title>FileUp Example</title>
	<link href="../scripts/upload_email.css" rel="stylesheet" type="text/css">
</head>

<body>
<%
If MBRequest("submit") <> "Upload" then
	Dim fileAddedString
	Dim fileAddedArray
	Dim output
	Dim i

	If MBRequest("submit") = "Add"  then
		Dim path
		Dim file
		Dim length
		Dim strLen
		
		path = MBRequest("upload").Path
		file = MBRequest("upload").FileName
		
		fileAddedString = fileAddedString & "," & file
		length = CLng(len(fileAddedString))
		strLen = length - 1
		fileAddedString = Right(fileAddedString, strLen)
	End If
	
	fileAddedArray = SPLIT(fileAddedString, ",")
	
	If LEN(fileAddedString) > 0 Then
		For i = 0 TO UBOUND(fileAddedArray)
			output = output & fileAddedArray(i) & "&nbsp;" & "<input type='submit' id='delete_" & i & "' value='Delete' class='bottom_submit' />"
		Next
	Else
		output = "<i>No Files Selected</i>"
	End If
	
	%>
	<form method="post" name="uploadForm" enctype="multipart/form-data" action="<%=Request.ServerVariables("url")%>">
		<div class="top_bar">
			<div class="indent">
		 	<p>Click Browse to select a file, then click Add.</p>
		    	<p><input type="file" name="upload"  />
		
		 	<input type="submit" name="submit" value="Add" class="top_submit" onclick="return validate();" />
			</div>
		</div>
		
		<div class="file_details">
			<div class="indent">
				Filename
			</div>
		</div>
	
		<div class="view_file">
			<div class="indent">
				<% =output %>
			</div>
		</div>
		
		<div class="top_bar">
			<div class="indent">
		 	<input type="hidden" name="fileAddedString" value="<% =fileAddedString %>" />
		 	<input type="submit" name="submit" value="Upload" class="bottom_submit" />
			</div>
		</div>
	</form>
	<%
End If
%>

</body>

</html>

Has anyone seen anything like this before?
I’d really appreciate your help.