Altova Mailing List Archives>Archive Index >microsoft.public.xml Archive Home >Recent entries >Thread Prev - Re: how to check for empty nodw ? >Thread Next - Re: how to check for empty nodw ? Re: how to check for empty nodw ?To: NULL Date: 5/2/2006 2:19:00 PM
Thanks for the reply Martin, Here is the ASP file, which includes the
XML string ... does this make sence now ?? I want to validate that
employee_id should never be empty ... I was not able to implment that
simple check I feel myself so dumb :(
<%
Response.ContentType = "text/xml"
dim tag_indicator
tag_indicator = False
dim Status_Message
Status_Message = "ok"
Error_Message = "None"
XMLString =
"<data><version>1.0</version><employee><employee_id></employee_id><comments>free
text</comments></employee></data>"
'XMLString = Request("xml")
dim objList
Set objList = CreateObject("Microsoft.XMLDOM")
objlist.async = true
objList.validateOnParse = true
objList.loadxml(XMLString)
TraverseTree(objList.documentElement)
Sub TraverseTree(obj)
For i = 0 to (obj.childNodes.length -1)
if obj.childNodes.item(i).nodeName <> "#text" then
set node = obj.childNodes.item(i)
TraverseTree(node)
else
if (obj.childNodes.item(i).parentNode.nodeName = "employee_id")
Then
Error_Message = "Employee ID should NOT be empty"
Status_Message = "Not Okay"
end if
end if
tag_indicator = False
next
end Sub
Response_String = "<results><status>" & Status_Message &
"</status><error>" & Error_Message & "</error><data_sent>" & XMLString
&"</data_sent></results>"
Response.Write Response_String
%>
| ||||||
| Company | Legal | Press | Partners | Careers | Sitemap | Contact Us | Altova Blog | Mobile | Full Site | |||
|
