este es el código:
Código HTML:
Function EscribeListas(p_tabla) Dim objXML Dim objXSL Dim strXml dim root dim objCom dim eliminado set objCom = Server.CreateObject("DocumentacionAfc.clsDocTablas") set objXML=Server.CreateObject("MSXML2.DOMDocument") set objXSL=Server.CreateObject("MSXML2.DOMDocument") strXml = objCom.ConsultarTablaXML(p_tabla) objXML.loadXML(strXml) set root = objXML.documentElement ----> en esta línea me da el error set eliminado = root.removeChild(root.childNodes.item(0)) objXSL.load (Server.MapPath("AdmCampos.xsl")) contenido = objXML.transformNode(objXSL) set objCom = nothing set objXML = nothing set objXSL = nothing end function