Microsoft VBScript runtime error '800a0005'

[newcinc]

Please help me

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument

/newhardrockvn/admin/lib/inc_upload.asp, line 141

code:

If oFS.FileExists(sPath& FileName2) Then Exit Sub

Set oFile = oFS.CreateTextFile(sPath & fileName2, true)

For nIndex = 1 to LenB(FileData)
oFile.Write Chr(AscB(MidB(FileData,nIndex,1))) ' line 141
Next

[Iguana]

Is it because you have "sPath&" instead of "sPath &" in your if statement?

[aspdaddy]

I think its the argument not the procedure call thats invalid.

If you go one too many with nIndex, AscB throws that error.

Try this in the loop: (turn error handling on first)

If err.Number <> 0
Response.write nIndex &"<BR>"
Response.write Chr(AscB(MidB(FileData,nIndex,1)))
Response.End
end if