PARAMETERS url

LOCAL lcHTML,lnText,lRet, iCount

WAIT WINDOW 'Ejecutando '+url+' ... ' nowait

PUBLIC conexion

conexion = CREATEOBJECT( "MSXML2.ServerXMLHTTP" )

conexion.open("POST", url, .F.)

lResolve = 5 * 1000
lConnect = 5 * 1000
lSend = 60 * 1000
lReceive = 60 * 1000
conexion.setTimeouts(lResolve, lConnect, lSend, lReceive)

conexion.send('Eddy Torres')

cResult = '@@'

IF conexion.status = 200 THEN
	cResult = conexion.responseText
ENDIF


MESSAGEBOX(TRANSFORM(conexion.status)+' resultado: '+cResult)
RETURN cResult
