% sql = "select * from concelho order by concelho_desc" datacmd.commandtext = sql set rs_concelho = server.CreateObject("adodb.recordset") rs_concelho.Open datacmd sql = "select * from olhos order by olhos_desc" datacmd.commandtext = sql set rs_olhos = server.CreateObject("adodb.recordset") rs_olhos.Open datacmd sql = "select * from cabelos order by cabelos_desc" datacmd.commandtext = sql set rs_cabelos = server.CreateObject("adodb.recordset") rs_cabelos.Open datacmd sql = " select * from profissao order by profissao_desc" datacmd.commandtext = sql set rs_profissao = server.CreateObject("adodb.recordset") rs_profissao.Open datacmd sql = "select * from naturalidade order by naturalidade_desc" datacmd.commandtext = sql set rs_naturalidade = server.CreateObject("adodb.recordset") rs_naturalidade.Open datacmd %>