array loop oveni db loop

hvad er fejlen? kan man ikke loope et array oveni et db loop?

<table align="center" class="link">
<% strKat = "Bekendte, Kommerciel, Webudvikling, Andre"
arrKat = Split(strKat,",")
For t = LBound(arrKat) to UBound(arrKat)
Sql = "select * from Link where Kategori = 'arrKat(t)'"
Set rs = Conn.Execute(sql) %>
<tr><td class="menuhead"><%=rs("Kategori")%></td></tr>
<% Do while not rs.BOF %>
<tr><td class="link"><a href="?mode=linkcnt&id=<%=rs("ID")%>" target="_blank"><%=rs("Beskrivelse")%></a></td><td>(<%=rs("Klik")%> klik)</td></tr>
<% rs.movenext
Loop
Next
rs.close
set rs = nothing
%>
</table>