Hi all,

I'm having some troubles with the aspsmartupload component.

I upload a file to the server, I can see the ContentString of the file correctly but the SaveAs method is not creating the file on disk without showing any error.

I know it seems a permission problem... but the destiny folder has Full control privileges for Everyone.

The scope of the project is the following:

The web is an ASP page that after having the file in form of an aspsmartupload component, calls a COM+ object. This COM+ object receives the aspsmartupload as parameter and then it should write it to disk¡K. There is no error and no file ƒ¼

The COM+ is inside a Server Application, running with a certain user. Let¡¦s call it $WEBUSER.

$WEBUSER is local to the machine and belongs to the Users group. I even added $WEBUSER with full control privileges to the directory as an act of despair.

Nothing seems to work and no error is being raised. Using FileMon (sysinternal) the log shows an OPEN access to the folder with ¡§FILE NOT FOUND¡¨.

I¡¦m a little lost here. Can anybody please help me????

The same application runs fine on a development environment.

Thanks in advance.

Can you post your upload code?



TDA

This is the upload code in the ASP.

    Set oUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

    Set foo = Server.CreateObject("MyObject.MyInterface")

    oUpload.Upload

    ' Get parameter
    sGUIDPath = oUpload.Form("GUIDPath")

    If sGUIDPath="" Then
        Response.Write "ERRO: GUIDPath was not received"
        Response.End
    End If

    For each oFile In oUpload.Files
        If not oFile.IsMissing Then
            sClientFileName = oFile.FilePathName
            'Save image
            foo.LoadXMLFicha oFile, Cstr(sGUIDPath)
            Exit For
        End If
    Next


And this is the code in the called “MyObject.MyInterface”.
(VB6 with COM+)


Public Sub MyInterface (v_oSmartFile As Variant, ByVal sGUIDPath As String)

Dim l_oSmartFile As Variant ' aspSmartUpload.File Object

Set l_oSmartFile = v_oSmartFile

l_oSmartFile.SaveAs "c:\temp\" & sGUIDPath & ".xml"
If Err.Number <> 0 Then
     Err.Raise ERROR_EXECUTE, DBG_CLASS & ":" & DBG_METHOD, "Errorsaving " & sGUIDPath & ".xml"
     Exit Sub
End If

End Sub

I do some trace but it’s not important for the case and would only confuse the code.

C:\TEMP has full privileges for Everyone

Can anyone help me with my case?

Has anyone ever had the same problem?

Please, reply

Thank you

tdaustin, did you reach any conclusion with the code?

I'm really in a tight spot with this. I appreciate any help you guys can give

:(