<% Set Area_cmd = Server.CreateObject ("ADODB.Command") Area_cmd.ActiveConnection = MM_Loja_STRING Area_cmd.CommandText = "SELECT * FROM areas Where GrupoId = 2 ORDER BY AreaOrdem ASC" Area_cmd.Prepared = true Set Area = Area_cmd.Execute %>