% call connect dim vd, ms, ev, nt, vdb, kw set vd = con.execute("SELECT TOP 4 * FROM TB_VIDEOS WHERE STATUS=TRUE ORDER BY COD_VIDEO DESC") set ms = con.execute("SELECT TOP 4 * FROM TB_MENSAGENS WHERE STATUS=TRUE ORDER BY COD_MENSAGEM DESC") set ev = con.execute("SELECT * FROM TB_EVENTOS WHERE STATUS=TRUE ORDER BY ID DESC") set nt = con.execute("SELECT TOP 4 * FROM TB_NOTICIAS WHERE STATUS=TRUE ORDER BY ID DESC") set vdb = con.execute("SELECT TOP 1 * FROM TB_BANNER_TOPO WHERE STATUS=TRUE ORDER BY ID DESC") set kw = con.execute("SELECT TOP 1 * FROM TB_KEYWORDS WHERE STATUS=TRUE ORDER BY ID DESC") %>