Tjek om vare er i en kategori

HEjsa

Har en lille nød at knække her. Det jeg skal finde ud af er om et produkt eksisterer i en gruppe, såfremt den gør det skal et felt være afkrydset. Flg kode:

<%
produktid=request.querystring("produktid")
produktnummer=request.querystring("produktnummer")
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from produkter where produktnummer='" & produktnummer & "'" , Conn, 1, 3
%>
<form action="shop_retproduktok.asp" method="POST">

<table border="0" cellpadding="2" cellspacing="0" width="600">
        <tr>
            <td align="Left" valign="top" width="20%">Aktivt:</font></td>
            <td width="111" height="10">Ja&nbsp;<input class="inputbutton" type="radio" value="ja" <%if rs("aktiv")="ja" then%>checked<%end if%> name="aktiv" value="ja">&nbsp;&nbsp;Nej&nbsp;<input class="inputbutton" type="radio" name="aktiv" value="nej" <%if rs("aktiv")="nej" then%>checked<%end if%>></td>
        </tr>
        <tr>
            <td align="left" width="40%" valign="top">Produktnavn:</font></td>
            <td colspan="2" width="60%"><INPUT TYPE="text" value="<%=rs("produktnavn")%>" NAME="produktnavn" size="30" style="font-size: 10 px; border-style: solid; border-width: 1"></td>
        </tr>   
        <tr>
            <td align="left" width="40%" valign="top">Undergruppe:</font></td>
            <td colspan="2" width="60%">
<%
'Do Until rs.Eof
set rt = Server.CreateObject("ADODB.Recordset")
rt.Open "select * from kategorier where kategoriparent<>0" , Conn, 1, 3
Do Until rt.Eof
%>
<%=rt("kategoriid")%>&nbsp;<%=rs("produktnummer")%><INPUT TYPE="checkbox" NAME="kategoriid" value="<%=rt("kategoriid")%>"<% =mark %><%if rs("kategoriid")="" then%>checked<%end if%>> <%=rt("kategorinavn")%><br>
<%
  rt.MoveNext
Loop

Response.Write "</select>"
  'rs.MoveNext
'Loop
%>

</td>
        </tr>
    </table>
</form>