SET SAFETY OFF Clear tmpfileM="Path of your tmpfileM\tmpfilename.txt" recordset.MoveFirst DO WHILE !recordset.eof() urlactual=ALLTRIM(recordset.fields("url").value) ? urlactual WAIT "Gathering information from: "+urlactual WINDOW nowait vfphttp(urlactual, tmpfileM) * Function that retrieves title (No provided) eltitulo=cla1(tmpfileM) * Function that retrieves keywords (No provided) laskeywords=cla2(tmpfileM) * Function that retreives text (No provided) elsitiohtml=cla3(tmpfileM) ? "URL: "+alltrim(str(total2))+" de "+alltrim(str(total1)) ? "Titulo: "+eltitulo ? "Keywords: "+laskeywords ? "Contenido: "+elsitiohtml ?"*******************************************************************************" ?"" recordset.fields("titulo").value=eltitulo recordset.fields("keywords").value=laskeywords recordset.fields("sitiohtml").value=elsitiohtml WAIT "Done" WINDOW TIMEOUT 1 DELETE FILE tmpfilename.txt recordset.MoveNext total2 = total2+1 ENDDO SET SAFETY ON recordset.Close coneccion.Close FLUSH