` ----------------------------------------------------------------
   `
   ` WS_GetQuote_SwanandMokashi
   ` http://www.swanandmokashi.com/HomePage/WebServices/
QuoteOfTheDay.asmx?WSDL
   `
   `
   ` ----------------------------------------------------------------

C_TEXT(Quote_Author_t;Quote_Quotation_t)

C_STRING(16;$root)
C_STRING(16;$subelem)
C_TEXT($namespace)
$namespace:="http://swanandmokashi.com"
$root:=DOM Create XML Ref("GetQuote";$namespace)

SET WEB SERVICE PARAMETER("XMLIn";$root)

CALL WEB SERVICE("http://www.swanandmokashi.com/HomePage/WebServices/
QuoteOfTheDay.asmx";"http://swanandmokashi.com/
GetQuote";"GetQuote";"http://swanandmokashi.com";Web Service Manual )

If (OK=1)
	C_BLOB($blob)
	C_STRING(16;$resroot)
	C_STRING(16;$ressubelem)
	GET WEB SERVICE RESULT($blob;"XMLOut";*)
	$resroot:=DOM Parse XML variable($blob)
	
	$ressubelem:=DOM Find XML element($resroot;"/GetQuoteResponse/
GetQuoteResult/QuoteOfTheDay")
	DOM GET XML ELEMENT VALUE($ressubelem;Quote_Quotation_t)
	
	$ressubelem:=DOM Find XML element($resroot;"/GetQuoteResponse/
GetQuoteResult/Author")
	DOM GET XML ELEMENT VALUE($ressubelem;Quote_Author_t)
	DOM CLOSE XML($resroot)
	
End if

DOM CLOSE XML($root)