XML ASP - fejler online

Nogen der ved hvorfor denne her fejler online og ikke på Personel Web Server ??

    Set Conn = Server.CreateObject("ADODB.Connection")
        Set rs    = Server.CreateObject("ADODB.Recordset")
            Conn.Open db

    Dim XMLDoc, rootNode, Visitor, Felt, Counter
    Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM")
    XMLDoc.async = False
    XMLDoc.load ("http://www.xxxx.dk/test.xml?id=7")
    Counter = -1
    Set rootNode = XMLDoc.documentElement
    If rootNode.hasChildNodes() then   
           
For Each article in rootNode.childNodes
                Counter = Counter + 1
         
  For Each Felt in article.childNodes
       
               
                        If "provider" = Felt.NodeName Then
                          provider = Felt.Text
                        ElseIf "category" = Felt.NodeName Then
            category = Felt.Text
                        ElseIf "date" = Felt.NodeName Then
            dato = Felt.Text
                        ElseIf "updated" = Felt.NodeName Then
            updated = Felt.Text
                        ElseIf "headline" = Felt.NodeName Then
            headline = Felt.Text
                        ElseIf "article_uid" = Felt.NodeName Then
            article_uid = Felt.Text
                        ElseIf "summary" = Felt.NodeName Then
            summary = Felt.Text
                        ElseIf "story" = Felt.NodeName Then
            story = Felt.Text
                        End if
 


                    Next

SQL = "SELECT ID FROM amt where article_uid = '"& article_uid &"'"
Set rs1 = Conn.Execute(SQL)

If rs1.eof then

SQL = "SELECT * FROM amt"
rs.Open SQL, Conn, 1, 3
        rs.AddNew
   
    rs("provider") = provider
    rs("category") = category
    rs("dato") = dato
    rs("updated") = updated
    rs("headline") = headline
    rs("article_uid") = article_uid
    rs("summary") = summary
    rs("story") = story
    rs.Update
    rs.close

End If

Next
           
     
      End If
rs1.close
conn.close



Fejlen:

Microsoft VBScript runtime error '800a01a8'

Object required

/xxxxxx/test.asp, line 14