>LPARAMETERS lcLanguage,lcText > >loIP = create('wwIpStuff') && Instantiate our wwIpStuff Object >loIP.cHTTPProxyName="" >IF loIP.HTTPConnect('babelfish.yahoo.com','','',.F.)=0 > lcTranslation='' > loIP.AddPostKey('trtext',lcText) > loIP.AddPostKey('ei','UTF-8') > loIP.AddPostKey('doit','done') > loIP.AddPostKey('intl','1') > loIP.AddPostKey('lp','en_'+lcLanguage) > lcOutput="" > lnSize=0 > *** Send the POST data and retrieve HTTP result > lnResult=loIP.HTTPGetEx('translate_txt',@lcOutput,@lnSize) > loIP.HTTPClose > IF lnResult=0 > lcStartText=[<div id="result"><div style="padding:0.6em;">] > lnAt=ATC(lcStartText,lcOutput) > lcTranslation=SUBSTR(lcOutput,lnAT+LEN(lcStartText),500) > lnAT=ATC([</div>],lcTranslation) > lcTranslation=LEFT(lcTranslation,lnAT-1) > > ** Convert CHR(10) into spaces > lcTranslation=CHRTRAN(lcTranslation,CHR(10),' ') > > lcTranslation=ALLTRIM(lcTranslation) > > ? "Translation= "+lcTranslation > ELSE > ? 'error2: '+loIP.cerrormsg > ENDIF >ELSE > ? 'error1: '+loIP.cerrormsg >ENDIF >Wow - I will be testing that over the next 2 days