SELECT confuso, com SIM/NÃO

[marcelocardoso 6]

Amigos!

 

Por gentileza estou me quebrando para fazer esta façanha aqui, estou com este seguinte código, mas não consigo realizar.....podem me ajudar????

 

VEJAM meu código?

<%'*********************************************************************************************************************** OPCAO = Session("MATRIZ") SET TESTAR = CX.Execute("SELECT * FROM ADMIN_Arquivos WHERE CODMATRIZ='"& OPCAO &"'")  IF NOT TESTAR.EOF THEN  '***********************************************************************************************************************%><%SQL1	= "SELECT * FROM ADMIN_Tipo ORDER BY ID"SET RS1 = Server.CreateObject("ADODB.Recordset")	RS1.CursorLocation = 3	RS1.CursorType	 = 0	RS1.LockType	   = 1	RS1.Open SQL1, CXIF NOT RS1.EOF THEN %><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#F4F4F4"><%		  RS1.MoveFirstWHILE NOT RS1.EOF	  IF cor = "#FFFFFF" THEN		 cor = "#FFFFFF"		ELSE		 cor = "#FFFFFF"  END IF%><td width="205" height="18" valign="top"><br><br><br><span class="FonteNoticiasTitulo"><%=RS1("TipoNome")%></span><br><br><%SQL2 = "SELECT * FROM ADMIN_Arquivos WHERE Tipo="&RS1("TipoCAT")&" IN ('10','12','15','40','41','42','43') ORDER BY ID DESC"	  SET RS2 = Server.CreateObject("ADODB.Recordset")		  RS2.CursorLocation = 3		  RS2.CursorType	 = 0		  RS2.LockType	   = 1		  RS2.Open SQL2, CX	   IF NOT RS2.EOF THEN 		  RS2.MoveFirstWHILE NOT RS2.EOF		  Response.Write RS2("Descricao")		  Response.Write "<br>"		  RS2.MoveNext			  WEND ELSE%><span class="FonteNoticiasTextoBold">SEM PROGRAMAS</span><%END IF'Fim dados programa ************************************%></td></tr><%RS1.MoveNext	WEND ELSE%><span class="FonteNoticiasTextoBold">SEM PRODUTOS PARA DOWNLOAD</span><%END IF'Fim dados programas sub consulta ************************************%></table><%RS1.closeRS2.close%> [color="#FF0000"]<%'***********************************************************************************************************************ELSE'***********************************************************************************************************************%>[/color]<%SQL1	= "SELECT * FROM ADMIN_Tipo ORDER BY ID"SET RS1 = Server.CreateObject("ADODB.Recordset")	RS1.CursorLocation = 3	RS1.CursorType	 = 0	RS1.LockType	   = 1	RS1.Open SQL1, CXIF NOT RS1.EOF THEN %><table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#F4F4F4"><%		  RS1.MoveFirstWHILE NOT RS1.EOF	  IF cor = "#FFFFFF" THEN		 cor = "#FFFFFF"		ELSE		 cor = "#FFFFFF"  END IF%><td width="205" height="18" valign="top"><br><br><br><span class="FonteNoticiasTitulo"><%=RS1("TipoNome")%></span><br><br><%SQL2 = "SELECT * FROM ADMIN_Arquivos WHERE Tipo="&RS1("TipoCAT")&" AND (CODMATRIZ LIKE '%" &SESSION("MATRIZ")& "%') ORDER BY ID DESC"	  SET RS2 = Server.CreateObject("ADODB.Recordset")		  RS2.CursorLocation = 3		  RS2.CursorType	 = 0		  RS2.LockType	   = 1		  RS2.Open SQL2, CX	   IF NOT RS2.EOF THEN 		  RS2.MoveFirstWHILE NOT RS2.EOF		  Response.Write RS2("Descricao")		  Response.Write "<br>"		  RS2.MoveNext			  WEND ELSE%><span class="FonteNoticiasTextoBold">SEM PROGRAMAS</span><%END IF'Fim dados programa ************************************%></td></tr><%RS1.MoveNext	WEND ELSE%><span class="FonteNoticiasTextoBold">SEM PRODUTOS PARA DOWNLOAD</span><%END IF'Fim dados programas sub consulta ************************************%></table><%RS1.closeRS2.close%>[color="#FF0000"]<%'***********************************************************************************************************************END IF'***********************************************************************************************************************%>

Estou com este código acima que serve para LISTAR ARQUIVOS por CATEGORIA, está funcionando normalmente.

Só que não estou sabendo fazer os SELECT nestes 2 casos do IF em do começo do código.

 

Olhem minhas tabelas que estou usando para este TESTE!

IMAGENS DO BANCO QUE USEI

 

 

Preciso apartir da tabela ADMIN_Arquivos listar os registros pela tabela ADMIN_CAT, cortei a imagem com os links para não confundir muito, só peguei oque interessa. ok

VAMOS LÁ:

 

 

Notem que:

1) No código acima que postei tenho uma condição de acordo com o código da matriz, que ao acessar pelo login com senha eu gravo o código dele na SESSION.

2) daí eu resgato e faço uma verificação, se oque está na session resgatado estiver também na TABELA ADMIN_Arquivos, no campo CODMATRIZ, ele passa para o ELSE adiante, e se não for ele tem que pegar apenas os SELECT dos campos E10,E12,E15,E40,E41,E42,E43

 

3) então oque eu preciso é apenas reconhecer o código da matriz gravada e resgatada na session, e ver se esta na tabela CODMATRIZ, e selecionar todos os links que estão marcado pelo CODMATRIZ.

 

4) aí caso o código que foi gravado na session não tiver aparecendo no campo CODMATRIZ, ele deverá selecionar os dados apenas que estão ticados nos campos E10, E12 e etc....

 

 

ALguem me ajudar nestes SELECTs

Pois o jeito que fiz aí no meu código está errado.

 

Obrigado!

[Anderson Roberto 0]

Tá retornando algum erro?