`*[foxpro]
LOCAL seles
seles=SELECT()

LOCAL dty,dty2
dty=nacal_dire+"\a_list_of_prg.dbf"
SELECT * FROM (dty) ORDER BY porad_ DESC,datetime_ DESC  INTO CURSOR spis_prg

dty2=nacal_dire+"\a_list_of_prg_gr.dbf"
SELECT * FROM (dty2)  ORDER BY porad_ DESC  INTO CURSOR spis_prg_gr

LOCAL stka
stka=""

stka=stka+"<table border=0 width=100%>"

SELECT spis_prg_gr
SCAN

    stka=stka+"<tr><td align=center valign=top>"
    stka=stka+"<table width=100% border=1><tr><td align=center valign=top><b><font size=+1 color=blue>"+ALLTRIM(type_)+"</font></b>"+;
        IIF(NOT EMPTY(opis_),"<br><font size=-1>"+ALLTRIM(opis_)+"</font>","")+;
        "</td></tr></table>"
    stka=stka+"</td></tr>"
    SELECT spis_prg
    SCAN FOR parentg=spis_prg_gr.id_gr 


        stka=stka+"<table width=100% border=0><tr>"

        stka=stka+"<td align=center valign=top width=30%><b>"+ALLTRIM(name_)+"</b>"+;
            IIF(NOT EMPTY(opis_),"<br><font size=-1>"+ALLTRIM(opis_)+"</font>","")+;
            "</td>"

        stka=stka+"<td align=center valign=top width=40%><b><a href='"+ALLTRIM(www_link)+"'>"+;
            IIF(EMPTY(ALLTRIM(text_link)) AND EMPTY(ALLTRIM(file_image)),ALLTRIM(www_link),ALLTRIM(file_image)+ALLTRIM(text_link))+;
            +"</a></b></td>"

        stka=stka+"<td align=left valign=top width=30%>"+;
            IIF(EMPTY(ALLTRIM(notes_link)) ,"&nbsp;",ALLTRIM(notes_link))+;
            +"</td>"


        stka=stka+"</tr></table>"
    stka=stka+"<tr><td align=center valign=top>"
    stka=stka+"<hr>"
    stka=stka+"</td></tr>"

    ENDSCAN


    SELECT spis_prg_gr

    stka=stka+"<tr><td align=center valign=top>"
    stka=stka+"<br><br><br>"
    stka=stka+"</td></tr>"

ENDSCAN

stka=stka+"</table>"

SELECT spis_prg_gr
USE
SELECT a_list_of_prg
USE
SELECT spis_prg
USE
SELECT a_list_of_prg_gr
USE

SELECT (seles)

RETURN stka
`

`*[foxpro]  
  LOCAL seles,stka  

* обязательно нужно вернуть текст
stka=''
  
  seles=SELECT()
ln=SQLConnect('BazaD') 
* или SQLSTRINGCONNECT с параметрами

otv=SQLExec(ln,"select * from tablica","cursor_")

*и далее - с курсором можно делать, что угодно - для формирования текста stka

  SELECT (seles)  
  RETURN stka  
`