MetaBuilders.FileUp.wsc Upload Error

[djanim8]

I'm using the MetaBuilders.FileUp.wsc upload scripts from http://www.4guysfromrolla.com/ and it works on one page when I upload a file.. but on another page, it gives me an error:

Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'SavePath'

I don't understand why its working on one page and not the other.. everything is the same.. location of the files, variables, everything..

Here is the code for the page that works:

Code: Select all

 Dim MBRequest
 Dim strPath
 strPath = "script:" & Server.MapPath("MetaBuilders.FileUp.wsc")
 set MBRequest = GetObject(strPath)
 
MBRequest("fleUpload").SavePath = "D:\inetpub\coleyinc\leads\uploads\" & rsUpdateLead("companyID") & "\"
    MBRequest("fleUpload").Save

and then the code for page that isn't working is the same, although different path:

Code: Select all

Dim MBRequest
 Dim strPath
 strPath = "script:" & Server.MapPath("MetaBuilders.FileUp.wsc")
 set MBRequest = GetObject(strPath)
 
MBRequest("fleUpload").SavePath = "D:\inetpub\coleyinc\leads\uploads\common\"
   MBRequest("fleUpload").Save

any suggestions?

[spinal007]

Go back to where you found this code and checkout the documentation.
http://www.4guysfromrolla.com/webtech/012401-1.shtml

Either:

1. MBRequest("fleUpload") isn't an object
2. MBRequest("fleUpload") is an object but it doesn't have a SavePath method. This could be a typo...

The basic example to work from is...

Dim MBRequest
Set MBRequest = GetObject( "script:" & Server.MapPath( "MetaBuilders.FileUp.wsc" ) )

If MBRequest("submit") = "upload" then
Response.Write MBRequest("MyTextField") & vbNewLine
Response.Write MBRequest("File1").Path & _
MBRequest("File1").FileName & vbNewLine
MBRequest("File1").Save
End If