Dim fso As FileSystemObject
Set fso = New Scripting.FileSystemObject
Set f2 = fso.OpenTextFile(FileString0, ForReading)
rQuery = f2.ReadAll
f2.Close
Set f2 = Nothing
Set fso = Nothing
                Dim HttpReq As New MSXML2.XMLHTTP
                Dim str
                Dim xmldoc As New MSXML2.DOMDocument
                
                Call HttpReq.Open("POST", "http://localhost/asd/cdo_robotmail.asp", True)
                HttpReq.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
                HttpReq.setRequestHeader "Accept-Language", "ru, en"
                HttpReq.setRequestHeader "Accept-Charset", "windows-1251;q=1, koi8-r;q=0.6, ISO-8859-5;q=0.4, ISO-8859-1;q=0.1"
                HttpReq.setRequestHeader "Content-Length", CStr(Len(rQuery))
                HttpReq.Send rQuery

a = Request.BinaryRead(Request.TotalBytes) 

For nIndex =  1  to LenB(a) 
   PostData = PostData & Chr(AscB(MidB(a,nIndex, 1 ))) 
Next