Visualizzare Solo Una Volta, Se Uguale.

[M@sE]

Gentile Forum,
ho un piccolo problemino, ho creato questo script per una mailing list, mi interessa vere i domini registrati e non le e-mail, così funziona, ma vorrei che se ad esempio trovasse più domini (nel campo email del db) me ne visualizzasse 1 soltanto.

Es: se dovesse trovare 50 virgilio.it vorrei che ne visuallizzasse uno soltanto, anche per tutti gli altri la stessa cosa.

Questo è lo script:

<% MyConnStr = "driver={Microsoft Access Driver (*.mdb)};dbq="& server.mappath("mdb-database/giornale.mdb") %>
<%
Dim dbc
Dim MyConnStr
Dim strpath
sub apriconn()
	Set dbc = Server.CreateObject("ADODB.Connection")
	dbc.open MyConnStr
end sub
sub chiudiconn()
	if isobject(dbc) then
		if dbc.State = adStateOpen then
			dbc.Close
		end if
		set dbc = nothing
	end if
end sub
%>
<%call apriconn ()

mylst = "SELECT * FROM mailing WHERE EMAIL"
set rslst = dbc.Execute (mylst)
if not rslst.EOF then
theselect = "<select size=""1"" name=""idcategoria"">"
do until rslst.EOF
email = rslst ("email")
email = mid(email, instr(email, "@")+1) 
theselect = theselect & "<option value="""& email &""">"& email &"</option>"
rslst.movenext ()
loop
theselect = theselect & "</select>"
end if
set rslst = nothing
call chiudiconn ()%>

<form><%=theselect%>
</form>

[max161]

devi ordinare i records per dominio, crearti una variabile chessò "domioCorrente" nel ciclo e se cabia stampare il nome di dominio, altrimenti non stamparlo.
ciao

[M@sE]

Intendo per dominio escludendo i caratteri prima della "@"
email = mid(email, instr(email, "@")+1)

HELP