为什么无法获取谷歌的搜索结果页面？？？

我想用asp获取谷歌的搜索结果页面
Function xmlHttp(sUrl, sCharSet)
    On Error Resume Next
    Dim xml: set xml =  Server.CreateObject("Msxml2.ServerXMLHTTP")  'Server.CreateObject("Microsoft.XMLHTTP")
    xml.Open "GET", sUrl, False
    xml.setRequestHeader "Content-Type", "text/html;charset=" & sCharSet
    xml.Send()
    If Err.Number <> 0 Then 
        xmlHttp = ""
        Exit Function
    End If
    If xml.readyState = 4 Then
        xmlHttp = BytesToBstr(xml.responseBody, sCharSet)
    End If
End Function

Function BytesToBstr(cnvUni, sCharSet)
    On Error Resume Next
    Dim objStream: set objStream = Server.CreateObject("adodb.stream") 
    With objStream
        .Type = 1
        .Mode = 3
        .Open
        .Write cnvUni
        .Position = 0
        .Type = 2
        .Charset =  sCharSet
        BytesToBstr = .ReadText
        .Close
    End With

End Function

ym12=xmlHttp("http://www.google.com.hk/search?q=Yes+or+no&hl=zh-CN&newwindow=1&lr=lang_zh-CN&ft=i&cr=","utf-8")


response.write ym12


结果一运行就出现错误的页面,错误页面显示如下信息