>o=CREATE('wwHTTPData') > >o.cServername = 'www.west-wind.com' >o.cHTTPLink = '/wc.wc?wwHTTPData~Execute' > >*** Get this from the user >o.cUserName = TRIM(THISFORM.txtUserName.value) >o.cPassWord = TRIM(THISFORM.txtPassword.value) > >o.lSecure = THISFORM.chkHTTPS.Value > >o.nResultMode = 0 && 0 - Cursor 2 - XML 4 - ADO XML >IF THISFORM.chkXML.value > o.nResultMode = 2 && XML >ENDIF > >o.cSQLCursor = TRIM(THISFORM.txtSQLCursor.Value) > >lnSecs = SECONDS() && Capture timing > >*** Run the request! >o.Execute(THISFORM.edtSQL.Value) > >IF o.lError > MessageBox(o.cErrorMsg,48,THISFORM.Caption) >ELSE > IF o.nResultMode = 0 > *** Cursor was created for you > SELE (THISFORM.txtSQLCursor.value) > BROWSE > ELSE > *** Just display the XML returned in Notepad > ShowText( o.cXMLResult) > > *** COnvert the XML into a cursor > oXML = CREATE('wwXML') > oXML.XMLToCursor(o.cXMLResult,"TQuery") > SELE TQuery > BROWSE > ENDIF >ENDIF >>