<%
 
'		
' Create new XML reader object
Dim xmlDoc
Set xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
	' Load the specified XML file (returns XML output)
	xmlDoc.load("http://xmlPath")		
 
	' Parse XML
	if xmlDoc.parseError.errorcode <> 0 then
	  ' oops error in xml
	  Response.Write("XML Error...<br>")
  	 Response.write("<br>Error Code: ")
	 Response.write(xmlDoc.parseError.errorCode)
	 Response.write("<br>Error Reason: ")
	 Response.write(xmlDoc.parseError.reason)
	 Response.write("<br>Error Line: ")
	 Response.write(xmlDoc.parseError.line)
	else
	  ' get xml data
 
 
 
Set ElemList = xmlDoc.getElementsByTagName("page ")
For i=0 To (ElemList.length -1)
    MsgBox ElemList.item(i).xml
Next 
 
 
	end if
 
 
			/xmlParseContent.asp
			%>