use select components is a good idea, i give you a sample:<select name="ageGroup" multiple size="<%=ObjRS.RecordCount%>">
<%
While Not ObjRS.EOF
%>
<option value="<%=ObjRS("age_group")%>" 
    <%
     If Not isEmpty(ageArray) Then
         For I = 0 to UBound(ageArray)
Response.write(isAgeSelected(ObjRS("age_group"), ageArray(I)))
            Next
        End If
    %>>
    <%=ObjRS("age_group")%>
<%
ObjRS.MoveNext
Wend 
%>
</select>