Dim fso As FileSystemObjectSet fso = New Scripting.FileSystemObjectSet f2 = fso.OpenTextFile(FileString0, ForReading)rQuery = f2.ReadAllf2.CloseSet f2 = NothingSet 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 

Из приложения отправляю данные:

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

ASP принимает данные:

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

PostData - английские буквы принимает, а кирилица слетает. Иероглифы.
Помогите разобраться с этими гр..ми кодировками. Голова ходом уже.
Пробовал передавать данные с преобразованием кодировки при помощи ADODB.Stream. Все равно получает иероглифы.

фанат