Får ett fel när jag vill skriva ut den andra noden

Microsoft VBScript runtime error '800a01a8'

Object required: '[object]'

/admin/xmlimport.asp, line 37

Någon som vet vad som är fel?

Så här ser koden ut:


Set objParser = Server.CreateObject("Microsoft.XMLDOM")
objParser.async = False
objParser.Load "c:/temp/xml_katalog.xml"

x = 0
i = 0
y = 0

' Kategori1
For Each element in objParser.getElementsByTagName("CatalogSegment")

varKat1 = objParser.getElementsByTagName("CatalogSegment").item(x).firstChild.text

Response.write("<br><br><b>" & varKat1 & "</b><br><br>")

For Each item in objParser.getElementsByTagName("ItemGroup")

response.write objParser.getElementsByTagName("ItemGroup").item(y).firstChild.text & ", "
y = y + 1


Next

x = x + 1
Next


Set objParser = Nothing

Det är nåt den inte hittar, uppenbarligen :)
Vad, är svårt att säga utan att titta på XML-filen.
t.ex. om
objParser.getElementsByTagName("CatalogSegment").item(x).firstChild
är Nothing / ej finns ska du få detta fel.