qtnmenor de dominios

[leonardonobre 0]

Gente,

tenho 4 listas, preciso colocar o meu e-mail, de acordo com o seu dominio, em umna das listas, a qual apresente um número menor de dominios de acordo com o dominio do e-mail.

POr exemplo,

 

leo@ig.com.br

 

lista 1 tem 20 dominios ig.com.br

lista 2 tem 30 dominios ig.com.br

lista 3 tem 5 dominios ig.com.br

 

Então vou inserir o e-mail leo@ig.com.br na lista de número 3.

Como eu faria?

 

Fiz alguma coisa aqui...

 

<table width="550" border="0" bordercolor="white" cellpadding="0" cellspacing="0">  <tr>	<td width="183" class=tb_tit_tab>Nome do banco </td>	<td width="183" class=tb_tit_tab>Domínio</td>	<td width="183" class=tb_tit_tab>Número de domínios </td>  </tr>  <tr><%Set listas = server.CreateObject("ADODB.Connection")listas.Open Application("cvs")Set ver_lista=listas.Execute("SELECT distinct(dominio),grupo FROM tb_insert_email WHERE repetido=0")while not ver_lista.EOFdominio_cvs = ver_lista("dominio")grupo = ver_lista("grupo")Set objCon = Server.CreateObject("ADODB.Connection")objCon.Open Application("cvs")Set objRS = Server.CreateObject("ADODB.Recordset")objRS.CursorLocation = adUseServerobjRS.CursorType = adOpenKeyset objRS.LockType = adLockOptimisticobjRS.Open "SELECT dominio,Count(dominio) as totaldominio from tb_insert_email where dominio='"&dominio_cvs&"' and repetido=0 group by dominio",objCon,,,adCmdText'objRS.Open "select a.*,b.* from tb_insert_email as a, tb_listas as b where a.grupo=b.grupo order by a.grupo",objCon,,,adCmdTextwhile not objRS.EOFnumdominios = objRS("totaldominio") 'número total de dominios iguais aos do tb_insert_emaildominio = objRS("dominio") 			'o dito cujo... o dominioSet bancos = server.CreateObject("ADODB.Connection")bancos.Open Application("cvs")Set ver_banco=bancos.Execute("SELECT distinct nome FROM tb_listas WHERE grupo="&grupo&"")while not ver_banco.EOFnome_banco = ver_banco("nome")if n mod 2 = 0 then response.write("<td class=tb_linha_corsim>") elseresponse.write("<td class=tb_linha_cornaum>")end ifresponse.write(""&nome_banco&"</td>")if n mod 2 = 0 then response.write("<td class=tb_linha_corsim>") elseresponse.write("<td class=tb_linha_cornaum>")end ifresponse.write(""&dominio&"</td>")if n mod 2 = 0 then response.write("<td class=tb_linha_corsim>") elseresponse.write("<td class=tb_linha_cornaum>")end ifresponse.write(""&numdominios&"")qtnmenor = 0if qtnmenor=0 thenqtnmenor = numdominioselseresponse.write("teste")end ifif qtnmenor<numdominios then ' o problema esta aqui....response.write(" - ")response.write(qtnmenor)response.write(" - Dominio maior")elseresponse.write(" - Dominio menor")end ifresponse.write("</td>")response.write("<tr>")n = n + 1 ver_banco.movenextwendobjRS.movenextwendver_lista.movenextWendresponse.write("</tr></table>")'inicio para limpar os e-mails dos bancos de dados%>

[leonardonobre 0]

Bom dia a todos, alguém tem alguma dica do que poderia ser feito?abraçosléo

[leonardonobre 0]

toc,toc... alguém em casa?rs

[leonardonobre 0]

alguém?léot+