error uploading a file

[RCDAWebmaster]

Hi everyone, I’m getting the following error uploading a file with asp. I’m using the code I downloaded from uploadasp.zip. I don’t know who wrote it so I can’t give credit.
I've checked my local dev box here and I do infact have the correct directory permissions as far as I can tell.

Mike

Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument
/administration/DBupload/upload.asp, line 136

The code:

Public Sub SaveToDisk(sPath)
		Dim oFS, oFile
		Dim nIndex
	
		If sPath = "" Or FileName = "" Then Exit Sub
		If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\"
	
		Set oFS = Server.CreateObject("Scripting.FileSystemObject")
		If Not oFS.FolderExists(sPath) Then Exit Sub
		
		Set oFile = oFS.CreateTextFile(sPath & FileName, True)
		
		For nIndex = 1 to LenB(FileData)
		    oFile.Write Chr(AscB(MidB(FileData,nIndex,1)))	<-- Line 136
		Next

		oFile.Close
	End Sub

[ArtistScope]

Most likely a problem with the file path... or the routine itself will never work. While a lot people use DLLs to process ASP uploads, it can be done using pure ASP, but the routines are much more complex than what your script suggests.

[RCDAWebmaster]

problem fixed by replacing the script with one that actually works.