<% 'Query de consulta a tabela Conceitos Query_conceitos = "SELECT codigo_conceito, nome_conceito, descricao_conceito FROM Conceitos ORDER BY nome_conceito" 'Cria objeto para consultar as conceitos Set RS_Conceitos = Server.CreateObject("ADODB.Recordset") 'Conexão ADO Set RS_Conceitos.ActiveConnection = Conexao RS_Conceitos.CursorLocation = 3 RS_Conceitos.CursorType = 0 RS_Conceitos.LockType = 1 'Executa a query RS_Conceitos.Open Query_conceitos If RS_Conceitos.EOF then %> <%= Application("MenuTxtCatVazio")%> <% Else 'Loop dos registros encontrados na tebela conceitos DO UNTIL RS_Conceitos.EOF 'Atribui o calor do codigo_conceito a session("codigo_conceito") 'session("codigo_conceito") = RS_Conceitos("codigo_conceito") 'Query de consulta a tabela subconceitos Response.Write("

"&RS_Conceitos("nome_conceito")&"

") RS_Conceitos.MoveNext Loop End if 'Fecha e libera da memória o objeto de Recordset de consulta a tabela conceitos RS_Conceitos.Close Set RS_Conceitos = Nothing %>