% lang="-en" acao =strtosql(Request("acao")) modId =strtosql(Request("modId")) areaId =strtosql(Request("areaId")) trabId =strtosql(Request("trabId")) insId =strtosql(Request("insId")) autor =strtosql(Request("autor")) titulo =strtosql(Request("titulo")) todos=modId&areaId&trabId&insId&autor&titulo %>
<% if acao="localizar" and todos<>"" then strSql= "SELECT * FROM admInscricoesTrabalhos, admInscricoes, admInscricoesTrabalhosAreas, admInscricoesTrabalhosModalidades " strSql=strSql & "WHERE admInscricoesTrabalhos.insId=admInscricoes.insId AND admInscricoesTrabalhos.areaId=admInscricoesTrabalhosAreas.areaId " strSql=strSql & "AND admInscricoesTrabalhos.modId=admInscricoesTrabalhosModalidades.modId " strSql=strSql & "AND trabAprData IS NOT NULL AND trabSituacao='Aprovado' AND admInscricoesTrabalhos.modId<>5 " if modId <> "" then strSql=strSql & "AND admInscricoesTrabalhos.modId='"&modId&"' " if areaId <> "" then strSql=strSql & "AND admInscricoesTrabalhos.areaId='"&areaId&"' " if trabId <> "" then strSql=strSql & "AND admInscricoesTrabalhos.trabId='"&trabId&"' " if insId <> "" then strSql=strSql & "AND admInscricoesTrabalhos.insId='"&insId&"' " if autor <> "" then strSql=strSql & "AND (insNome LIKE '%"&autor&"%' " strSql=strSql & "OR trabPNome LIKE '%"&autor&"%')" end if if titulo <> "" then strSql=strSql & "AND (trabTitulo LIKE '%"&titulo&"%' " strSql=strSql & "OR trab1Titulo LIKE '%"&titulo&"%' " strSql=strSql & "OR trab2Titulo LIKE '%"&titulo&"%' " strSql=strSql & "OR trab3Titulo LIKE '%"&titulo&"%' " strSql=strSql & "OR trab4Titulo LIKE '%"&titulo&"%' " strSql=strSql & "OR trab5Titulo LIKE '%"&titulo&"%')" end if 'Response.Write(strSql) set rs=objConn.Execute(strSql) %>