06/05/2011, 07:26
|
 | | | Fecha de Ingreso: julio-2003
Mensajes: 283
Antigüedad: 21 años, 8 meses Puntos: 0 | |
| Respuesta: Obtener Atributo del root
no lo pude lograr con getNamedItem para obtener el dato directo pero entró como coleccion así que recorriendola anduvo, le faltaria creo un exit for para no seguir dando vueltas una vez que tengo el dato.
Public Function ReadAttribute(pDoc, pAttr)
Dim sNode, sAttr
Set sNode = pDoc.selectSingleNode("//Comprobante")
for each sAttr in sNode.attributes
if ucase(sAttr.baseName) = ucase(pAttr) then response.Write(sAttr.text)
next
End Function |