While

[fantasma]

tenho um campo com email com varios e-mail iguais e tb diferente

como faço

while para verificar se e igual , se for igual, vai para o prox.

quero pegar somente os diferentes ok

[bareta]

[asp]

select distinct email from tabela

[fantasma]

não entendi

[bareta]

você quer pegar todos os dados que aceitem determinadas condições e mostrar os e-mail que não são repetidos né.....

[Principe]

Pelo que estou vendo você não está conseguindo né ? já em 2 post's seu ai:

Faz assim dentro do loop:

Dim EmailsEnviados
EmailsEnviados = ""
do while not rs.eof
  If InStr(1,EmailsEnviados,rs("campo_email")) < 1 Then
    'Executa aqui o que você quiser, envia email ou sei la´
  End if
EmailsEnviados = EmailsEnviados & rs("campo_email") & ","
rs.MoveNext
Loop

[fantasma]

issso vem do check box, onde pode ter dois checkbox selecionados por issso que pode vir email iguais

tenho isso

strQ = "select * FROM tab_serv WHERE tipo_serv ='"& strQ &"'"

Set objRS = DB.Execute(strQ)

se o tipo_serv for = strQ

vai pegar o email daquela linha

so que tem email que é igual e eu não quero que inclua.

[Principe]

A lógica é a mesma que te passei acima,. armazena os emails que você já usou e se já usou não usa mais..

[fantasma]

você PODE EXPLICAR O COD MELHOR

JOGUEI DESTE JEITO E NADA

Dim EmailsEnviados

EmailsEnviados = ""

do while not objRS.eof

If InStr(1,EmailsEnviados,objRS("email1")) < 1 Then

'Executa aqui o que você quiser, envia email ou sei la´

End if

EmailsEnviados = EmailsEnviados & objRS("email1") & ","

objRS.MoveNext

Loop

[Principe]

Bom... vamos tentar ajudar,... primeiro diga o que você está fazendo extamente e qual a sua situação!

[fantasma]

vamos lá

tenho alguns checkbox composto de serviços

ai usei o select

strQ = "select * FROM tab_serv WHERE tipo_serv ='"& strQ &"'"

Set objRS = DB.Execute(strQ)

fiz uma tabela no banco accesss com o nome de tab_serv

nesta tab os campos são

id cliente tipo_serv email1

so que tem email repetidos, então a logica é o seguinte:

quando o usuario selecionar alguns checkbox's o select seleciona os serviços que foi escolhido pelo usuario no checkbox

mas no campos email pode ter email repetido

<%do while not objrs.EOF %><%=objrs("email1")%>;<%objrs.MoveNext%><%Loop%>

ve se você entendeu

[fantasma]

vamos lá

tenho alguns checkbox composto de serviços

ai usei o select

strQ = "select * FROM tab_serv WHERE tipo_serv ='"& strQ &"'"

Set objRS = DB.Execute(strQ)

fiz uma tabela no banco accesss com o nome de tab_serv

nesta tab os campos são

id cliente tipo_serv email1

1 m pro sicial - marcelo@sp.gov.br

2 m WEB DOMINO01 - marcelo@sp.gov.br

so que tem email repetidos, então a logica é o seguinte:

quando o usuario selecionar alguns checkbox's o select seleciona os serviços que foi escolhido pelo usuario no checkbox

mas no campos email pode ter email repetido

<%do while not objrs.EOF %><%=objrs("email1")%>;<%objrs.MoveNext%><%Loop%>

[fantasma]

Obrigado a todos pois verifiquei o funcionamento do comando que o bareta passou e deu certo

valeu tb Principe

minha solução foi essa

sql="select distinct email1 from tab_serv where tipo_serv='"&strQ&"'"

set objRS=DB.execute(sql)