Parsing XML and filling variables

[wbodger]

OK, I have this code for parsing an incoming XML post.

	Dim myDoc  
	  
	set myDoc = Server.CreateObject("Microsoft.XMLDOM")  
	  
	myDoc.async=false  
	  
	myDoc.loadXML(request.Form("xml"))

	Dim Root
	Set Root = MyDoc.documentElement

	Dim street : street = Trim(cStr("" &  myDoc.getElementsByTagName("cbt:LicenseeContact/cbt:Street1").item(0).text))
	Dim city : city = Trim(cStr("" &  myDoc.getElementsByTagName("cbt:LicenseeContact/cbt:City").item(0).text))  
    Dim StateCode : StateCode = Trim(cStr("" &  myDoc.getElementsByTagName("cbt:LicenseeContact/cbt:StateId").item(0).text))  
	Dim postalcode : postalcode = Trim(cStr("" &  myDoc.getElementsByTagName("cbt:LicenseeContact/cbt:PostalCode").item(0).text)) 
	Dim countrycode	: countrycode = Trim(cStr("" &  myDoc.getElementsByTagName("cbt:LicenseeContact/cbt:CountryId").item(0).text)) 
	Dim phone : phone = Trim(cStr("" &  myDoc.getElementsByTagName("cbt:LicenseeContact/cbt:Phone1").item(0).text)) 
	Dim lang : lang = Trim(cStr("" &  myDoc.getElementsByTagName("cbt:LicenseeContact/cbt:Language").item(0).text))

However, those values are not always included. For instance, I may not get Phone1. I know that my code right now will return an error, but am I missing something whereby I could easily set a default value if that field is not included in the XML doc? I know there is an IsNull function in VBScript so I could do an

IF IsNull(expression) THEN variable='some preset value'

statement, just wondering if there is something else that I could do.

Thanks,
Willie

 

[PScottC]

You have 2 choices as far as I can see... 1) write error trapping code (On Error Resume Next ... If Err <> 0 then ...), or 2) Parse your XML from the beginning using a recursive read.

PSC

Governments and corporations need people like you and me. We are samurai. The keyboard cowboys. And all those other people out there who have no idea what's going on are the cattle. Mooo! --Mr. The Plague, from the movie "Hackers

 

[wbodger]

Thanks for the response. I forgot I had posted this question before I solved it. I'm not at the office any longer, but will try to get my solution posted tomorrow.

 

[dm4ever]

If the value does not exist it won't show as Null but as nothing so you could do something like

if not myDoc.getElementsByTagName("cbt:LicenseeContact/cbthone1") is nothing then phone = Trim(cStr("" & myDoc.getElementsByTagName("cbt:LicenseeContact/cbthone1").item(0).text))

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[wbodger]

Yeah, I ended up with something like that

	function TestForValue(XmlNode)
		Dim objtest, strReturnValue

		Set objtest = xmlNode.item(0)

		if Not (objtest Is Nothing) Then 
			strReturnValue= objtest.text
		else
			strReturnValue= ""
		End if

		set objtest = nothing

		TestForValue = strReturnValue
		set strReturnValue = nothing
	end function

And it works well, doesn't seem to really slow anything down, but if you see something that isn't quite right, I am always open to help!!

Willie

 

[mrmovie]

xml Deserialization is what you want, turn xml data straight into instances of classes in your code...never tried it with vbscript though, works a treat in .net

 

[wbodger]

I do believe that the XML serialization is a .Net class. Perhaps when thing quiet down a little we can move to .Net (though some folks are a bit resistant to it, still!)...