Split ved komma og kør i en løkke

Hej jeg har følgende kode:

    <span class="TextTest"><b>Tryk på nedenstående sider for at redigere dem:</b><br>
    <% strSQL = "Select * from SiteGroups"
    Set rs = Conn.Execute(strSQL)
    count = 0
    if RS.eof then %>
       
    <%end if
   
    Do While Not RS.EOF        
    count = count + 1
   
    strString = RS("MemID")
    arrMatrix = Split(strString,",")
   
    For i = LBound(arrMatrix) To UBound(arrMatrix)
    TempMatrix = (arrMatrix(i))
    if TempMatrix = session("UserName") then
        Response.Write "OK"   
    end if
    Next%>
   
       
        &nbsp;&nbsp;&nbsp;<IMG SRC='../GFX/ProdEdit.gif'>&nbsp;<a href="default.asp?mode=reg&comID=<% = RS("ID") %>" style="color: #000000;"><% = RS("Navn") %></a><br>
       

   
    <%RS.MoveNext
    Loop

    rs.Close
    set rs = Nothing   

    end if
    %></span>

Jeg har en DB med feltet MemID hvor der kan stå intitialerne på nogle personer, eks. "aha, csr, ftj" osv. osv.. Ligeledes laver siden ved login en session("UserName") hvor at intitialen på bruger bliver værdien..
Jeg skal så have at det streger:
        &nbsp;&nbsp;&nbsp;<IMG SRC='../GFX/ProdEdit.gif'>&nbsp;<a href="default.asp?mode=reg&comID=<% = RS("ID") %>" style="color: #000000;"><% = RS("Navn") %></a><br>

det ovenstående ud med <strike> hvis session("UserName") ikke er lig med rs("MemID")