怎么接收页面内容

datastr="wen=268719197871"
Set Http=createobject("Msxml2.ServerXMLHTTP")
Http.open "GET", "http://www.,False
Http.send
If Http.Readystate <>4 then
   QueryOneBill="对不起，查询器出错。"&" <br> <a href='index.asp'>返回 </a>"
   Set Http=Nothing
Else
  page=bytesToBSTR(Http.responseBody,"gb2312")---------Microsoft VBScript 运行时错误 (0x800A000D)
                                                       类型不匹配: 'bytesToBSTR'
  response.Write(page)
  Set Http=Nothing
End If