獲取「Microsoft VBScript運行時錯誤'800a01a8'」

我已經繼承了一個網站來進行常規維護。網頁是ASP頁面，但我的大部分工作都是使用html/css。該網站一直工作很多年，直到現在。當我嘗試加載所包含VB腳本的網頁我收到以下錯誤：獲取「Microsoft VBScript運行時錯誤'800a01a8'」

Microsoft VBScript runtime error '800a01a8'

Object required: '[object]'

/new_products.asp, line 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 = "&#163;" 
     ShipType = 2 
    End If

與我極爲有限VB的知識，我已經做了我最好的嘗試，並找出原因的代碼已經停止工作，但我難倒。任何和所有的幫助非常感謝。

來源

2011-05-21 mybrainhurts

由於這是一個特定於環境的問題，最近剛開始彈出，如您所述......無法提供確切的聲明。你需要調查它。我們能做的是提出一些建議。我相信你的問題是這種說法之一。

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

也許這個值是不來或空或Nothing.Try到，如果它後來，當你試圖改變國家的情況來爲空，沒什麼......打印國家的價值....你可以使用工具來捕獲像Fidler這樣的Http請求和響應工具，以驗證lookup_country中的內容是否作爲值或者您是否獲取該節點。

另外在哪裏是theCountry被宣佈。如果它是動態變量，那麼檢查是否有一個啓用了OptionExplicit？

來源

2011-05-21 16:34:49

謝謝您花時間回覆。我很抱歉，直到現在還沒有回覆你。當客戶決定關閉商店並且不再需要網站時，我無法尋求問題的解決方案。不過謝謝。 – mybrainhurts 2011-11-07 20:10:18

獲取「Microsoft VBScript運行時錯誤'800a01a8'」

回答

相關問題