<% Set Grupo_cmd = Server.CreateObject ("ADODB.Command") Grupo_cmd.ActiveConnection = MM_Loja_STRING Grupo_cmd.CommandText = "SELECT * FROM grupomenu WHERE GrupoMenuID = 2" Grupo_cmd.Prepared = true Set Grupo = Grupo_cmd.Execute Set Area_cmd = Server.CreateObject ("ADODB.Command") Area_cmd.ActiveConnection = MM_Loja_STRING Area_cmd.CommandText = "SELECT * FROM areas Where GrupoId = "&Grupo.Fields.Item("GrupoMenuID").Value&" ORDER BY AreaOrdem ASC" Area_cmd.Prepared = true Set Area = Area_cmd.Execute %>

Rua Conselheiro Saraiva, 317 | Vila Ercilia | São José do Rio Preto - SP | Fones: 0xx (17) 3203-0077 | Diretor Presidente - Sergio da Silva Paranhos

Sindicato SETH - Todos os direitos - Desenvolvido por MaquinaWeb Soluções em TI

Fale Conosco