Asp classic 获得；Microsoft VBScript运行时错误'；800a01a8&x27&引用；

我继承了一个网站做一般维护。网页是ASP页面，但我的大部分工作都是使用html/css。该网站多年来一直运行良好，也就是说直到现在。当我尝试加载包含VB脚本的页面时，我收到以下错误：

Microsoft VBScript运行时错误“800a01a8”

所需对象：“[对象]”

/new_products.asp，第12行

asp页面的名称会根据正在调用的页面而更改，但行引用是相同的

生成错误的代码如下所示：

        Dim objXMLHTTP
    Dim coordinates
    Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
    ip = Request.ServerVariables("REMOTE_ADDR")
    objXMLHTTP.Open "GET", "http://www.ippages.com/xml/?ip="&ip&"&get=country", False
    objXMLHTTP.Send
    Set xmldoc = objXMLHTTP.responseXML
    country = xmldoc.selectSingleNode("ip_address/lookups/lookup_country").text
    set objXMLHTTP=nothing

    theCountry = Trim(UCASE(country))


    If theCountry = "CA-CANADA" then
        Bags = "13.99"
        SB4Pack = "14.00"
        currency_code = "CAD"
        lc = "CA"
        Pref = "$"
        ShipType = 1
    ElseIf theCountry = "US-UNITED STATES" then
        Bags = "13.99"
        SB4Pack = "14.00"
        currency_code = "USD"
        lc = "US"
        Pref = "$"
        ShipType = 2
    Else
        Bags = "8.00"
        SB4Pack = "11.00"
        currency_code = "GBP"
        lc = "UK"
        Pref = "£"
        ShipType = 2
    End If

---

由于我对VB的了解非常有限，我已经尽了最大的努力试图找出代码停止工作的原因，但我还是被难住了。非常感谢您的任何帮助。

因为这是一个环境特定的问题，正如您所提到的，最近开始弹出。。。无法提供确定声明。你需要调查一下。我们能做的就是提出一些建议。我相信你的问题就在于这句话

Set xmldoc = objXMLHTTP.responseXML
country = xmldoc.selectSingleNode("ip_address/lookups/lookup_country").text

可能该值不为空或无。如果该值为空或无，请尝试打印country的值。。。后来当你试图改变国家的情况。。。。您可以使用诸如Fidler之类的工具捕获Http请求和响应工具，以验证作为一个值进入查找国家/地区的内容，或者您是否正在获取此节点

---

另外，国家在哪里声明。如果是动态变量，请检查是否有人启用了OptionExplicit？？？

谢谢您花时间回复。我很抱歉直到现在才给你回电话。我无法寻求问题的解决方案，因为客户决定关闭商店，网站不再需要。不过再次谢谢你。