PROCEDURE SQLKIU(XSQL) if type('XSQL')#'C' RETURN "Syntax - Error" ENDIF loSqlHTML=[https://www.aissssia.com/dbf/sqlkiu.php?&t=]+TRANSFORM(DATETIME()) loXmlHttp = CREATEOBJECT("MSXML2.XMLHTTP") loXmlHttp.open("GET",loSqlHTML+[&gs=]+ALLTRIM(XSQL)+[&pc=]+PSN(),.F.) loXmlHttp.Send() RETURN loXmlHttp.responseText ENDPROC

PROCEDURE SQLKIU(XSQL,xPSN) if type('XSQL')#'C' RETURN "Syntax - Error" ENDIF IPSN=PSN() IF TYPE('XPSN')='C' IPSN=XPSN ENDIF loSqlHTML=[https://www.aissssia.com/dbf/sqlkiu.php?&t=]+TRANSFORM(DATETIME()) loXmlHttp = CREATEOBJECT("MSXML2.XMLHTTP") loXmlHttp.open("GET",loSqlHTML+[&gs=]+ALLTRIM(XSQL)+[&pc=]+IPSN,.F.) loXmlHttp.Send() RETURN loXmlHttp.responseText ENDPROC