Select distinct

Jeg ønsker at trække alle mailadresserne ud fra min database - men nogle kan være tilmeldt flere projekter, hvorfor nogle mail-adresser kan forekomme flere gange. Det vil jeg omkring så hver mail kun kommer een gang.

Er der nogen der let kan se hvad problemet er med nedenstående lille stump kode:

<%
'--- ALLE ---
Set RS = server.createobject ("ADODB.recordset")
ConnString= "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("database.mdb")

    SQL = "SELECT DISTINCT email FROM deltagere ORDER by email asc"
    RS.open SQL, ConnString, 1
    do while not RS.EOF
        finalstringalle = finalstringalle & RS("email") & ";"
        RS.MoveNext
    Loop
    RS.Close
    Set RS = Nothing
    finalstringalle = left(finalstringalle,len(finalstringalle)-1)

response.write "<br><a href='mailto:" & finalstringalle & "'>Send email:</a>"
%>