Gennemløb data til Selectboks

Jeg har en selectboks med mulighed for flere valg samtidig, men jeg er løbet sur i et udtræk hvor jeg skal redigere noget eksisterende data, hvordan finder jeg de "gamle" valg igen, og markerer dem med blåt i selectboksen ?

Mine "gamle" valg ligger i et array, kan det ikke lade sig gøre at løbe dem igennem og så validere på de gamle valg, og så udfra dette sætte et " selected" her ?


<select size="5" name="nyhedsgruppe" multiple>
<%
SelectArray = "1,3,5"

set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
set Rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM mailkat ORDER BY mailgruppe"
set Rs = Conn.Execute(strSQL)
do until rs.eof
    Response.Write "<option value="&Rs("id")&">"&Rs("mailgruppe")&"</option>"
rs.movenext
Loop
Rs.Close
set Rs = nothing   
Conn.Close
set Conn = nothing
%>
</select>