5

I've weird and strange error showing while I change hosting provider which is:

ADODB.Stream error '800a0bbc'

Write to file failed.

/cp/portal_upload.asp, line 63

I gave the needed permissions and it solve the update Access DB problem but file uploading still not fixed.

this is the code, thanks in advance:

Public Sub Save(path)
    Dim streamFile, fileItem

    if Right(path, 1) <> "\" then path = path & "\"

    if not uploadedYet then Upload

    For Each fileItem In UploadedFiles.Items
        Set streamFile = Server.CreateObject("ADODB.Stream")
        streamFile.Type = 1
        streamFile.Open
        StreamRequest.Position=fileItem.Start
        StreamRequest.CopyTo streamFile, fileItem.Length
        streamFile.SaveToFile path & fileItem.FileName, 2  'This is line 63
        streamFile.close
        Set streamFile = Nothing
        fileItem.Path = path & fileItem.FileName
     Next
End Sub
4

1 回答 1

4

首先检查是path & fileItem一个有效的地址?如果未创建文件夹,请创建它。另外,请重新检查您的权限。您是否已IUSR授予“完全控制”权限?检查那些。

于 2013-05-29T10:40:13.960 回答