PROCEDURE getTheTextFileFromTheServer(oform as Form) LOCAL lcURL as String,oHTTP as "XML Web Service",lcResponse as String IF !CheckInterNetConnection() MESSAGEBOX([Cannot connect to MYWEBSITE]+CHR(10)+; [Check connection],1+64,[Unable to connect]) ELSE lcURL= "http://www.MYWEBSITE.com/_private/form_results10.txt" oHTTP=setXMLHTTP() WITH oHTTP .open([GET],lcURL,.f.) .setRequestHeader("Pragma", "no-cache") .setRequestHeader("Cache-Control", "no-cache") .send() lcResponse=.ResponseText && lcResponse contains the CSV in string format. .abort() ENDWITH RELEASE oHTTP ENDIF RETURN lcReponse * PARSE CSV STRING HERE TO DBF or SAVE STRTOFILE(lcResponse."c:\hold\form_results10.txt) ENDPROC PROCEDURE PROCEDURE CheckInterNetConnection() &&--------------------------- #DEFINE FLAG_ICC_FORCE_CONNECTION 0x01 LOCAL lConnected as Logical DECLARE INTEGER InternetCheckConnection IN wininet STRING lpszUrlSTRING,; INTEGER dwFlags, INTEGER dwReserved lConnected=InternetCheckConnection("http://www.microsoft.com",FLAG_ICC_FORCE_CONNECTION,0)=1 CLEAR DLLS "InternetCheckConnection" RETURN lConnected ENDPROC &&CheckInterNetConnection() &&--------------------------- PROCEDURE setXMLHTTP() LOCAL loHTTP as "XML Web Service",cOnError as String,cHTTP as String cOnError=ON('ERROR') ON ERROR loHTTP=.NULL. cHTTP="MSXML2.ServerXMLHTTP.4.0" loHTTP=NEWOBJECT("MSXML2.ServerXMLHTTP.4.0") IF ISNULL(oHTTP) ON ERROR oHTTP=.NULL. cHTTP="MSXML2.ServerXMLHTTP" loHTTP=NEWOBJECT("MSXML2.ServerXMLHTTP") IF ISNULL(oHTTP) ON ERROR oHTTP=.NULL. cHTTP="MSXML2.XMLHTTP" loHTTP=NEWOBJECT("MSXML2.XMLHTTP") ELSE ENDIF ELSE ENDIF ON ERROR &cOnError RETURN loHTTP ENDPROC &&setXMLHTTP()>Hello,