<% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open Application("ConexaoClassificados") set rs_anuncios = Server.CreateObject("ADODB.Recordset") rs_anuncios.open "select count(codigo_anuncio) as total_anuncios from anuncios where vendido = '0' and aprovado = '1'",conexao,3,3 total_anuncios = rs_anuncios("total_anuncios") rs_anuncios.close rs_anuncios.open "select count(codigo_anuncio) as total_vendidos from anuncios where vendido = '1' and aprovado = '1'",conexao,3,3 total_vendidos = rs_anuncios("total_vendidos") Set rs_anuncios = nothing Conexao.Close set conexao = nothing %>

Mais de <%=total_anuncios%> anúncios
Mais de <%=total_vendidos%> vendidos!