split i et loop

Først lidt kode:

set rs = connect.Execute("Select * FROM Forretningstype Order By ForretningsTypeID ASC ")
if not rs.EOF then
Do until rs.EOF
ForretningsTypeBeskrivelse = rs("ForretningsTypeBeskrivelse")

ArrForretningstype = Split(ForretningstypeX,",")

For i = 0 to Ubound(ArrForretningstype)
Response.write "<b>" & ArrForretningstype(i) & "</b>=" & ForretningsTypeBeskrivelse
  If ArrForretningstype(i) <> ForretningsTypeBeskrivelse Then
        StrSelect = ""
        response.write " <b> No</b><br>"
    Else
        StrSelect = "Selected"
        response.write " <b> Yes</b><br>"
  End If   
Next


'response.write "<option value='"&ForretningsTypeBeskrivelse&"' "&StrSelect&">"&ForretningsTypeBeskrivelse&"</option>"
rs.MoveNext
Loop
else
end if
rs.close


========================================================

Jeg vil gerne checke det der kommer fra ArrForretningstype mod det der er i ForretningsTypeBeskrivelse men det kan jeg simpelhen ikke få til at virke.

Ligemeget om der er 2 eller flere der passer skriver den no ved alle på nær en.

Link http://www.emperhverv.dk/main/admin-koberkartotek.asp?Edit=Yes&KoeberID=403

Jeg fatter det ikke gør du mon.