Update af option multiple form/dropdown

Hejsa,

Fennec har hjulpet med denne: http://www.eksperten.dk/spm/520145

og det vikrer upåklageligt, men nu bliver det jo avanceret, for jeg vil gerne lave det med multiple form. Lige som dette:

<select name="area1" multiple="multiple">

    <%
    Set cnnID = Server.CreateObject("ADODB.Connection")
    cnnID.Open Application("DSN_dealer")

sql="SELECT * FROM Area1 ORDER BY Name"
Set rsArea1=cnnID.execute(sql)

Do While Not rsArea1.eof
    if cstr(rsArea1("id")) = cstr(rs("Area1")) then
        Response.Write("<option value=""" & rsArea1("id") & """ selected>" & _
                      rsArea1("name") & "</option>")
            else
        Response.Write("<option value=""" & rsArea1("id") & """>" & _
                        rsArea1("name") & "</option>")
      end if
      rsArea1.movenext
    Loop

    Set rsArea1=Nothing
    %>
</select>
</td><td valign="bottom">
<script language="JavaScript">
function selectAll(sel,tf) {
      for (i=0;i<sel.length;i++) {
          sel.options[i].selected = tf;
      }
}
</script>
<input type="button" class="input" value=" Vælg alle til" onclick="selectAll(this.form.area1,true);" /><br><br>
<input type="button" class="input" value="Vælg alle fra" onclick="selectAll(this.form.area1,false);" />

Det bliver skrevet ned i databasen således:

331, 332, 335

Altså med komma som mellemrum.

Hvordan får jeg den til at vise, at det er 331, 332, 335 som er valgt? Altså flere af mulighederne.