<%
Set xmlDoc = Server.CreateObject("MSXML2.DOMDocument")
xmlDoc.async = False
blnLoad = xmlDoc.Load(Server.MapPath("mapa.xml"))
'response.Write("bln: "&blnLoad&"<br/>")
If blnLoad Then
'--Se carga el raíz
Set xmlRoot = xmlDoc.documentElement
For i = 0 To xmlRoot.childNodes.length - 1
Set xmlTitulo = xmlRoot.childNodes.Item(i)
...