SoftArtisans.SAFile.1 error '80020009'

Hi,

Yes permissions where correct, my SoftArtisans FileUp component was too old i think 3.1.1.7 apparently..

I just culled the new calls and put in the old ones I knew worked...

Don't have any documents on SAFileUP

Thanx for the comments,

Richard

functions/functions_upload.asp

'Function to upload a file

Function fileUpload(ByVal strFileUploadPath, ByVal saryFileUploadTypes, ByVal intMaxFileSize, ByVal strUploadComponent, ByRef lngErrorFileSize, ByRef blnExtensionOK)

 'Dimension variables
 Dim objUpload  'Uplaod component
 Dim strNewFileName 'Holds the file name
 Dim strOriginalFileName 'Holds the original file name for those components that need to save the file first
 Dim strFilename

 strNewFileName = "TEST"
 strOriginalFileName = "TEST"
 strFilename = "ERROR"

  '******************************************
  '***  SoftArtisans FileUp component    ****
  '******************************************

  'SA FileUp upload component - tested with version 3.1.1 not VER 4 COMPAT
  
   'Create upload object
   Set objUpload = Server.CreateObject("SoftArtisans.FileUp")

    'Over write files or an exception will occur if it already exists
    'objUpload.OverWriteFiles = True

    'Set the upload path
    '.Path = Server.MapPath(strFileUploadPath)

    'Get the file name, the path mehod will be empty as we are saving to memory so use the original file path of the users system to get the name
    strNewFileName = Mid(objUpload.UserFilename, InstrRev(objUpload.UserFilename, "\") + 1)

       
    'Check the file size is not above the max allowed size, this is done using a function not the compoent to stop an exception error
    lngErrorFileSize = fileSize(objUpload.TotalBytes, intMaxFileSize)

    'Loop through all the allowed extensions and see if the file has one
    blnExtensionOK = fileExtension(strNewFileName, saryFileUploadTypes)

    'rs36 Check UPLOADED
    if objUpload.IsEmpty Then blnExtensionOK = False
    'rs36 CHECK FORM SUB
    'If objUpload.ContentDisposition <> "form-data" Then blnExtensionOK = False

    'Replace spaces with underscores and Randomise File Name
    strNewFileName = Replace(strNewFileName, " ", "-", 1, -1, 1)
    strNewFileName = Replace(Formatdatetime(now(),vbshortdate) , "/", "-", 1, -1, 1) & strNewFileName

    'If the file is OK save it to disk
    If lngErrorFileSize = 0 AND blnExtensionOK = True Then

     'objUpload.form("file").SaveInVirtual "/uploadforum"
     objUpload.form("file").SaveInVirtual strFileUploadPath & "/" & strNewFileName
          
     fileUpload = strNewFileName
    End If
  'Clean up
  Set objUpload = Nothing
End Function