<% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open Application("ConexaoEmpregos") set rs_anuncios = Server.CreateObject("ADODB.Recordset") rs_anuncios.open "select count(codigo_anuncio) as total_anuncios from curriculos where aprovado = '1'",conexao,3,3 total_curriculos = rs_anuncios("total_anuncios") rs_anuncios.close rs_anuncios.open "select count(codigo_anuncio) as total_vendidos from vagas where aprovado = '1'",conexao,3,3 total_vagas = rs_anuncios("total_vendidos") Set rs_anuncios = nothing total_anuncios = total_curriculos + total_vagas Conexao.Close set conexao = nothing %>

Mais de <%=total_anuncios%> anúncios