20.01.2015 Views

Teach Yourself e.net - Syspro

Teach Yourself e.net - Syspro

Teach Yourself e.net - Syspro

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

.Append("000019")<br />

.Append("")<br />

.Append("")<br />

.Append("GIF")<br />

.Append("N")<br />

.Append("Y")<br />

.Append("Y")<br />

.Append("Y")<br />

.Append("N")<br />

.Append("N")<br />

.Append("C")<br />

.Append("S")<br />

.Append("30")<br />

.Append("60")<br />

.Append("90")<br />

.Append("120")<br />

.Append("150")<br />

.Append("180")<br />

.Append("210")<br />

.Append("")<br />

.Append("")<br />

.Append("")<br />

End With<br />

'Send the XmlIn and assign the results to Xmlout STRING<br />

Xmlout=Query.Query(lblUid.Text, "ARSQRY", XmlIn.ToString)<br />

lblOutput.Text = Xmlout<br />

'Display only part of the Xmlout String<br />

'Declare a new instance of XmlDocument and load<br />

'Xmlout STRING<br />

Dim xmlDoc As New XmlDocument<br />

xmlDoc.LoadXml(Xmlout)<br />

'Choose the xml nodes to display<br />

Dim xmlNode1 As XmlNode<br />

xmlNode1 = xmlDoc.SelectSingleNode("/ARStatement/Header \<br />

/Name")<br />

Dim xmlNode2 As XmlNode<br />

xmlNode2 = xmlDoc.SelectSingleNode("/ARStatement/Header \<br />

/Email")<br />

Dim xmlNode3 As XmlNode<br />

xmlNode3 = xmlDoc.SelectSingleNode("/ARStatement/Header \<br />

/ShipToAddr1")<br />

'Dispaly the nodes in asp Labels<br />

lblName.Text = xmlNode1.InnerText<br />

lblEmail.Text = xmlNode2.InnerText<br />

lblAddress.Text = xmlNode3.InnerText<br />

End Sub<br />

10–8

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!