Remove duplicate value

[lyne_asp]

Hello everbody,

Please help me to remove the duplicate value. I have this code

Do until objRSEmail.eof

tgroup = objRSEmail("tEmailName")&"@city.com;"&tgroup

objRSEmail.MoveNext
Loop

the output of this is
[e-mail];[e-mail];[e-mail]

i want to have output like this(to remove the second occurence of same email address)
[e-mail];[e-mail].


Thanks

[JamieHowarth0]

Hy lyme,

Try:

For I = 1 To objRSEmail.RecordCount   
         tgroup = tgroup & objRSEmail("tEmailName") & "@city.com;"
    objRSEmail.MoveNext
Next
 

medicineworker

[shweta123]

Hi,

It is taking duplicate values for emailId because may be recordset objRSEmail is containing duplicate values. So you can write sql query that is required to fill up the recordset like this

Sql = "Select distinct tEmailName from tablename"

Hello everbody,

Please help me to remove the duplicate value. I have this code

Do until objRSEmail.eof

tgroup = objRSEmail("tEmailName")&"@city.com;"&tgroup

objRSEmail.MoveNext
Loop

the output of this is
[e-mail];[e-mail];[e-mail]

i want to have output like this(to remove the second occurence of same email address)
[e-mail];[e-mail].


Thanks

[lyne_asp]

The scenario of this is: John has 2 request and Smith has one request, once the request has been approved, the program will send email notification to the requestor.

in my code:
Do until objRSEmail.eof
tgroup = objRSEmail("tEmailName")&"@imiphil.com;"&tgroup

objRSEmail.MoveNext
Loop

In a tgroup variable, the system will check if there's already [e-mail] then it will add the next email [e-mail]. so the output will be [e-mail];[e-mail]
not
[e-mail];[e-mail];[e-mail]

THanks again

[shweta123]

Hi ,

Here you can check for duplicate values for EmailName using :

Do until objRSEmail.eof

If instr(tgroup ,objRSEmail("tEmailName"))=0 then
tgroup = objRSEmail("tEmailName")&"@City.com;"&tgroup
end if
objRSEmail.MoveNext
Loop

The scenario of this is: John has 2 request and Smith has one request, once the request has been approved, the program will send email notification to the requestor.

in my code:
Do until objRSEmail.eof
tgroup = objRSEmail("tEmailName")&"@imiphil.com;"&tgroup

objRSEmail.MoveNext
Loop

In a tgroup variable, the system will check if there's already [e-mail] then it will add the next email [e-mail]. so the output will be [e-mail];[e-mail]
not
[e-mail];[e-mail];[e-mail]

THanks again

[JamieHowarth0]

HI there,

Or you could just use the SELECT DISTINCT to select only unique email names?

medicineworker