<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<%
response.ContentType = "text/html; charset=windows-1251"
Dim urlExec
Dim objSrvHttp
Dim url 
Dim objStream
Set objSrvHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")

Set objStream = CreateObject("ADODB.Stream")
urlExec="http://meteoinfo.ru/forecasts5000/russia/moscow-area"

Call objSrvHTTP.Open ("GET", urlExec, False)
objSrvHTTP.setRequestHeader "Content-Type", "text/html" 
objSrvHTTP.setRequestHeader "charset", "Windows-1251" 
objSrvHTTP.setRequestHeader "Content-Type", "text/html; charset=Windows-1251"
objSrvHTTP.send ""
If (200 <> objSrvHTTP.status) Then
Else
 objStream.Type = 2    '1-adTypeBinary, 2-adTypeText
 objStream.Charset = "Windows-1251"
 objStream.Open
 str = objSrvHTTP.responseText
response.write str
%>

Строка str содержит ?????? вместо русских букв. До последнего времени
все было нормально, что-то изменилось на сайте meteoinfo.ru
Как установить русскую кодировку?