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
Shadow The GPT Wizard
  • 66,030
  • 26
  • 140
  • 208
MrMatar
  • 51
  • 1
  • 1
  • 2

1 Answers1

4

Firstly check if path & fileItem is a valid address? If the folders is not created, create it. Also, recheck your permissions. Have you given IUSR the permission of "Full Control"?

MeSo2
  • 450
  • 1
  • 7
  • 18
soham
  • 1,508
  • 6
  • 30
  • 47