devo leggere dei dati da un file xml del tipo

<?xml version="1.0"?>
<!DOCTYPE PickUpCountryListRS SYSTEM 'http://www.xxxx.com/database.dtd'>
<PickUpCountryListRS>
<CountryList>
<Country>Giuseppe</Country>
<Country>Albania</Country>
<Country>Andorra</Country>
</CountryList>

</PickUpCountryListRS>

il file che uso è:

<%
Dim objXmlDom
Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
objXmlDom.async = False
objXmlDom.load ("'http://www.xxxx.com/database.xml")

Dim nome
Set nome = objXmlDom.getElementsByTagName("CountryList/Country")


Dim i
i = 0
For i = 0 To nome.length - 1
Response.Write nome(i).Text & "
"
Next

Set nome = Nothing

Set objXmlDom = Nothing
%>

ma non mi restituisce niente, chi mi può aiutare?

Penso che il problema sia nella riga

<!DOCTYPE PickUpCountryListRS SYSTEM 'http://www.xxxx.com/database.dtd'>

del file xml

perchè negli altri file di lettura che ho usato, tutto ha sempre funzionato ma non c'era questo rigo.