Problemas com Like

<%q = Request("q")    SQL = "SELECT * FROM Noticias WHERE Area = '"&Request("Area")&"' AND titulo like '%"&q&"%' OR autor like '%"&q&"%'"    Set Rs = cnNoticias.Execute(SQL)    Do While Not Rs.EOF    NotID     = Rs("NotID")    Titulo    = Rs("Titulo")    DataHora  = Rs("DataHora")%>    <font face="Verdana" size="1" color="#000000">    <a style="text-decoration: none; font-weight: 700" target="_blank" href="vernoticia.asp?NotID=<%=NotID%>">    <font color="#000000"><%=Titulo%></font></a> -    <%Data = Split(DataHora, " ")    Response.Write Data(0)%></font><br>    <%Rs.MoveNext    Loop%>

Ta uma porcaria isso ai. Ele faz a busca mas não mostra só a área especifica.