Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
No Results
Message
 
 
To
19/10/2003 19:36:42
John Tomblin
Service Station Systems, Inc.
San Jose, California, United States
General information
Forum:
Visual FoxPro
Category:
Web Services
Title:
Miscellaneous
Thread ID:
00840069
Message ID:
00840157
Views:
15
>I get an obluct with no nodes. That's why I said null. I run another web service that just returns a single value and it works. So, I don't think it's SOAP. Here is the password. See what you get.

Hi John,

For me it returns an object with two nodes, Provider and Contact. For my work phone # I get both parts of data but with your phone # the Contact node has 0 children. You may try another number.
CLEAR
xPN = "4059712445"
xID = "WS8-PHF3-GRT1" 
WS=Createobject("mssoap.soapclient30")
WS.mssoapinit("http://ws2.serviceobjects.net/gp/GeoPhone.asmx?WSDL")
Adr = WS.GetPhoneInfo(m.xPN, m.xID)
IF Adr.Item(0).childNodes.length > 0
	lcProviderName = Adr.Item(0).childNodes.Item(0).firstChild.nodeTypedValue
	lcProviderURL = Adr.Item(0).childNodes.Item(0).childNodes(1).nodeTypedValue
	lcProviderCity = Adr.Item(0).childNodes.Item(0).childNodes(2).nodeTypedValue
	lcProviderState = Adr.Item(0).childNodes.Item(0).lastChild.nodeTypedValue

	? lcProviderName
	? lcProviderURL
	? lcProviderCity
	? lcProviderState
ENDIF

IF Adr.Item(1).childNodes.length > 0
	lcContactName = Adr.Item(1).childNodes.Item(0).firstChild.nodeTypedValue
	lcContactAddress = Adr.Item(1).childNodes.Item(0).childNodes(1).nodeTypedValue
	lcContactCity = Adr.Item(1).childNodes.Item(0).childNodes(2).nodeTypedValue
	lcContactState = Adr.Item(1).childNodes.Item(0).childNodes(3).nodeTypedValue
	lcContactZip = Adr.Item(1).childNodes.Item(0).childNodes(4).nodeTypedValue

	? lcContactName
	? lcContactAddress
	? lcContactCity
	? lcContactState
	? lcContactZip
ENDIF
--sb--
Previous
Reply
Map
View

Click here to load this message in the networking platform