I hate to post code here but... I'm stuck at this...
strLanguages get's the data from a form.
strLanguages = "|"&Replace("strLanguages",", ","|")&"|"
x=16
Dim arrCheckbox(16)
arrCheckbox(0) = LanArabic
arrCheckbox(1) = LanCantonese
arrCheckbox(2) = LanDutch
arrCheckbox(3) = LanFarsi
arrCheckbox(4) = LanFinnish
arrCheckbox(5) = LanFrench
arrCheckbox(6) = LanGerman
arrCheckbox(7) = LanGreek
arrCheckbox(8) = LanHebrew
arrCheckbox(9) = LanItalian
arrCheckbox(10) = LanJapanese
arrCheckbox(11) = LanKorean
arrCheckbox(12) = LanPortuguese
arrCheckbox(13) = LanRussian
arrCheckbox(14) = LanSpanish
arrCheckbox(15) = LanSwedish
for i = 0 to x %>
<td width="50%">
<input type="checkbox" name="languages" value="<%=i%>" <% if inStr(strSFeatures,"|"&i&"|")>0 then Response.Write " checked" end if %>><br>
<span class="headingwhite">
<% = arrCheckbox(i)%>
<br><% next %>