Public Function cargarxml(ByVal docxml As String) As String
Dim xmldoc As DataSet
dim objDataDocument as XmlDataDocument
dim objnodos as XmlNodeList
dim obj as XmlNode
xmldoc = New DataSet
xmldoc.ReadXmlSchema(MapPath("xsd_Publicaciones.xsd"))
xmldoc.ReadXml(MapPath(docxml))
objDataDocument = new XmlDataDocument(xmldoc)
objnodos = objDataDocument.GetElementsByTagName("ArticuloI")
for each obj in objnodos
response.write(obj.innerxml)
next
Dim resultado As String
End Function