<% Set dados = abanco.execute("Select * from painel WHERE login=('lip')") Set tema = abanco.execute("Select * from i_secao WHERE idc="&dados("id")&"") if (Request.QueryString("idt") = "") Then Set titulo = abanco.execute("Select * from i_titulo WHERE idc=('"&dados("id")&"') and enviado=('1') order by data desc") else Set titulo = abanco.execute("Select * from i_titulo WHERE idc="&dados("id")&" and id=('"&Request.QueryString("idt")&"')") end if idt = titulo("id") Set m1 = abanco.execute("Select * from i_materia WHERE idc="&dados("id")&" and idt="&idt&" and Secao=1 order by id desc") Set m2 = abanco.execute("Select * from i_materia WHERE idc="&dados("id")&" and idt="&idt&" and Secao=2 order by id desc") Set m3 = abanco.execute("Select * from i_materia WHERE idc="&dados("id")&" and idt="&idt&" and Secao=3 order by id desc") %>