CLOSE ALL
CLEAR ALL
CLEAR

SET PROCEDURE TO qdfoxJSON
JSONStart()
JSON.stringDelimitator = ["]
oData = JSONObject("url:http://ajax.googleapis.com/ajax/services/search/web?v=1.0&q=Visual%20FoxPro")
?"","Estimated results:",oData.responseData.Cursor.estimatedResultCount
FOR EACH oREsult IN oData.responseData.Results
 ?"",oResult.titleNoFormatting,"(" + oResult.URL + ")"
ENDFOR

RETURN


