Проблемы с загрузкой файла на сервер.

Response.Expires=0
Response.Buffer = TRUE   
Response.Clear
 
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject('Scripting.Dictionary')
BuildUploadRequest  RequestBin
membername = UploadRequest.Item('memberName').Item('Value')
subfolder = subfolder & '/' & membername
contentType = UploadRequest.Item('blob').Item('ContentType')
filepathname = UploadRequest.Item('blob').Item('FileName')
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,' '))
oldfilename = filename
filename = Year(Now) & Month(Now) & Day(Now) &  Hour(Now) & Minute(Now) & Second(Now) & '_' & filename

...

value = UploadRequest.Item('blob').Item('Value')

'Создаем компоненту FileSytemObject
Set ScriptObject = Server.CreateObject('Scripting.FileSystemObject')
memberPath = (Server.MapPath('uploaded') & ' ' & membername)
If not ScriptObject.FolderExists(memberPath) then  
  ScriptObject.createFolder(memberPath)
end if  

'Создаем и пишем файл
pathEnd = Len(Server.mappath(Request.ServerVariables('PATH_INFO')))-14
pathFullGet = Left(Server.mappath(Request.ServerVariables('PATH_INFO')),pathEnd) & SUBFOLDER & ' ' & filename
Set MyFile = ScriptObject.OpenTextFile(pathFullGet, 2, -1, -1)
'Создавать файл заново нет необходимости

For i = 1 to LenB(value)
  MyFile.Write(Chr(AscB(MidB(value,i,1))))
Next
MyFile.Close
  
Set pathFullGet = Nothing
Set pathEnd = Nothing
Set MyFile = Nothing
Set ScriptObject = Nothing