* expN1 Member ID * expC1 Blog URL FUNCTION BlogUpdate PARAMETERS tnNumero,tcBlog LOCAL lnOldSel,loHTTP,loXML,lcDate lnOldSel=SELECT() tcBlog=ALLTRIM(tcBlog) loHTTP=CREATEOBJECT('Msxml2.ServerXMLHTTP') loHTTP.Open('GET',tcBlog,.F.) * Set a timeout in order to avoid long request to time out the server loHTTP.setTimeouts(20000,20000,20000,20000) * We need to trap for possible errors TRY loHTTP.Send() CATCH RETURN ENDTRY * Just to make sure we have an object IF TYPE('loHTTP.ResponseXML')<>'O' RETURN ENDIF loXML=loHTTP.ResponseXML * Check for the presence of the node loNodes=loXML.selectNodes('rss/channel/lastBuildDate') IF loNodes.Length=0 RETURN ENDIF lcDate=loXML.SelectSingleNode('rss/channel/lastBuildDate').Text * Update the blog update SELECT Member SEEK tnNumero ORDER TAG Numero REPLACE BlogUpdate WITH UTCToDateTime(lcDate) SELECT(lnOldSel)As you can see, I do not scroll all items for the pubDate node which is probably what you are making reference to. Just that piece of code would save me some time if you could show it to me.