I have a strange and strange error while I change the hosting provider, which:
Error ADODB.Stream '800a0bbc'
Error writing to file.
/cp/portal_upload.asp line 63
I gave the necessary permissions and solved the problem with updating Access DB, but file uploads are 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
source share