Test om object er eksisterende og/eller Nothing
Hi E,Titlen siger det meste, men uddbybende kan jeg sige at det er ifm. nedenstående script.
I scriptet sættes to objekter objNodeGruppeSuper og objNodeGruppeAdmin. Disse to objekter vil ikke altid indeholde noget (da XML'en i visse tilfælde kun vil indeholde det ene element og i andre tilfælde ingen af elementerne). Jeg har læst, at hvis metoden selectSingleNode returnerer Nothing hvis den ikke finder elementet i XML'en. Derfor vil jeg gerne teste om objektet har en værdi eller om det er Nothing.
Dim oXmlDoc, oNodeList, srvXmlHttp
Set srvXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.4.0")
srvXmlHttp.open "GET", "http://isis.ku.dk/isis/scripts/personv1/xml_person.aspx?personid=" & iPersonid, false
srvXmlHttp.send()
Set oXmlDoc = srvXmlHttp.responseXML
oXmlDoc.setProperty "SelectionLanguage", "XPath"
oXmlDoc.setProperty "SelectionNamespaces", "xmlns:isis='xml_person.isis.ku.dk'"
Dim objNodeFornavn, objNodeEfternavn, objNodeGruppeAdmin, objNodeGruppeSuper
Set objNodeFornavn = oXmlDoc.selectSingleNode("/isis:ISIS/isis:person/isis:fornavn")
Set objNodeEfternavn = oXmlDoc.selectSingleNode("/isis:ISIS/isis:person/isis:efternavn")
Set objNodeGruppeAdmin = oXmlDoc.selectSingleNode("/isis:ISIS/isis:person/isis:org[isis:orgid=7214]/isis:navn")
Set objNodeGruppeSuper = oXmlDoc.selectSingleNode("/isis:ISIS/isis:person/isis:org[isis:orgid=7219]/isis:navn")
Session("NodeFornavn") = objNodeFornavn.text
Session("NodeEfternavn") = objNodeEfternavn.text
