Consulta doble

[manolo572]

Hola necesito Tengo dos menus desplegables donde elijo mis proyectos en uno lo elijo por areas y en otro lo elijo por categoria del proyecto, en el area tengo 12
tipos y en categoria solo dos opciones liquidos y sinteticos
lo que necesito es meter varias ares en liquidos y sinteticos
estas son mis consultas alguien me podria ayudar cm unirlas en una sola
estas son mis consultas:

Código SQL:

<%      
        SET rs1 = Server.CreateObject("ADODB.Recordset")
      
        ''''''''''''''''''''''''''''''''''''''
        AbirtosCerrados    
        selectSQL1 ="select * from Proy_gral where (pryarea1="&consulta&" or pryarea2=" &consulta&" or pryarea3="&consulta &" or pryarea4="& consulta&" or pryarea5="&consulta & ") " & condicion
        ''''''''''''''''''''''''''''''''''''''
        SET rs1=prycxn.EXECUTE(selectSQL1)
         
        IF rs1.EOF THEN
%>
 

Código SQL:

<%
      
      SET rs1 = Server.CreateObject("ADODB.Recordset")
      'selectSQL1 = "SELECT * FROM Proy_gral"
 
selectSQL1 ="select * from Proy_gral where prycategoria='"&consulta &"' "& condicion 
 
      
      response.Write(selectSQL)
      Set rs1=prycxn.execute(selectSQL1)
      
      if rs1.EOF then%>
 

ayuda!!!