udtræk fra db!!!

Hvordan skal denne kode rettes til så den KUN skriver kategorien når der kommer en ny????

<%

  strlink = \"select * from links\"
    Set rs = Conn.execute(strlink)
  Response.write\"<dl>\"
Do
  strkat = \"select * from kat where id =\" & rs(\"kategori\")
    Set rr = Conn.execute(strkat)
  Response.write\"<dt>\" & rr(\"kat\") & \"</dt>\"
    Response.write\"<dd><a href=\'\" & rs(\"adr\") & \"\'>\" & rs(\"titel\") & \"</a>\" & rs(\"beskrivelse\") & \"</dd>\"
    stra = rr(\"kat\")
    rs.Movenext


Loop While not rs.EOF


%>