% call connect dim nt, id, ev, ev2, vd, au, no, vdb, kw id = request.QueryString("id") set nt = con.execute( "SELECT TOP 4 * FROM TB_NOTICIAS WHERE STATUS=TRUE ORDER BY ID DESC") set vd = con.execute("SELECT TOP 4 * FROM TB_VIDEOS WHERE STATUS=TRUE ORDER BY COD_VIDEO DESC") set au = con.execute("SELECT TOP 3 * FROM TB_AUDIO WHERE STATUS=TRUE ORDER BY ID DESC") set no = con.execute("SELECT TOP 4 * FROM TB_NOVIDADES WHERE STATUS=TRUE ORDER BY ID DESC") set ev = con.execute("SELECT * FROM TB_EVENTOS WHERE ID="&id) set ev2 = con.execute("SELECT * FROM TB_EVENTOS WHERE ID="&id) 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") %>